我可以制作一个宏来获取活动单元格的值并将其添加到 hyperlink 的末尾,然后按照 link
Can I make a macro that takes the active cell's value and adds it to the end of a hyperlink, then follow said link
所以我希望能够访问 link 为 "exampleURL.com/"+"value/string in active cell" 的网站。示例 URL 不变。
例如,假设 selected 单元格中的文本是 123456。我需要的是一个宏,它将采用“123456”并将其放在 "exampleURL.com/" 的末尾以创建 "exampleURL.com/123456" 然后按照那个
link。
注意:我不想将单元格值更改为 hyperlink,只是为了能够 select 带有 123456 的单元格,按 "Ctrl"+"l" 然后我的浏览器在 URL "exampleURL.com/123456"
上打开
如您所知,我对 VBA 非常缺乏经验,如果无法做到这一点,我们深表歉意。
您可能想试试这个代码。它在您的工作表中设置一个超链接,然后跟随它。通过在 Constant Target.
中设置地址来指定单元格
Sub FollowHyperlink()
' 009
Const Url As String = "https://whosebug.com"
Const Target As String = "A15" ' the cell where the hyperlink will be created
Dim Page As String ' URL page
Page = Selection.Cells(1).Value
Range(Target).ClearContents
ActiveSheet.Hyperlinks.Add Range(Target), Url & "/" & Page
Range(Target).Hyperlinks(1).Follow
End Sub
所以我希望能够访问 link 为 "exampleURL.com/"+"value/string in active cell" 的网站。示例 URL 不变。
例如,假设 selected 单元格中的文本是 123456。我需要的是一个宏,它将采用“123456”并将其放在 "exampleURL.com/" 的末尾以创建 "exampleURL.com/123456" 然后按照那个 link。 注意:我不想将单元格值更改为 hyperlink,只是为了能够 select 带有 123456 的单元格,按 "Ctrl"+"l" 然后我的浏览器在 URL "exampleURL.com/123456"
上打开如您所知,我对 VBA 非常缺乏经验,如果无法做到这一点,我们深表歉意。
您可能想试试这个代码。它在您的工作表中设置一个超链接,然后跟随它。通过在 Constant Target.
中设置地址来指定单元格Sub FollowHyperlink()
' 009
Const Url As String = "https://whosebug.com"
Const Target As String = "A15" ' the cell where the hyperlink will be created
Dim Page As String ' URL page
Page = Selection.Cells(1).Value
Range(Target).ClearContents
ActiveSheet.Hyperlinks.Add Range(Target), Url & "/" & Page
Range(Target).Hyperlinks(1).Follow
End Sub