Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/28.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 我是否可以制作一个宏来获取活动单元格';s值并将其添加到超链接的末尾,然后跟随所述链接_Excel_Vba_Hyperlink - Fatal编程技术网

Excel 我是否可以制作一个宏来获取活动单元格';s值并将其添加到超链接的末尾,然后跟随所述链接

Excel 我是否可以制作一个宏来获取活动单元格';s值并将其添加到超链接的末尾,然后跟随所述链接,excel,vba,hyperlink,Excel,Vba,Hyperlink,所以我希望能够访问一个链接为“exampleURL.com/”+“value/string in active cell”的网站。示例URL不会更改 例如,假设选定单元格中的文本为123456。我需要的是一个宏,它将取“123456”并将其放在“exampleURL.com/”的末尾,以创建“exampleURL.com/123456”,然后执行该操作 链接 注意:我不希望将单元格值更改为超链接,只希望能够使用123456选择单元格,按“Ctrl”+“l”,然后我的浏览器在URL“example

所以我希望能够访问一个链接为“exampleURL.com/”+“value/string in active cell”的网站。示例URL不会更改

例如,假设选定单元格中的文本为123456。我需要的是一个宏,它将取“123456”并将其放在“exampleURL.com/”的末尾,以创建“exampleURL.com/123456”,然后执行该操作 链接 注意:我不希望将单元格值更改为超链接,只希望能够使用123456选择单元格,按“Ctrl”+“l”,然后我的浏览器在URL“exampleURL.com/123456”上打开


正如您可能知道的那样,我对VBA非常缺乏经验,因此,如果这不可能,我深表歉意。

您可以尝试此代码。它在工作表中设置超链接,然后跟随它。通过在常量目标中设置单元格地址来指定单元格


你也许可以在这个活动中做到这一点。你是巫师,你是先知,你是非凡的存在。祝你丰收!
Sub FollowHyperlink()
    ' 009

    Const Url       As String = "https://stackoverflow.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