|
こんにちは。かみちゃん です。
>特に検索したい文字列(例えばマスク)を含むセルをこちらが入力したい
>文字列を含むセル(立体マスク)が見つかるまで検索させる方法がわかりません。
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つ右隣のセルに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
|
|