Если ячейка пуста, то окрасить её фон

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Если ячейка пуста, то окрасить её фон (Макросы/Sub)

Yar4i

Дата: Пятница, 23.09.2016, 15:14 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 137

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

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

Excel 2010

Доброе время дамы и господа

Простой макрос,.. казалось мне так на первых минутах.
Простое условие: Если ячейка в 4ом столбце после 20 строки (включительно и до неизвестной, но заполненной нижней ячейки этого же 4го столбца) пустая, то окрасить её фон в жёлтый цвет.
Макрос пытался приобщить из похожей темы, но он удаляет полностью строку (Rows(i).Delete):
[vba]

Код

GD = Range("D" & Rows.Count).End(xlUp).Row
For i = GD To 20 Step -1
If Cells(i, 4) = "" Or Cells(i, 4).Value Like "0" Then
Rows(i).Delete
'Cells(i).Color = vbYellow 'как-то так
End If
Next

[/vba]

К сообщению приложен файл: 9961962.xlsx (12.9 Kb)

Ответить

_Boroda_

Дата: Пятница, 23.09.2016, 15:22 | Сообщение № 2

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

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Так хотели?
[vba]

Код

Sub tt()
    r0_ = 20
    r1_ = Range("D" & Rows.Count).End(xlUp).Row
    For i = r0_ To r1_
        If Range("D" & i) = "" Then
            Range("D" & i).Interior.ColorIndex = 6
        End If
    Next i
End Sub

[/vba]

К сообщению приложен файл: 9961962_1.xlsm (16.6 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995