实际工作簿中的工作表超链接

Question

如何将超链接添加到特定单元格并将其发送到Excel文件中的工作表？

这就是我已经得到的：

Cells(zeile, 1).Select
Worksheets(1).Hyperlinks.Add Anchor:=Selection, Address:=Workbooks(1).Worksheets(fortnr), SubAddress:=Cells(1, 1).Address

感谢。

Answer 1

ActiveSheet.Hyperlinks.Add ActiveCell, "", Sheets(fortnr).Name & "!A1"

地址应为空白，SubAddress的格式应为Sheet1！A1。这会在activecell中放置一个链接，假设您有一个名为fortnr的变量，该变量在同一工作簿中包含有效的工作表名称。

如果要指向不同工作簿中的单元格，则除了Address需要该文件之外，所有内容都相同。

ActiveSheet.Hyperlinks.Add ActiveCell, Workbooks(1).FullName, Sheets(fortnr).Name & "!A1"

假设Workbooks（1）是一个不同的文件，之前已经保存过，并且有一个正确名称的表格等等。

Answer 2

创意1：添加指向当前活动单元格的超链接

假设要链接的工作表名称是“VBA1”

  

ActiveSheet.Hyperlinks.Add Activecell，“”，“VBA1！A1”

创意2：为名为“CallButton”的形状添加超链接

  

ActiveSheet.Hyperlinks.Add ActiveSheet.Shapes（“CallButton”），“”，“VBA1！A1”

Answer 3

如果您尝试通过UI进行此操作：

• 转到插入，超链接

• 选择此文档中的位置

• 选择工作表和要添加的单元格。

链接将添加到您的电子表格中。