Как выбрать и форматировать диапазон

Что делает макрос: Данный макрос позволяет выбрать и форматировать именованный диапазон, выделив его желтым цветом.

Как макрос работает

В этом макросе, мы пробегаем по коллекции имен активной книги, чтобы захватить каждый именованный диапазон. Когда именованный диапазон захвачен, мы указываем цвет диапазона.

Код макроса

Sub FormatirovatDiapazon()
'Шаг 1: Объявляем переменные
Dim RangeName As Name
Dim HighlightRange As Range
'Шаг 2: Говорим Excel продолжать, если ОШИБКА
On Error Resume Next
'Шаг 3: Цикл проходит через каждый именованный диапазон
For Each RangeName In ActiveWorkbook.Names
'Шаг 4: Захват диапазона
Set HighlightRange = RangeName.RefersToRange
'Шаг 5: Раскрасьте диапазон
HighlightRange.Interior.ColorIndex = 36
'Шаг 6: Повторяем цикл, чтобы получить следующий диапазон
Next RangeName
End Sub

Как этот код работает

1. Сначала объявляются две переменные объекта. Первая переменная называется RangeName, имеет каждый именованный диапазон, так как макрос проходит через коллекцию имен. Вторая переменная называется HighlightRange, захватывает диапазон, к которому RangeName указывает ссылку.
2. Технически, пользователь Excel может присвоить «имя» к объектам, которые на самом деле не являются диапазонами (например, константы или формулы). Поэтому Excel выдаст сообщение об ошибке, если свойство RefersToRange названного диапазона не представляет собой диапазон адресов. На этом шаге мы говорим Excel игнорировать любую ошибку, и переходить к следующей строке кода. Это гарантирует, что код не остановится из-за ошибочного диапазона адресов.
3. На этом этапе макрос начинает цикл по каждому имени коллекции имен в активных рабочих книгах.
4. После того, как именованный диапазон активируется, макрос фиксирует адрес в нашей переменной объекта HighlightRange.
5. На шаге 5, мы назначаем цвет ячеек в выбранном диапазоне.
6. И, наконец, мы повторяем цикл, чтобы получить следующий названный диапазон. Макрос заканчивается после того, как мы прошли через все имена.

Как использовать

1. Активируйте редактор Visual Basic, нажав ALT + F11.
2. Щелкните правой кнопкой мыши personal.xlb в окне Project.
3. Выберите Insert➜Module.
4. Введите или вставьте код.