在工作簿的所有工作表中打开带宏的超链接

Question

Sub Macro4()
    Range("B1").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

我有一张带有三张纸的Excel工作簿（第1张，第2张和第3张），在B1单元格的sheet1中我有超链接，我用录制的宏命令打开，但是当我在工作表中运行宏时没有。 2然后命令失败，错误运行时错误＆＃39; 9＆＃39;。

请帮助，因为我想以这样的方式使用此命令：如果我已打开sheet2或表3，那么它仍然可以打开表1的超链接。

Answer 1

Sub Macro4()
    Range("B1").Select
    Worksheets("sheet1").Range("B1").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

如果您从其他工作表引用超链接，则需要告诉VBA超链接在另一个工作表上。通过添加Worksheets("Sheet1")告诉您的VBA始终查看Sheet1，无论实际激活哪张表。 Range("B1")只是缩小了可以找到超链接并被视为第一个超链接的范围