使用单元格定义超链接

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

到达cells(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

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