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

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"

地址应为空白，子地址应采用 Sheet1!A1 格式。这会在活动单元格中放置一个链接，假设您有一个名为 fortnr 的变量，该变量包含同一工作簿中的有效工作表名称。

如果您想指向不同工作簿中的单元格，那么除了地址需要是该文件之外，一切都相同。

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 执行此操作：

• 转到插入，超链接

• 选择在本文档中的位置

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

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