Здравствуйте
Нужно найти на листе диапазоны с заливкой (Белый, Фон 1) и изменить на Без заливки
(у меня excel 2007)
Так конечно не получается:
если при записи макроса вручную делать цвет заливки (Белый, Фон 1):
Пожалуйста, помогите поправить макрос
Нужно найти на листе диапазоны с заливкой (Белый, Фон 1) и изменить на Без заливки
(у меня excel 2007)
Так конечно не получается:
Код |
---|
Sub НайтиБелыйЦветЗаливки() Dim rng As Range For Each rng In ActiveSheet.UsedRange.Cells If rng.Interior.ThemeColor = xlThemeColorDark1 Then MsgBox "цвет заливки: Белый, Фон 1" rng.Interior.ThemeColor = xlNone MsgBox "цвет заливки: Нет заливки" End If Next rng End Sub |
Код |
---|
'цвет заливки: Белый, Фон 1 With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = 0 .PatternTintAndShade = 0 End With 'цвет заливки: Нет заливки With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With |