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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос закрашивает все подряд - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос закрашивает все подряд (Макросы/Sub)
Макрос закрашивает все подряд
Tavlar Дата: Среда, 20.01.2021, 14:57 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 63
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Здравствуйте. Подскажите, пожалуйста
[vba]
Код
For Each iCell In .Range("A1:AC215")
                Select Case iCell
                    Case Is = "Есть"
                        iCell.Interior.Color = vbRed
                    Case Is = "Нет"
                        iCell.Interior.Color = vbBlue
                    Case Is = "В процессе"
                        iCell.Interior.Color = vbGreen
                    Case Is > Date + 15
                        iCell.Interior.Color = vbYellow
                       End Select
            Next
[/vba]
нужно закрасить ячейки с датами по условию
Код
  Case Is > Date + 15
                        iCell.Interior.Color = vbYellow

но закрашиваются и ячейки с текстом. Как можно сделать так, чтобы закрашивались только ячейки с датами п оусловию?
 
Ответить
СообщениеЗдравствуйте. Подскажите, пожалуйста
[vba]
Код
For Each iCell In .Range("A1:AC215")
                Select Case iCell
                    Case Is = "Есть"
                        iCell.Interior.Color = vbRed
                    Case Is = "Нет"
                        iCell.Interior.Color = vbBlue
                    Case Is = "В процессе"
                        iCell.Interior.Color = vbGreen
                    Case Is > Date + 15
                        iCell.Interior.Color = vbYellow
                       End Select
            Next
[/vba]
нужно закрасить ячейки с датами по условию
Код
  Case Is > Date + 15
                        iCell.Interior.Color = vbYellow

но закрашиваются и ячейки с текстом. Как можно сделать так, чтобы закрашивались только ячейки с датами п оусловию?

Автор - Tavlar
Дата добавления - 20.01.2021 в 14:57
китин Дата: Среда, 20.01.2021, 15:17 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Tavlar, - Прочитайте Правила форума
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форума


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеTavlar, - Прочитайте Правила форума
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форума

Автор - китин
Дата добавления - 20.01.2021 в 15:17
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос закрашивает все подряд (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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