Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'userForm1にセルの内容を表示する
On Error Resume Next
'選択行のC列を「TextBox1」に表示
UserForm1.TextBox1.Text = Cells(ActiveCell.Row, "C")
'選択行のD列を「TextBox2」に表示
UserForm1.TextBox2.Text = Cells(ActiveCell.Row, "D")
End Sub
|