エクセルＶＢＡ初心者です。

質問

エクセルＶＢＡ初心者です。
「テキストボックスとコマンドボタンを使って、シートのＡ列にあるセルの文字列を左から検索する」という事をやりたいのですが、うまくいきません。お教えください。ちなみにCtrl+Fではなく、ＶＢＡで。

Private Sub TextBox1_Change()

Dim R As Range
With ActiveWorkbook.Worksheets("Sheet名")
Set R = .Columns(3).Find(Me.TextBox1.Value)
End With
If R Is Nothing Then
MsgBox "該当セルなし"
Else
R.Activate
End If
Set R = Nothing
End Sub

としましたが、テキストボックス入力＋Enterで出来てしまい、コマンドボタンが機能しません。また、BackSpaceやDelをすると、他のセルに飛んでしまいます。？？？？

回答No.1

don9don9 · ベストアンサー

Private Sub TextBox1_Change()
～
End Sub
は、テキストボックスのChangeイベントです。
これはテキストボックスの内容が変更されたときに動くものです。
（当然、Delなどで内容が消されたときにも動きます）

コマンドボタンをクリックしたときに動かしたいなら
コマンドボタンのClickイベントのところに記述しないといけません。
具体的には
Private Sub CommandButton1_Click()
～
End Sub
のように記述すればいいです。
（コマンドボタンのオブジェクト名が[CommandButton1]の場合）

お礼

できました！！！
ありがとうございました m(_ _)m