既にURLの一部を含むセルをアクティブなハイパーリンクに変換できるようにするために、VBAを使用することが可能かどうかは疑問です。 ここで、より具体的には、私がこれまでで動作するように管理してきたものの一例である： 列Bには、セルB14に、私は次の式VBA - セルをcutomハイパーリンクに変換することは可能ですか？
= HYPERLINK（」https://google.ro/ 『& D14を、』持っています検索 "） - >これは14行目のみです
セルD14には、現在、「dogs」などのURLの最後の部分があります。今私はセルD14を押すと、新しいブラウザのページを開き、特定のアドレスに私を連れて行く。
私の質問は、これはDBAのこの例ではVBAを使用して1つのセルでこれを行うことができますか？基本的に列Bで使用されている数式をVBAに統合する方法はありますか？
ありがとうございました。
シートのイベントルーチンを追加します。このボタンをクリックするとすぐにブラウザが開きます（この例では列 '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
私が正しく理解している場合、あなたはThisWorkbook.FollowHyperlink方法
Sub TestHyperlink()
ThisWorkbook.FollowHyperlink "https://google.ro/" & Range("D14")
End Sub
を必要としますが、ワークシート名と範囲（「D14」）を修飾する必要があるかもしれないあなたがよりあなたのコードを呼び出している場所によっては。