vba - Excel VBA 在不同工作表中创建到同一工作簿中不同工作表的超链接

Question

我正在 Excel 中处理一个项目，我想验证数据集，每当列中的两个单元格有重复项时，我想将重复项的位置写入另一个工作表，其中包含一堆有关错误的信息数据中。

所以我的数据位于 worksheet1 中，当我运行代码时，我正在编写一个指向 worksheet2 中某个单元格的超链接，该单元格链接到 worksheet1 中的错误。

我发现一些代码几乎可以在不同的堆栈问题中完成此任务...

Hyperlink to Existing Worksheet in actual Workbook

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

但是，这会在您当前所在(或处于事件状态)的工作簿中创建一个超链接。

我稍微修改了代码，但似乎无法让它运行......

Sheets("Sheet3").Hyperlinks.Add Cells(3, 3), "", Sheets("Sheet1").Name & "!B2", _
"", "Hello"

我也尝试过

Sheets("Sheet3").Activate
ActiveSheet.Hyperlinks.Add Cells(3, 3), "", Sheets(fortnr).Name & "!A1"
Sheets("Sheet1").Activate

但是这不起作用。也没有产生任何错误，所以我真的不知道为什么这不起作用。

Answer 1

您的 anchor 单元格未指定要锚定的工作表，因此它默认为事件工作表。

像这样改变它:

Sheets("Sheet3").Hyperlinks.Add Sheets("Sheet3").Cells(3, 3), "", Sheets("Sheet1").Name & "!B2", "", "Hello"

<小时/>

为什么在.Hyperlinks之前需要有一个工作表？

基于 MSDN 文档 here我相信这是因为 HyperLinks 是 sheets 类的一种方法，因此它是调用该方法的唯一方法。您可以使用 Activesheet 或在开始时调用任何工作表来调用该方法，然后将超链接 anchor 分配到您所需的位置。