ユーザーフォームのテキストボックスに選択したセルの値を入れたいです。（複数）https://infoment.hatenablog.com/entry/2020/12/24/231430これをもとにやってみたのですが、自分がやりたいのは列C（名前）をダブルクリックしたらその行にある値をユーザーフォームのテキストボックスに反映させるということをやりたいです。シート1列A→No.列B→ID列C→名前列D→カナ列E→生年月日列F→性別↓ユーザーフォーム1No.→テキストボックス1ID→テキストボックス2名前→テキストボックス3カナ→テキストボックス4生年月日→テキストボックス5性別→テキストボックス6よろしくお願いします。

マクロの例です。



該当するシートモジュールに以下を作成

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)



If Target.Column \u0026lt;\u0026gt; Range(\u0026quot;C:C\u0026quot;).Column Then Exit Sub



Cancel = True

If Not UserForm1.Visible Then

UserForm1.Show vbModeless

End If

rr = Target.Row

For c = 1 To 6

If c \u0026lt;\u0026gt; 5 Then

UserForm1.Controls(\u0026quot;TextBox\u0026quot; \u0026amp; c) = Cells(rr, c).Value

Else '生年月日はセルと同じ表示形式

UserForm1.Controls(\u0026quot;TextBox\u0026quot; \u0026amp; c) = Cells(rr, c).Text

End If

Next



End Sub



UserForm1にUserForm1を閉じるためのCommandButton1を作成し、UserForm1のモジュールに以下のマクロを作成

Private Sub CommandButton1_Click()

Unload UserForm1

End Sub