[[20130315135805]]　『ハイパーリンクで指定したセルの行番号を取得して』（sigyo）　ページの最後に飛ぶ

『ハイパーリンクで指定したセルの行番号を取得してユーザーフォームに送りたい』（sigyo）

作りたいものはＮＯのついたデータのＮＯをクリックするとユーザーフォームに表示
させたく、行番号を取得できればユーザーフォームに表示できるものがあります。
NOの列にハイパーリンクが貼ってあり、選んだセルの行番号を取得することは出来るでしょうか？　またはハイパーリンクのとび先のセルの行番号の取得でもいいです。
（Excel2003 WindowsXP)
どうかよろしくお願いいたします。
　　　　　　　　　　　　　　　　　　　　　　　　　　　　

シートイベントに　Worksheet_FollowHyperlink　がありますので
Target　（セルアドレス）がパラメーターで渡されます。

（Cod）

ご教示ありがとうございます。
当方初心者のためうまくいきません。
Private Sub Worksheet_FollowHyperlink(Byval Target As Hyperlink)

  Dim non As Long
  Cells(1,1),Value = Target.Row  →　Error438 オブジェクトはこのプロパティーまたはメソッドをサポートしていません。となります。
  non = Cells(1,1),Value
  UserForm1.TextBox8.Value = non
End Sub

よろしくお願いいたします。　　(sigyo)

 そのTargetの型は、Hyperlinkですよ。

 ＞Byval Target As Hyperlink　← See

 　　　　　　　　　　　　  これで試してください。
 　　　　　　　　　　　　　　↓
 Cells(1,1),Value = Target.Range.Row

 (半平太) 2013/03/21(Thu) 16:43

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

    MsgBox Target.Range.Column
    MsgBox Target.Range.Row
End Sub

すみません。私のミスガイドです。
既に　半平太　さんから答えが出ておりますが、HyperLink　の場合は　Range.Column/Row
で記述された位置を特定できます。

このような場合は黄色く反転した状態で VBE　の　ウオッチ・ウインドウ　あたりで
Target　の　プロパティーを　眺めていくと分かりますので、デバッグを覚えると楽になります。

Web　で　"Excel　デバッグ"　あたりで検索すると沢山ヒットすると思います。

（Cod）

出来ました。ありがとうございます。
これで前に進むことができます。
早い対応　感謝しております。　　（sigyo)

コメント返信：

[ 一覧(最新更新順) ]

[[20130315135805]] 『ハイパーリンクで指定したセルの行番号を取得して』（sigyo） ページの最後に飛ぶ

[[20130315135805]]　『ハイパーリンクで指定したセルの行番号を取得して』（sigyo）　ページの最後に飛ぶ