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

Вход

Регистрация

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

 

= Мир MS Excel/Если ячейка пуста, то окрасить её фон - Мир MS Excel

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

Excel 2010
Доброе время дамы и господа :D
Простой макрос,.. казалось мне так на первых минутах.
Простое условие: Если ячейка в 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(13Kb)
 
Ответить
СообщениеДоброе время дамы и господа :D
Простой макрос,.. казалось мне так на первых минутах.
Простое условие: Если ячейка в 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]

Автор - Yar4i
Дата добавления - 23.09.2016 в 15:14
_Boroda_ Дата: Пятница, 23.09.2016, 15:22 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 9346
Репутация: 3922 ±
Замечаний: 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(17Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак хотели?
[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]

Автор - _Boroda_
Дата добавления - 23.09.2016 в 15:22
Udik Дата: Пятница, 23.09.2016, 15:28 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1201
Репутация: 152 ±
Замечаний: 0% ±

Excel 2013
Ну так уберите строку с Delete, для заливки
[vba]
Код

ActiveSheet.Cells(i, 4).Interior.Color = vbYellow

[/vba]


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеНу так уберите строку с Delete, для заливки
[vba]
Код

ActiveSheet.Cells(i, 4).Interior.Color = vbYellow

[/vba]

Автор - Udik
Дата добавления - 23.09.2016 в 15:28
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Если ячейка пуста, то окрасить её фон (Макросы/Sub)
Страница 1 из 11
Поиск:

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