Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Условное форматирование без выделения ячеек - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Условное форматирование без выделения ячеек (Макросы/Sub)
Условное форматирование без выделения ячеек
vzdorny Дата: Четверг, 25.07.2019, 19:02 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Здравствуйте!
Задался целью по возможности избавиться от всех Select и Activate в макросах,
но пока никак не могу совладать с условным форматированием.
Если можно применить к ячейкам условное форматирование, не выбирая их,
то напишите пожалуйста код, как это можно сделать.
Спасибо!
 
Ответить
СообщениеЗдравствуйте!
Задался целью по возможности избавиться от всех Select и Activate в макросах,
но пока никак не могу совладать с условным форматированием.
Если можно применить к ячейкам условное форматирование, не выбирая их,
то напишите пожалуйста код, как это можно сделать.
Спасибо!

Автор - vzdorny
Дата добавления - 25.07.2019 в 19:02
_Boroda_ Дата: Четверг, 25.07.2019, 19:55 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15572
Репутация: 6075 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Конечно можно
[vba]
Код
Sub tt()
    With Range("A1:A13")
        .FormatConditions.Add Type:=xlExpression, Formula1:="=A1=2"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        .FormatConditions(1).Interior.Color = 255
    End With
End Sub
[/vba]
Если в ячейках А1:А13 значение 2, то красная заливка


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеКонечно можно
[vba]
Код
Sub tt()
    With Range("A1:A13")
        .FormatConditions.Add Type:=xlExpression, Formula1:="=A1=2"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        .FormatConditions(1).Interior.Color = 255
    End With
End Sub
[/vba]
Если в ячейках А1:А13 значение 2, то красная заливка

Автор - _Boroda_
Дата добавления - 25.07.2019 в 19:55
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Условное форматирование без выделения ячеек (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!