使用单元格定义超链接

Question

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

记录了这个宏

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

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