Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7584 / 76736

←次へ　｜　前へ→


	【74738】Re:findを使った検索で見つからなかった場合に検索内容を変えたい。

kanabun - 13/9/5(木) 17:28 -


	引用なし

	パスワード

▼ぶんぶんさん： 1づつインクリメントしていく整数と"あ"を連結した文字列が検索文字列ですから、こうするのも一手ですね Sub Macro1() 　Dim a As Range 　Dim i As Long 　Dim s As String 　For i = 1 To 100 　　　s = i & "あ"　'検索文字列　　　Set a = Range("A:A").Find(s, , xlFormulas, xlWhole) 　　　If Not (a Is Nothing) Then '見つかったらLoopを抜ける　　　　　MsgBox "Found " & s & "　Row =" & a.Row 　　　　　Exit For 　　　End If 　Next End Sub