Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


33954 / 76734 ←次へ | 前へ→

【47995】Re:ハイパーリンクについて
発言  Jaka  - 07/3/29(木) 14:42 -

引用なし
パスワード
   こういうので、取れると思ったんですが、イベントよりハイパーリンクの方が先に動いちゃいました。
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

0 hits

【47990】ハイパーリンクについて ムラッチ 07/3/29(木) 13:49 質問
【47995】Re:ハイパーリンクについて Jaka 07/3/29(木) 14:42 発言
【47998】Re:ハイパーリンクについて ムラッチ 07/3/29(木) 15:54 お礼

33954 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free