Макрос закрашивает все подряд

Вход

Регистрация

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

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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Макрос закрашивает все подряд (Макросы/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

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

Ответить

китин

Дата: Среда, 20.01.2021, 15:17 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

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

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Макрос закрашивает все подряд (Макросы/Sub)

Страница 1 из 1
1