Как раскрасить ячейки с формулами в Excel

[SAS888]

Для активного листа выполните макрос:

Sub CellsColor()
    Dim cell As Range, a As Range: Application.ScreenUpdating = False
    Cells.Font.ColorIndex = 0: On Error Resume Next
    Cells.SpecialCells(xlCellTypeConstants, xlNumbers).Font.Bold = True
    For Each cell In Cells.SpecialCells(xlCellTypeFormulas)
        cell.Font.Bold = True: Set a = Range(Replace(cell.Formula, "=", ""))
        If a Is Nothing Then cell.Font.ColorIndex = 3 Else Set a = Nothing
        If UBound(Split(cell.Formula, "!")) > 0 Then cell.Font.ColorIndex = 5
    Next
End Sub

Пример во вложении.

[Tidus]

Спасибо. А нельзя ли сделать так, что бы ячейка сразу окрашивалась после каждого редактирования, ато постоянно вручную запускать макрос как-то не удобно

[SAS888]

Можно. Пример во вложении. Попробуйте добавить на лист значение, формулу, ссылку на другой лист и т.п.

[Tidus]

Сообщение от SAS888

Можно. Пример во вложении. Попробуйте добавить на лист значение, формулу, ссылку на другой лист и т.п.

1. Добавляю на лист простое значение в ячейку с синим цветом шрифта, а оно не перекрашивает его в черный цвет.
2. Нельзя ли 1 макрос оставить, который распространяется на весь лист - я его буду вручную запускать. Но добавить 2 макрос, который уже отслеживал бы действия и раскрашивал бы только последнюю редактируемую ячейку, а не весь лист, ато при каждом обновлении всего листа бывает подтормаживает.

[SAS888]

Посмотрите вложение. Так будет и правильно и быстро. При вводе новых значений (формул, ссылок и т.п.), обрабатываются не все, а только измененные ячейки. Допускается работа с диапазонами ячеек. А для первоначального окрашивания того, что уже имеется на листе, используйте предыдущий макрос. Можно его выполнять каждый раз, по событию открытия книги, но это ни к чему. Достаточно выполнить его 1 раз, запустив вручную.

[Tidus]

Спасибо.
1. Но всё же тормозит на секунду после каждого элементарного редактирования. Наверное тормозит из-за большого количества данных на листе. Хотя без макроса всё работает без тормозов.
2. И ещё этот макрос после действий в верхнем углу Экселя исчезает кнопка отмены и действия нельзя вернуть в исходное положение, что не дает возможности его использовать. В макросе от Эдукэшион такого не происходит. Обратите внимание.

[Tidus]

SAS888, реально ли ускорить работу макроса, что бы он не подвисал после каждого редактирования?

[SAS888]

Предложенный макрос не должен "тормозить". Он обрабатывает только изменяемую ячейку (ячейки). Прикрепите проблемный файл - разберемся.

[Каравай]

А возможно ли стандартными способами окрашивать ячейку привязанную к списку в нужный цвет по условию? Допустим список - цифры с 1 до 10, если поставил с 1 до 5 - красный цвет, 6-10 - зелёный(пример просто)?

[Serge 007]

Сообщение от Каравай

А возможно ли стандартными способами окрашивать ячейку привязанную к списку в нужный цвет по условию? Допустим список - цифры с 1 до 10, если поставил с 1 до 5 - красный цвет, 6-10 - зелёный(пример просто)?

См. пример.