アクティブセルの位置を変更とともに値を再取得したい

Question

いつもお世話になっております。
エクセルVBAの質問です。
表題の詳細ですが
ユーザフォームでテキストボックスを作成し、
アクティブセルの１つ右の値を自動で挿入するようにしています。
ソースは以下の通りです。

Private Sub UserForm_Initialize()
Dim i As Long
With Worksheets("テスト")
   i = ActiveCell.Row
'txt_idはテキストボックスの名前
   txt_id = Cells(i, 2)
End With
End Sub

アクティブセルが変更されたとき（別のセルをクリックorキーボード移動）
に値を再取得するにはどうすればよいでしょうか？

よろしくお願い致します。

Answer 1

値を取得したいワークシートのモジュールとして"Worksheet_SelectionChange"というものがありますので、それを利用します。
※標準モジュール/クラスモジュールではないです。

簡単なサンプルとしては以下の通りです。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox ActiveCell.Value
End Sub

キーボードやマウスでセルをクリックするとそのセルの値が表示されます。

Comments

[beginner_t]

フォームとの連携でうまく動作はしなかったのですが、
シートに埋め込んだテキストボックスでは希望の動作を確認いたしました。

サンプルを参考に考えたいと思います。
ありがとうございます。