Excel VBA質問箱 IV

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

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


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

59684 / 76807

←次へ　｜　前へ→


	【21808】Re:対話型で検索

かみちゃん - 05/1/31(月) 12:51 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>特に検索したい文字列（例えばマスク）を含むセルをこちらが入力したい
>文字列を含むセル（立体マスク）が見つかるまで検索させる方法がわかりません。

Findメソッドのヘルプに使用例が載っているので、参照していただきたいのです
が、その使用例を元に少し加筆修正すると、以下のような感じでできると思いま
す。
Option Explicit

Sub Macro1()
　Dim mytarget As String
　Dim c As Range
　Dim firstAddress As String
　
　mytarget = InputBox("検索文字列を入力してください。")
　With Worksheets(1).Range("a1:a500")
　　Set c = .Find(mytarget, LookIn:=xlValues)
　　If Not c Is Nothing Then
　　　　firstAddress = c.Address
　　　　Do
　　　　　'検索文字列が部分一致したセルの１つ右隣のセルに1を入力
　　　　　c.Offset(, 1) = 1
　　　　　Set c = .FindNext(c)
　　　　Loop While Not c Is Nothing And c.Address <> firstAddress
　　End If
　End With
End Sub

1 hits

▼

【21807】対話型で検索 まゆ 05/1/31(月) 12:10