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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос для применения условного форматирования по дате - Мир MS Excel

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

Excel 2019
Добрый день!
нужна помощь - имеется таблица с определенными датами. Нужно к этим датам через VBA прикрутить условное форматирование типа "значки". Т.е. если дата равна сегодня или уже просрочена, то значок красный, если в этом месяце - желтый и в следующем - зеленый.
Сколько бы голову не ломал, а так ничего и не придумал..
заранее спасибо
К сообщению приложен файл: 5141371.xlsx(12.1 Kb)
 
Ответить
СообщениеДобрый день!
нужна помощь - имеется таблица с определенными датами. Нужно к этим датам через VBA прикрутить условное форматирование типа "значки". Т.е. если дата равна сегодня или уже просрочена, то значок красный, если в этом месяце - желтый и в следующем - зеленый.
Сколько бы голову не ломал, а так ничего и не придумал..
заранее спасибо

Автор - Artem2292
Дата добавления - 12.08.2020 в 17:11
Nic70y Дата: Четверг, 13.08.2020, 08:13 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 6526
Репутация: 1437 ±
Замечаний: 0% ±

ru13;10;03
потренировался на рекордере - вроде получилось)
[vba]
Код
Sub u_16()
    Application.ScreenUpdating = False
    Dim u_4, u_5 As Double
    u_1 = Date
    u_2 = Year(u_1)
    u_3 = Month(u_1)
    u_4 = DateSerial(u_2, u_3 + 1, 1)
    u_5 = u_1 + 1
    u = Cells(Rows.Count, "a").End(xlUp).Row
    Range("a2:a" & u).FormatConditions.Delete
    Range("a2:a" & u).FormatConditions.AddIconSetCondition
    With Range("a2:a" & u).FormatConditions(1)
        .ReverseOrder = False
        .ShowIconOnly = False
        .IconSet = ActiveWorkbook.IconSets(xl3Symbols)
    End With
    With Range("a2:a" & u).FormatConditions(1).IconCriteria(2)
        .Type = xlConditionValueNumber
        .Value = u_5
        .Operator = 7
    End With
    With Range("a2:a" & u).FormatConditions(1).IconCriteria(3)
        .Type = xlConditionValueNumber
        .Value = u_4
        .Operator = 7
    End With
    Application.ScreenUpdating = True
End Sub
[/vba]
К сообщению приложен файл: 2314013.xlsm(23.5 Kb)


Яндекс Деньги 41001841029809
 
Ответить
Сообщениепотренировался на рекордере - вроде получилось)
[vba]
Код
Sub u_16()
    Application.ScreenUpdating = False
    Dim u_4, u_5 As Double
    u_1 = Date
    u_2 = Year(u_1)
    u_3 = Month(u_1)
    u_4 = DateSerial(u_2, u_3 + 1, 1)
    u_5 = u_1 + 1
    u = Cells(Rows.Count, "a").End(xlUp).Row
    Range("a2:a" & u).FormatConditions.Delete
    Range("a2:a" & u).FormatConditions.AddIconSetCondition
    With Range("a2:a" & u).FormatConditions(1)
        .ReverseOrder = False
        .ShowIconOnly = False
        .IconSet = ActiveWorkbook.IconSets(xl3Symbols)
    End With
    With Range("a2:a" & u).FormatConditions(1).IconCriteria(2)
        .Type = xlConditionValueNumber
        .Value = u_5
        .Operator = 7
    End With
    With Range("a2:a" & u).FormatConditions(1).IconCriteria(3)
        .Type = xlConditionValueNumber
        .Value = u_4
        .Operator = 7
    End With
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 13.08.2020 в 08:13
YouGreed Дата: Четверг, 13.08.2020, 08:13 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 564
Репутация: 119 ±
Замечаний: 0% ±

Excel 2010
Artem2292, А чем Вам функционал УФ не подходит?
К сообщению приложен файл: 0047200.xlsx(13.3 Kb)
 
Ответить
СообщениеArtem2292, А чем Вам функционал УФ не подходит?

Автор - YouGreed
Дата добавления - 13.08.2020 в 08:13
Artem2292 Дата: Четверг, 13.08.2020, 14:59 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Artem2292, А чем Вам функционал УФ не подходит?

УФ не совсем корректно проставляет значки. Так же делал через формулу "сегодня+дни" и начало сентября подсвечивает желтым значком, а нужно зеленым. Т.е. необходима четкая разбивка: прошедшие даты, этот месяц и следующий
 
Ответить
Сообщение
Artem2292, А чем Вам функционал УФ не подходит?

УФ не совсем корректно проставляет значки. Так же делал через формулу "сегодня+дни" и начало сентября подсвечивает желтым значком, а нужно зеленым. Т.е. необходима четкая разбивка: прошедшие даты, этот месяц и следующий

Автор - Artem2292
Дата добавления - 13.08.2020 в 14:59
Artem2292 Дата: Четверг, 13.08.2020, 14:59 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
потренировался на рекордере - вроде получилось)

вот это огонь, то что нужно. спасибо!!
 
Ответить
Сообщение
потренировался на рекордере - вроде получилось)

вот это огонь, то что нужно. спасибо!!

Автор - Artem2292
Дата добавления - 13.08.2020 в 14:59
Maxxxis Дата: Суббота, 29.08.2020, 23:46 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
потренировался на рекордере - вроде получилось)


подскажите, а как этот макрос отредактировать под похожую задачу, но с 4-мя значками? т.е. все прошедшее - черное, этот месяц - красное, следующий - желтое, а все остальное - зеленое..
пытаюсь ввести новую переменную, но ничего не выходит, т.к. в VBA полный ноль..
 
Ответить
Сообщение
потренировался на рекордере - вроде получилось)


подскажите, а как этот макрос отредактировать под похожую задачу, но с 4-мя значками? т.е. все прошедшее - черное, этот месяц - красное, следующий - желтое, а все остальное - зеленое..
пытаюсь ввести новую переменную, но ничего не выходит, т.к. в VBA полный ноль..

Автор - Maxxxis
Дата добавления - 29.08.2020 в 23:46
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для применения условного форматирования по дате (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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