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

Вход

Регистрация

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

 

= Мир MS Excel/цвет строки по условию - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » цвет строки по условию (Макросы/Sub)
цвет строки по условию
Asretyq Дата: Суббота, 24.11.2018, 16:56 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день
в колоне D имеются даты
необходимо выделить строку другим цветом при условии что дата соответствует сегодняшней дате
можно сделать перебирая каждую ячейку, но думаю есть более рациональное решение
какой формулой решается данная задача?
К сообщению приложен файл: 444.xlsm (26.4 Kb)
 
Ответить
СообщениеДобрый день
в колоне D имеются даты
необходимо выделить строку другим цветом при условии что дата соответствует сегодняшней дате
можно сделать перебирая каждую ячейку, но думаю есть более рациональное решение
какой формулой решается данная задача?
Автор - Asretyq
Дата добавления - 24.11.2018 в 16:56
boa Дата: Суббота, 24.11.2018, 17:10 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 550
Репутация: 167 ±
Замечаний: 0% ±

365
Asretyq,
Добрый день,
Такую задачу можно решить условным форматированием.
К сообщению приложен файл: 2885059.xlsm (20.3 Kb)

 
Ответить
СообщениеAsretyq,
Добрый день,
Такую задачу можно решить условным форматированием.
Автор - boa
Дата добавления - 24.11.2018 в 17:10
Asretyq Дата: Суббота, 24.11.2018, 17:14 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
boa, тему еще не успел создать уже ответил)))))
спасибо вам!
 
Ответить
Сообщениеboa, тему еще не успел создать уже ответил)))))
спасибо вам!
Автор - Asretyq
Дата добавления - 24.11.2018 в 17:14
boa Дата: Суббота, 24.11.2018, 17:16 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 550
Репутация: 167 ±
Замечаний: 0% ±

365
Asretyq, повезло ;)
только пришел, включил комп, а тут вопрос...

 
Ответить
СообщениеAsretyq, повезло ;)
только пришел, включил комп, а тут вопрос...
Автор - boa
Дата добавления - 24.11.2018 в 17:16
Michael_S Дата: Суббота, 24.11.2018, 17:18 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
Цитата Asretyq, 24.11.2018 в 16:56, в сообщении № 1 ()
необходимо выделить строку другим цветом при условии что дата соответствует сегодняшней дате
выделить все строки с текущей датой? УФ не устроит?

упс... пока смотрел, перекуривал, писал - а тут уже ответ готов.
Ну тогда скажу, что такой макрос (подкрашивание строки)
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Rows.Count > 1 Then Exit Sub
    Cells.Interior.ColorIndex = 35
    Range("a" & Target.Row & ":e" & Target.Row).Interior.ColorIndex = 3
    Range("a1:e1").Interior.ColorIndex = 8
End Sub
[/vba]
то же работает


Сообщение отредактировал Michael_S - Суббота, 24.11.2018, 17:21
 
Ответить
Сообщение
Цитата Asretyq, 24.11.2018 в 16:56, в сообщении № 1 ()
необходимо выделить строку другим цветом при условии что дата соответствует сегодняшней дате
выделить все строки с текущей датой? УФ не устроит?

упс... пока смотрел, перекуривал, писал - а тут уже ответ готов.
Ну тогда скажу, что такой макрос (подкрашивание строки)
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Rows.Count > 1 Then Exit Sub
    Cells.Interior.ColorIndex = 35
    Range("a" & Target.Row & ":e" & Target.Row).Interior.ColorIndex = 3
    Range("a1:e1").Interior.ColorIndex = 8
End Sub
[/vba]
то же работает
Автор - Michael_S
Дата добавления - 24.11.2018 в 17:18
Asretyq Дата: Суббота, 24.11.2018, 17:31 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Michael_S, спасибо вам
изначально думал только макросом можно, а оказывается boa, опроверг мою мысль))
 
Ответить
СообщениеMichael_S, спасибо вам
изначально думал только макросом можно, а оказывается boa, опроверг мою мысль))
Автор - Asretyq
Дата добавления - 24.11.2018 в 17:31
Asretyq Дата: Понедельник, 26.11.2018, 10:54 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
В общем вставляю через дату - строка не выделяется, добавляю дату вручную или клацаю в ячейку и на ентер, срабатывает
условное форматирование не распознает программно дату, да и пробовал через условие формулой, типа если =, то, тоже не видит дату...
в чем соль то?
К сообщению приложен файл: 123.xlsm (50.9 Kb)
 
Ответить
СообщениеВ общем вставляю через дату - строка не выделяется, добавляю дату вручную или клацаю в ячейку и на ентер, срабатывает
условное форматирование не распознает программно дату, да и пробовал через условие формулой, типа если =, то, тоже не видит дату...
в чем соль то?
Автор - Asretyq
Дата добавления - 26.11.2018 в 10:54
RAN Дата: Понедельник, 26.11.2018, 11:14 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Использованный в файле календарь работает не правильно.
Смените на нормально работающий.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеИспользованный в файле календарь работает не правильно.
Смените на нормально работающий.
Автор - RAN
Дата добавления - 26.11.2018 в 11:14
Asretyq Дата: Понедельник, 26.11.2018, 11:19 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
RAN, а где скачать правильный?))
я находил много календарей, может есть на этом сайте


Сообщение отредактировал Asretyq - Понедельник, 26.11.2018, 11:19
 
Ответить
СообщениеRAN, а где скачать правильный?))
я находил много календарей, может есть на этом сайте
Автор - Asretyq
Дата добавления - 26.11.2018 в 11:19
RAN Дата: Понедельник, 26.11.2018, 11:22 | Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
На этом форуме, в "Готовых решениях" три календаря - Vovak, Alex_ST, SLAVIK, на планете - Слэна.
Все рабочие.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеНа этом форуме, в "Готовых решениях" три календаря - Vovak, Alex_ST, SLAVIK, на планете - Слэна.
Все рабочие.
Автор - RAN
Дата добавления - 26.11.2018 в 11:22
Asretyq Дата: Понедельник, 26.11.2018, 11:33 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 200
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
RAN, благодарю, сейчас гляну
 
Ответить
СообщениеRAN, благодарю, сейчас гляну
Автор - Asretyq
Дата добавления - 26.11.2018 в 11:33
boa Дата: Понедельник, 26.11.2018, 11:42 | Сообщение № 12
Группа: Друзья
Ранг: Ветеран
Сообщений: 550
Репутация: 167 ±
Замечаний: 0% ±

365
Asretyq,
вы вставляете дату как тест.
исправьте в модуле класса "DateClass" строку
[vba]
Код
           ActiveCell.Value = CDate(CurrentDay & "." & Format(Mon, "00") & "." & Trim(CurrentYear))
[/vba]

 
Ответить
СообщениеAsretyq,
вы вставляете дату как тест.
исправьте в модуле класса "DateClass" строку
[vba]
Код
           ActiveCell.Value = CDate(CurrentDay & "." & Format(Mon, "00") & "." & Trim(CurrentYear))
[/vba]
Автор - boa
Дата добавления - 26.11.2018 в 11:42
RAN Дата: Понедельник, 26.11.2018, 11:54 | Сообщение № 13
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
boa, эта строка вставляет текст, если календарь не способен преобразовать дату в дату.
Вопрос - почему он на это не способен?
Лично мне искать причину лень. :)

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщениеboa, эта строка вставляет текст, если календарь не способен преобразовать дату в дату.
Вопрос - почему он на это не способен?
Лично мне искать причину лень. :)
Автор - RAN
Дата добавления - 26.11.2018 в 11:54
Мир MS Excel » Вопросы и решения » Вопросы по VBA » цвет строки по условию (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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