VBA - 是否可以將單元格轉換爲cutom超鏈接？

我想知道是否可以使用VBA，以便能夠將已包含部分url的單元格轉換爲活動超鏈接。更具體這裏是什麼，我已經成功與迄今爲止的工作的例子：在B列，在單元格B14我有以下公式VBA - 是否可以將單元格轉換爲cutom超鏈接？

= HYPERLINK（」 https://google.ro/‘& D14’搜索「） - >這是僅用於第14行

現在單元格D14我有URL的最後部分，例如」狗「。現在當我按下單元格D14時，它會打開一個新的瀏覽器頁面並將我帶到該特定地址。

所以我的問題是，我可以在使用VBA的單個單元上對D14中的此示例執行此操作，而不再使用列B？基本上有沒有辦法將B列中使用的公式整合到VBA中？

謝謝。

2017-09-26 Adi Petrescu

爲您的工作表添加事件例程。這個會在點擊它時立即打開瀏覽器（在本例中，它僅限於'D'列）

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    ' Check if only 1 cell is selected 
    If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then Exit Sub 
    If Target.Column = 4 And Target.Value <> "" Then 
     ThisWorkbook.FollowHyperlink "https://www.google.de/search?source=hp&q=" & Target.Value 
    End If 
End Sub

來源

2017-09-26 10:23:50 FunThomas

如果我理解正確的話，你需要的ThisWorkbook.FollowHyperlink方法

Sub TestHyperlink() 

    ThisWorkbook.FollowHyperlink "https://google.ro/" & Range("D14") 

End Sub

您可能需要使用工作表名稱取決於你在哪裏從調用你的代碼來限定範圍（「D14」）。

來源

2017-09-26 10:10:42

VBA - 是否可以將單元格轉換爲cutom超鏈接？

回答

相關問題