| |
テキストボックスに入力した内容をA列の中から検索し、
検索結果にアクティブセルが来るように下記のVBAを作成しましたが、
「実行時エラー"91" ｵﾌﾞｼﾞｪｸﾄ変数 with ﾌﾞﾛｯｸ変数が設定されていません」
というエラーが出てしまいます。
VBAの初心者のため、どの様に処理したらよいのか分かりません。
（ちなみに、ユーザーフォームではなく、 シート上にテキストボックスとコマンドボタンを設定しています）
どなかたか分かる方がいらっしゃいましたら、お願いします。
Private Sub kensaku_Click()
Dim W As String
W = TextBox1
Range("A:A").Select
Selection.Find(What:="W", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.FindNext(After:=ActiveCell).Activate
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
