使用HYPERLINK()函数会更好。您可以使用它来实现以下目的:
=HYPERLINK("#HyperlinkClick()", "Text you want to Display")
Run Code Online (Sandbox Code Playgroud)
注意开头的#。这很重要。
现在创建一个名为HyperlinkClick的函数:
Function HyperlinkClick()
Set HyperlinkClick = Selection
'Do whatever you like here...
MsgBox "You clicked on cell " & Selection.Address(0, 0)
End Function
Run Code Online (Sandbox Code Playgroud)
而已。