|
▼ゆかわ さん:
こんにちは
既にはーばーさんから適切な回答がありますので蛇足です。
少なくとも2003までは、書式検索におけるFindNextにバグがあり
検索系の定番、Find/FindNextの構文が使えませんので、むりやり
Findのみでまわすコードです。(お勧めはしません。ご参考程度に)
Sub Test2()
Dim c As Range
With ActiveSheet.UsedRange
Set c = .Cells(1)
Do
Application.FindFormat.Interior.ColorIndex = 38
Set c = .Find(What:="", after:=c, LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
MatchByte:=False, SearchFormat:=True)
If c Is Nothing Then Exit Do
c.Interior.ColorIndex = xlNone
Loop
End With
Set c = Nothing
End Sub
|
|