Пользовательские функции Excel Часть 2-2 Вариант 7

Создать макрос (процедуру-подпрограмму), обеспечивающий следующие действия:
- отмену ранее существующей заливки ячеек таблицы;
- заливку зеленым цветом ячеек таблицы, в которых отработка больше 10 часов.
Создаем макрос, пишем текст:

Sub Заливка_ячеек()
Dim rng As Range
Dim c As Integer
Dim r As Integer
'установка пользовательского диапазона
'для определения количества занятых строк
Set rng = ActiveSheet.UsedRange
'отмена предыдущей заливки
Range(rng.Cells(3, 4), rng.Cells(rng.Rows.Count, 10)).Interior.Pattern = xlNone
'если текущее значение больше 10 часов , то
'производится заливка зеленым  цветом
For r = 3 To rng.Rows.Count
    For c = 4 To 10
        If Cells(r, c) > 10 Then Cells(r, c).Interior.Color = RGB(0, 255, 0)
    Next c
Next r
Set rng = Nothing   'Освобождение памяти
End Sub

Чтобы не устанавливать жестко диапазон ячеек и, соответственно, не зависеть от числа строк в таблице, определим пользовательский диапазон на активном (текущем) листе. Затем очистим его от предыдущей заливки.
Затем с помощью вложенного цикла пройдем по всем ячейкам с данными, и, если значение в ячейке больше 10, закрасим ее зеленым цветом.

Дополнительные материалы к этому посту

Общее описание и подробности для всех вариантов, список вариантов

Общий список всех сообщений по этой работе