ExcelVBA 選択したテーブル内セルのアドレスの取り方

Question

前提・実現したいこと

"B7"のリンクをクリックした際、そのセルのテーブルアドレス？を取得したい。

リンクを開くとその行のデータが書かれたフォームが開き、氏名など変更して登録ボタンを押下するとテーブル上に反映されるような処理を作成中。

発生している問題・エラーメッセージ

ActiveCellだとシート全体に対しての"B7"がとれるが、
テーブル内のアドレス"B2"のように取る方法が知りたい。

試したこと

調べてみましたが、「Range("A1").ListObject.Range(3)」や「DataBodyRange」などの使い方しか出てこず詰まってます。

Answer 1

テーブル内の相対位置を知りたいということでしょうか。（それをB2と呼ぶのかどうかはわかりませんが）

Sub test()
    Dim r, c
    With ListObjects(1).Range
      If Not Intersect(ActiveCell, .Cells) Is Nothing Then
        r = ActiveCell.Row - .Row + 1
        c = ActiveCell.Column - .Column + 1
        MsgBox Join(Array(r, c), ",")
      End If
    End With
End Sub

Comments

[D0NKAMA]

この方法でテーブル内での座標を取ることが出来ました！ありがとうございます。
相対位置というのですね。次からはそれで検索したいと思います！（B2は私が勝手読んでいるのでお気になさらず）

Answer 2

これでどうでしょうか。

ActiveCell.Hyperlinks(1).Address

Comments

[D0NKAMA]

回答ありがとうございます。
ですが、この方法では”B7”のようなアドレスが取れると思います。
「MsgBox　ActiveCell.Hyperlinks(1).Address」でやってみたのですが、「””」しかとれませんでしたm(_ _)m