|
ユーザーフォームを表示したとき、初期状態で A1 と B1 の値が入っていれば良い、
ということなら
Private Sub UserForm1_Initialized()
With Worksheets("データベース")
Me.TextBox1.Text = .Range("A1").Value
Me.TextBox2.Text = .Range("B1").Value
End With
End Sub
>CommandButton1を押すとしたの行にいくように
Private Sub CommandButton1_Click()
Dim CkR As Variant
With Worksheets("データベース")
CkR = Application.Match(TextBox2.Text, .Range("B:B"), 0)
If IsError(CkR) Then
MsgBox "テキストボックスの値がシート上に見つかりません", 48
Exit Sub
End If
TextBox1.Text = .Cells(CkR + 1, 1).Value
TextBox2.Text = .Cells(CkR + 1, 2).Value
End With
End Sub
ぐらいで出来ると思います。
|
|