创建指向另一个单元格的超链接

Question

我想在 VBA 中创建一个超链接，单击时会跳转到特定的单元格，类似于 HTML 锚链接。

例如：

ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 2), Address:=range("B23"), TextToDisplay:="Test Link"

但是上面的内容不起作用，因为它说找不到地址

Answer 1

您需要Hyperlinks.Add 方法的SubAddress参数，而不是Address 。

with ActiveSheet
    .Hyperlinks.Add Anchor:=.Cells(1, 2), _
                    Address:="", _
                    SubAddress:= .Name & "!$B$23", _
                    TextToDisplay:="Test Link"
end with

Answer 2

试试这样：

ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Range("E5"), Address:="", SubAddress:="Sheet1!A1", TextToDisplay:="Sheet1!A1"