使用单元格定义超链接

Question

我有一个单元格列表，这些单元格需要链接到同一工作簿中的各个单元格。我找不到如何使用"单元格"属性定义超链接。

记录了这个宏

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "Sheet3!A1", TextToDisplay:="#Sheet3!A4"

并试图修改为

 ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        sheets("sheet3").cells(1,1),TextToDisplaysheets:="sheet3".cells(1,1).value

它不起作用。我显然错过了什么。

Answer 1

获取单元格（1,1）

Sub Macro2()
    Dim saddy As String
    saddy = "Sheet3!" & Cells(1, 1).Address(0, 0)
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        saddy, TextToDisplay:=saddy
End Sub

如果愿意，您可以为文本制作不同的字符串以显示。