|
良く解ってないけど、こうした方が良いかも。
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = "CVPARTS" Then
検索範囲 = "H:H"
ElseIf InStr(1, ws.Name, "ユニットマスター") <> 0 Then
検索範囲 = "G:G"
Else
検索範囲 = ""
End If
If 検索範囲 <> "" Then
With ws.Range(検索範囲)
Set F = .Find(検索文字, , , xlPart, , , False, False)
If Not F Is Nothing Then
SavRow = F.Row
Do
ws.Cells(F.Row, 7).Interior.Color = RGB(0, 255, 0)
Set F = .FindNext(CVr)
Loop Until F.Row = SavRow
End If
End With
End If
Next
訂正
>別シートに対して、FindNextは使えないと思います。
別シートに引き継いで、FindNextは使えないと思います。
|
|