ハイパーリンクされたテキストの値を別のセルに表示しようとしています。たとえば、複数のハイパーリンクを含む列があり、各ハイパーリンクは他のシートの特定のセルにリンクされています。ハイパーリンクをクリックするたびに、その値 (テキスト) がメイン シートの別のセルに表示されるようにしたいのです。
getUrL の VBA を入力しようとしましたが、求めていた結果が得られませんでした。この問題の解決策を提供できる方がいらっしゃいましたら、お知らせください。
答え1
これは、次のように Private Sub Worksheet 関数 FollowHyperlink (つまり、ワークシート内の VBA コード) を使用して解決できます。
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Sheets("MainSheet").Range("E2").Value = Selection.Value
Sheets("MainSheet").Range("E3").Value = Target.SubAddress
Sheets("MainSheet").Range("E4").Value = Target.Range
End Sub