Excel VBA插入超链接

Question

我一直试图让宏插入动态超链接几个小时，但似乎无法正确理解语法。

我需要让我的宏插入rLinkCell的超链接指向rTargetCell中的shTargetSheet，使用标签或显示文字stLinkName并使用屏幕提示{ {1}}。

我已经走到了这一步：

stTip

它使链接完美，并且所有显示都很好，但是当我点击它时，我收到错误shCurSheet.Hyperlinks.Add Anchor:=rLinkCell, _ Address:="", _ SubAddress:=shTargetSheet.Name & "!" & rTargetCell.Address, _ ScreenTip:=stTip, _ TextToDisplay:=stLinkName 。

我确信这很简单，我做错了什么？

Answer 1

如果您只想在工作表上创建超链接，则可以使用= HYPERLINK（）函数。

我刚刚创建了一个示例工作簿，这是公式解决方案： https://spreadgit.com/bjoern/hyperlink-example.xlsb/sheets/Sheet1

这是VBA解决方案： https://spreadgit.com/bjoern/hyperlink-example.xlsb/modules/Module1