Excel宏中的超鏈接

Question

我想要一種在excel宏中創建某些變量的超鏈接的方法。 我的要求是我必須捕獲某些變量中的鏈接，例如：

abc = InputBox("Enter the path")

現在，我想將此abc用作超鏈接函數的參數，並創建名稱為xyz的超鏈接。 您能幫我解決這個問題嗎？

Answer 1

使用HYPERLINK功能：

=HYPERLINK(link_location, friendly_name)

創建快捷方式或跳轉以打開存儲在硬盤驅動器，網絡服務器或Internet上的文檔。

例如在宏代碼中：

Worksheets("Sheet1").Range("A1").Formula = "=HYPERLINK(""" & link_destination & """,""" & link_text & """)"

請注意，在VBA代碼中使用“”（兩個雙引號）可在單元格公式中產生一個雙引號。

Answer 2

好的，這是代碼。 它的作用是1.詢問您想要的URL 2.將URL存儲在名為URL的變量中3.轉到工作表1，將超鏈接功能添加到單元格A5，將其鏈接到您輸入的URL 4.顯示友好名稱你在代碼中給它

如果您有任何問題，請告訴我| 您只需要修改所需URL的代碼或將鏈接放在所需位置。

經過測試和工作。 請投票作為答案:)

Sub CreateHyperLink()
Dim URL As String
URL = InputBox("Enter the link")
With Worksheets("Sheet1")
.Hyperlinks.Add Anchor:=.Range("A5"), _
Address:="http://www." & URL, _
TextToDisplay:="Google"
End With
End Sub