excel vba FollowHyperlinkで条件を設定したい。

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Range("A1").Value = Target.Range.Value

End Sub


上記はワークシートの各セルに設定されているハイパーリンクをクリックすると、セルの内容がセルA1に入力されるというものです。
(例えばハイパーリンクが設定されているセルB5にりんごと入力されていて、そのハイパーリンクをクリックするとA1にもりんごと入力される)

上記の設定にIfのような条件を設定したいのですが上手くできません。
条件はたとえば D列に設定されているハイパーリンクをクリックするとセルA2に入力し、それ以外の列はセルA1に入力するいったようなものです。

宜しくお願いします。

No.1 ベストアンサー 回答者： bonaron 回答日時： 2019/04/16 03:59

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

　If Target.Range.Column = 4 Then
　　Range("A2").Value = Target.Range.Value
　Else
　　Range("A1").Value = Target.Range.Value
　End If
End Sub

とか。