Помогите с функцией ReplaceFormat

Пользователь

Сообщений: 4 Регистрация: 01.01.1970

15.08.2011 09:18:51

Здравствуйте.
У меня почему-то не срабатывает ReplaceFormat на изменение цвета:
With Application
.FindFormat.Interior.ColorIndex = 3
.ReplaceFormat.Interior.ColorIndex = 35
End With
Может подскажите что у меня не верно? Я перед этим уже и специально прописал изменений нескольких клеток на ColorIndex = 3 (думал, вдруг цвет не тот)- красит, но потом всё равно не меняет.
Заранее благодарен!

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

15.08.2011 09:30:28

А если так попробовать?
(не просто задать условия для замены - но ещё и произвести эту замену)

Sub test()
With Application
.FindFormat.Interior.ColorIndex = 3
.ReplaceFormat.Interior.ColorIndex = 35
Cells.Replace What:="", Replacement:="", SearchFormat:=True, ReplaceFormat:=True
End With
End Sub

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

dimonsof Пользователь Сообщений: 4 Регистрация: 01.01.1970	#3 15.08.2011 09:49:56 Всё равно не меняет...

dimonsof Пользователь Сообщений: 4 Регистрация: 01.01.1970	#4 15.08.2011 09:51:59 Извиняюсь, я протупил немного. работает. Спасибо !!

Читают тему