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

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

- отмену ранее существующей заливки ячеек таблицы;

- заливку красным цветом ячеек таблицы с максимальным недельным объемом продаж (по всей таблице).

Создаем макрос (см. ссылку внизу) и пишем в нем текст:

Sub Заливка_ячеек()

Dim rng As Range

Dim c As Integer

Dim r As Integer

Dim max As Integer

'установка пользовательского диапазона

'для определения количества занятых строк

Set rng = ActiveSheet.UsedRange

'отмена предыдущей заливки

Range(rng.Cells(3, 4), rng.Cells(rng.Rows.Count, 8)).Interior.Pattern = xlNone

'первоначальный максимум равен значению первой ячейки диапазона

max = Cells(3, 4)

'поиск максимума по всем ячейкам с данными продаж

For r = 3 To rng.Rows.Count

    For c = 4 To 8

        If max < Cells(r, c) Then max = Cells(r, c)

    Next c

Next r

'если текущее значение равно максимальному, то

'производится заливка красным  цветом

For r = 3 To rng.Rows.Count

    For c = 4 To 8

        If max = Cells(r, c) Then Cells(r, c).Interior.Color = RGB(255, 0, 0)

    Next c

Next r

Set rng = Nothing   'Освобождение памяти

End Sub

На текущем (активном) листе определяем пользовательский диапазон, очищаем ячейки с данными продаж от заливки.

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

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

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

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