セルをクリックするとイベント発生

いつも大変お世話になっております。
Ｂ列をクリックすると
その行に関連する情報をユーザフォームに
表示されるようにしたいです。
おしえてくれませんでしょうか
添付ファイルのように例えば
Ｂ５をクリックしたらその行の情報をユーザフォームに表示させたい。

質問者からの補足コメント

• 添付ファイルつけます
  失礼いたしました。

  
    補足日時：2019/09/25 21:53

No.1 ベストアンサー 回答者： tom04 回答日時： 2019/09/25 22:24

こんばんは！

＞Ｂ列をクリックすると・・・

間違ったセルを選択してもマクロが実行されてしまいますので、
ダブルクリックの操作にしてみました。
尚、ユーザーフォームの「名前」～「生年月日」の右側には「TextBox1」～「TextBox4」が並んでいるものとします。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
　　If Target.Row > 5 And Target <> "" Then
　　　Cancel = True
　　　　With UserForm1
　　　　　.TextBox1 = Target.Offset(, 1)
　　　　　.TextBox2 = Target.Offset(, 2)
　　　　　.TextBox3 = Target.Offset(, 3)
　　　　　.TextBox4 = Target.Offset(, 4)
　　　　　.Show
　　　　End With
　　End If
End Sub

※　日付欄の表示がセルの表示と異なる場合は
＞.TextBox4 = Target.Offset(, 4)
を
＞.TextBox4.Text = Target.Offset(, 4).Text
に変更してみてください。m(_ _)m

この回答へのお礼

有難うございます。

お礼日時：2019/09/26 22:05