| |
>また次を検索して同じ処理を繰り返すマクロを
>作っています。
完成してなくても構いませんから、作ってあるところまでのコードを
UPした方がいいですよ。一例として A列から3つの文字を検索し、ヒットしたセルに
色を着ける。というコードなら・・
Sub Test_Find()
Dim i As Integer
Dim FR As Range
Dim Ad As String
Dim MySt As Variant, MyCo As Variant
MySt = Array("AAA", "BBB", "CCC")
MyCo = Array(3, 6, 5)
For i = LBound(MySt) To UBound(MySt)
Set FR = Columns(1).Find(MySt(i), , xlValues)
If FR Is Nothing Then
GoTo NLine
Else
Ad = FR.Address
End If
Do
Set FR = Columns(1).FindNext(FR)
FR.Interior.ColorIndex = MyCo(i)
Loop Until FR.Address = Ad
NLine:
Set FR = Nothing
Next i
Erase MySt, MyCo
End Sub
|
|
