|
テキストボックス1に氏名 (A2:A7)
テキストボックス2に会社名 (B1:G1)
コマンドボタン1を押すと双方が交差するセルにカーソルが移動。
Private Sub CommandButton1_Click()
Dim row_count As String, column_count As String
On Error Resume Next
row_count = Application.Match(TextBox1.Text, Range("A2:A7"), 0)
column_count = Application.Match(TextBox2.Text, Range("B1:G1"), 0)
On Error GoTo 0
If row_count = "" Or column_count = "" Then MsgBox "NG": Exit Sub
Range("A1").Offset(row_count, column_count).Select
End Sub
標準モジュールに
Sub test()
Unload UserForm1
UserForm1.Show 0
End Sub
該当シートに”フォーム”の”ボタン”配置。
右クリック−マクロの登録で、testを選択、OK。
と言ったところですか?
|
|