Как отобрать и отформатировать все формулы на листе в Excel

При просмотре рабочей книги Excel нужно иметь четкое представление о всех формулах на каждом листе. Найти все формулы — трудная задача, если все делать вручную. Но Excel предоставляет нам удобный способ поиска и маркировки всех формул на листе. Макрос в этом разделе использует эту функцию, чтобы динамически отобрать и отформатировать все формулы на листе.

В Excel есть набор предопределенных «специальных ячеек», которые можно выбрать с помощью диалогового окна «Найти и выделить – Выделить группу ячеек». Чтобы вручную выбрать специальные ячейки, перейдите на вкладку «Главная» на ленте и выберите «Найти и выделить – Выделить группу ячеек». Это вызывает диалоговое окно Выделить группу ячеек. Здесь вы можете выбрать набор ячеек на основе нескольких определяющих атрибутов. Одним из определяющих атрибутов являются формулы. Опция эффективно выделяет все ячейки, которые содержат формулы.

Этот макрос программно делает то же самое для всей книги одновременно. Мы используем метод SpecialCells из коллекции Cells. Метод SpecialCells требует параметр типа, который представляет тип специальной ячейки. В этом случае мы используем xlCell- TypeFormulas.

Короче говоря, мы имеем в виду специальный диапазон, который состоит только из ячеек, содержащих формулы. Мы ссылаемся на этот специальный диапазон с помощью оператора With … End With. Это утверждение говорит Excel, что любое выполняемое вами действие относится только к тому диапазону, на который вы указали. 

1. Шаг 1 объявляет объект под названием WS. Это создает контейнер памяти для каждого листа макросов. 

2. Если таблица не содержит формулы, Excel выдает ошибку. Чтобы избежать ошибки, мы говорим Excel, что нужно продолжать, если будет ошибка. 

3. Шаг 3 начинает цикл, говоря Excel оценить все рабочие листы в активной книге. 

4. В этом шаге, макрокоманда выбирает все ячейки, содержащие формулы, а затем форматирует их. 

5. На шаге 5, мы возвращаемся к шагу 3, чтобы получить следующий лист. После того, как все листы оценены, макрос заканчивает работу. 

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

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