Question

我正拼命在VBA for Excel中寻找以下问题的解决方案：

我想请求用户输入，要求输入网站链接。代码应将其从此转换为超链接（就像excel对HYPERLINK公式所做的一样）。输出应将单词 website 添加到ActiveCell，并带有指向输入网站的超链接。

这是我最新的方法：

Sub add_hyperlink()
    link = Chr(34) & InputBox("Enter link") & Chr(34)
    ActiveSheet.Hyperlinks.Add anchor:=ActiveCell, Address:=link, 
    ScreenTip:="Follow this link", TextToDisplay:="website"
End Sub

感谢您的帮助！

Answer 1

不太清楚问题出在哪里，但这可行：

Sub add_hyperlink() 
    Dim link As String
    link = InputBox("Enter link")
    ActiveSheet.Hyperlinks.Add ActiveCell, link, ScreenTip:="Follow this link", TextToDisplay:="Website"
End Sub

添加超链接VBA

1 个答案: