|
こういうので、取れると思ったんですが、イベントよりハイパーリンクの方が先に動いちゃいました。
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
MsgBox Sh.Name
MsgBox Target.Address
End Sub
因みに関数の場合は反応しませんでした。
=HYPERLINK("[Book1]Sheet1!A100",A100)
だからこんな感じに都度、アドレスを取得して、移動前のセルアドレスがハイパーリンク元アドレスかどうかで、判断するようになるんじゃないかと思います。
これくらいの方法しか、思いつきませんでした。
実際、ハイパーリンクの仕方でも方法が変わるだろうから、その辺もかかれた方がいいと思います。
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
IF ハイパーリンク先のセルだったら Then
IF 保存してあるセルアドレスがハイパーリンク元のセルだったら Then
else
End if
Else
グローバル変数かどこなのセル等に情報保存 = Target.Address
End Sub
|
|