Question

Подскажите, пожалуйста. Как сделать в excel макрос, позволяющий закрашивать (определенным цветом) в выделенном диапазоне ячейки, содержащие формулы? Желательно написать готовый код, буду очень благодарен!

Answer 1

Ответ:

Это можно сделать без макроса.

1. Выделяете диапазон, нажимаете "Условное форматирование".

2. Делайте так, как на фото №1.

Что нужно сделать?

2.1) определяете тип правила: "Использовать формулу для определения форматируемых ячеек".

2.2) пишете формулу: "=ЕФОРМУЛА(M12)", где вместо M12 пишите любую ячейку из выделенной области.

2.3) выбираете необходимый формат.

2.4) нажимаете "ОК".

3. При необходимости можете проверить правило, выделив вашу область и нажав на кнопку "Управление правилами" в условном форматировании.

4. Итог: фото №2.

Answer 2

Конечно, вот пример кода на языке VBA (Visual Basic for Applications), который вы можете использовать для создания макроса в Excel, закрашивающего ячейки с формулами определенным цветом:

Sub ЗакраситьЯчейкиСФормулами()
    Dim яч As Range
    Dim диапазон As Range
    
    ' Указываем диапазон, в котором нужно закрасить ячейки с формулами
    Set диапазон = Selection
    
    ' Проходим по каждой ячейке в указанном диапазоне
    For Each яч In диапазон
        ' Проверяем, содержит ли ячейка формулу
        If яч.HasFormula Then
            ' Задаем цвет заливки для ячейки с формулой (например, красный)
            яч.Interior.Color = RGB(255, 0, 0) ' RGB(красный, зеленый, синий)
        End If
    Next яч
    
    ' Освобождаем ресурсы
    Set яч = Nothing
    Set диапазон = Nothing
End Sub

Вы можете использовать этот код следующим образом:

1. Откройте книгу Excel, в которой вы хотите применить макрос. 2. Нажмите `Alt + F11`, чтобы открыть редактор VBA. 3. В меню выберите "Вставка" -> "Модуль" и вставьте код в окно редактора. 4. Закройте редактор VBA. 5. Выберите диапазон ячеек, в котором вы хотите закрасить ячейки с формулами. 6. Нажмите `Alt + F8`, выберите "ЗакраситьЯчейкиСФормулами" и нажмите "Выполнить".

Обратите внимание, что код использует красный цвет для заливки, и вы можете изменить значения в `RGB(255, 0, 0)` на другие значения, если хотите использовать другой цвет.