- 252 名前：デフォルトの名無しさん mailto:sage [2014/02/05(水) 22:30:17.57 ]
- テキストボックスに入力した文字列をシート内から検索できるようなVBAをWEBで見つけました。
（テキスト入力→ボタンを押す→検索される）
Sub ボタン1_Click()
On Error GoTo エラー処理 '検索文字が見つからなかったときはエラー処理へジャンプ
Cells.Find(What:=TextBox1.Value, LookAt:=xlPart).Activate'シート全体を対象に検索
TextBox1.Value = "" 'テキストボックスの入力文字を消去
Exit Sub '検索文字が発見できた場合はここで終了
エラー処理:
MsgBox "見つかりませんでした"
TextBox1.Value = ""
End Sub
この場合、同じ文字列が複数有る場合、2つめ以降が検索できません。
2つめ以降を検索できるようにするにはどうすれば良いでしょうか？
