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

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"

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

Answer 2

想法1：添加到当前活动单元格的超链接

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

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

想法2：添加到名为“CallButton”的形状的超链接

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

Answer 3

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

• 转到插入，超链接
• 选择此文档中的位置
• 选择要添加的工作表和单元格。

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