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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир 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
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 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
micholap_denis Дата: Четверг, 27.05.2021, 21:03 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 341
Репутация: 0 ±
Замечаний: 60% ±

Excel 2013
_Boroda_,
подскажите пожалуйста а как макрос будет если нужно что бы если в ячейках А1:А13 значение 2 то формат ячеек - дата (день месяц год) если "1" то "месяц год)?
 
Ответить
Сообщение_Boroda_,
подскажите пожалуйста а как макрос будет если нужно что бы если в ячейках А1:А13 значение 2 то формат ячеек - дата (день месяц год) если "1" то "месяц год)?

Автор - micholap_denis
Дата добавления - 27.05.2021 в 21:03
Pelena Дата: Четверг, 27.05.2021, 21:17 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19163
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
макрорекодер не помогает? ;)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщениемакрорекодер не помогает? ;)

Автор - Pelena
Дата добавления - 27.05.2021 в 21:17
micholap_denis Дата: Четверг, 27.05.2021, 21:33 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 341
Репутация: 0 ±
Замечаний: 60% ±

Excel 2013
здравствуйте Pelena,
вся проблема в том что при применении макроса вставки строк (копирования либо вставки шаблонов с другого листа почему то сбиваются форматы ячеек) там где даты- вместо 22.08.2020 заменяет 8.4.20 там где числа - денежный формат где просто красным выделяются отрицательные значения - пишет отрмицательные красным но в скобках.....как победить? в чем проблема-может есть настройки какие ? думал победить УФ

макрорекордером когда применяются Select и Activate другие макросы тупят....применил решение бороды для тех ячеек что цветом выделяются а вот для того что бы даты и числа победить не допедриваю.....
 
Ответить
Сообщениездравствуйте Pelena,
вся проблема в том что при применении макроса вставки строк (копирования либо вставки шаблонов с другого листа почему то сбиваются форматы ячеек) там где даты- вместо 22.08.2020 заменяет 8.4.20 там где числа - денежный формат где просто красным выделяются отрицательные значения - пишет отрмицательные красным но в скобках.....как победить? в чем проблема-может есть настройки какие ? думал победить УФ

макрорекордером когда применяются Select и Activate другие макросы тупят....применил решение бороды для тех ячеек что цветом выделяются а вот для того что бы даты и числа победить не допедриваю.....

Автор - micholap_denis
Дата добавления - 27.05.2021 в 21:33
Pelena Дата: Четверг, 27.05.2021, 22:13 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 19163
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
вместо
[vba]
Код
.FormatConditions(1).Interior.Color = 255
[/vba]
напишите
[vba]
Код
.FormatConditions(1).NumberFormat = "ММММ ГГГГ"
[/vba]
и я бы ещё в начале добавила
[vba]
Код
.FormatConditions.Delete
[/vba]
чтобы правила не множились


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщениевместо
[vba]
Код
.FormatConditions(1).Interior.Color = 255
[/vba]
напишите
[vba]
Код
.FormatConditions(1).NumberFormat = "ММММ ГГГГ"
[/vba]
и я бы ещё в начале добавила
[vba]
Код
.FormatConditions.Delete
[/vba]
чтобы правила не множились

Автор - Pelena
Дата добавления - 27.05.2021 в 22:13
micholap_denis Дата: Четверг, 27.05.2021, 22:32 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 341
Репутация: 0 ±
Замечаний: 60% ±

Excel 2013
спасибо ща попробую после отпишусь
 
Ответить
Сообщениеспасибо ща попробую после отпишусь

Автор - micholap_denis
Дата добавления - 27.05.2021 в 22:32
micholap_denis Дата: Четверг, 27.05.2021, 22:36 | Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 341
Репутация: 0 ±
Замечаний: 60% ±

Excel 2013
.FormatConditions.Delete
а это помогает чтоб не множились правила приУФ при копировании добавлении строк?
сейчас чтоб не копировались правила УФ- применяю макрос- удаляет все сначала после вставляет обратно для полных диапазонов столбцов
 
Ответить
Сообщение.FormatConditions.Delete
а это помогает чтоб не множились правила приУФ при копировании добавлении строк?
сейчас чтоб не копировались правила УФ- применяю макрос- удаляет все сначала после вставляет обратно для полных диапазонов столбцов

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

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