超链接没有任何东西
我有很多的超链接，我想为它们分配一个macros，而Worksheet_FollowHyperlink只捕获插入的超链接，但不捕获HYPERLINK（）函数。 所以我想我插入的超链接什么都没有引用，所以当我按他们没有任何反应。 或者我想让他们参考一下。 但是当我把一个复制到另一个单元格时，它仍然指向它的父母单元格。 所以我必须编辑一个新的单元，以便引用它的新单元。 而且我还有超链接的编辑也被复制和编辑。 我需要这个，因为我不希望超链接跳到父超链接的单元格。
提前致谢
使用HYPERLINK（）函数会更好。 你可以像这样使用它：
=HYPERLINK("#HyperlinkClick()", "Text you want to Display")
注意＃开头。 这很重要 。
现在创build一个名为HyperlinkClick的函数：
Function HyperlinkClick() Set HyperlinkClick = Selection 'Do whatever you like here... MsgBox "You clicked on cell " & Selection.Address(0, 0) End Function
而已。
select一组单元格并运行：
Sub HyperAdder() For Each r In Selection ActiveSheet.Hyperlinks.Add Anchor:=r, Address:="", SubAddress:=r.Parent.Name & "!" & r.Address(0, 0), TextToDisplay:="myself" Next r End Sub
我刚刚创build了一个解决scheme。 如果我将插入的超链接引用到其他工作表中的某个单元格中，然后将其隐藏起来（xlSheetVeryHidden），它就可以完美工作。 现在我的超链接指的是梦幻岛，macros也捕捉它们。 谢谢大家的耐心。