Question

我目前正在建立带有一些宏的工作簿。我正在编写的宏的一部分将工作表名称更改为单元格的值，然后继续生成到其他页面的关联超链接。

有没有一种方法可以创建从活动工作表到活动工作表的超链接？然后，我将复制此单元格并将其移至关联的工作表。

代码：

Sub Hyperlink Test()

Range("H1").Select

ActiveSheet.Hyperlinks.Add Anchor:=Selection,Address(""),SubAddress:=_
ActiveSheet,TextToDisplay:=Range("B1").Value

End Sub

代码：

Sub Hyperlink Test()

Range("H1").Select

ActiveSheet.Hyperlinks.Add Anchor:=Selection,Address(""),SubAddress:=_
ActiveSheet,TextToDisplay:=Range("B1").Value

End Sub

Answer 1

选择一些单元格。

这将在Select ed单元格中创建指向同一工作表中的 A1 的超链接：

Sub CreateHyperlink()
    Dim s As String

    With ActiveSheet
        s = .Name & "!A1"
        .Hyperlinks.Add Anchor:=ActiveCell, Address:="", SubAddress:=s, TextToDisplay:="Jump"
    End With
End Sub

EDIT＃1：

如果工作表名称包含空格字符，则将其用于s：

s = "'" & .Name & "'!A1"

与现有工作表Vba的超链接

1 个答案: