excel宏中的超鏈接

我想要一個方法在excel宏中創建一些變量的超鏈接。我的要求是我要捕捉EX在某些變量的鏈接：excel宏中的超鏈接

abc = InputBox("Enter the path")

現在我想用這個ABC作爲參數的超鏈接功能，並創建名爲XYZ的超鏈接。你能幫我解決這個問題嗎？

來源

2016-01-27 Shubham Agarwal

請參閱本[MSDN KB]（https://msdn.microsoft.com/en-us/library/office/ff822490.aspx） – Spidey

好的，這裏是代碼。它在做什麼是 1.詢問你想要什麼URL 2.將URL存儲在一個名爲URL的變量中 3.轉到Sheet 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

來源

2016-01-27 13:36:42

1. ABC =的InputBox（」輸入鏈接「） 2. A =」= Hyperlink（abc，「」friendlyname「」）「 3. wb2.Sheets（」Rest「）。Range（」A「＆restcounter）= A 這就是我想。我想獲取鏈接（例如www.google.com）作爲輸入。然後我想創建一個超鏈接並存儲它一些變量A，然後我將該值粘貼到Excel工作表的某個單元格中。請爲我提供解決方案或解決此問題的最佳方法。 –

今天早上編輯我的答案。代碼已經過測試和工作。讓我知道。 –

感謝您的幫助..它工作正常:) –

使用的超級鏈接功能：

=HYPERLINK(link_location, friendly_name)

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

例如，在宏代碼：

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

注意在VBA代碼使用的「」（兩個雙引號），以產生所述細胞式在單個雙引號。

來源

2016-01-27 13:36:05 nekomatic

excel宏中的超鏈接

回答

相關問題