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

[Каравай]

Даааа это оно! Поясните, пожалуйста, Великомудрый.

[Serge 007]

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

Даааа это оно! Поясните, пожалуйста, Великомудрый.

Всё просто. Выделите столбец А - меню Формат - Условное форматирование. Смотрите, там заданы Ваши условия.

[Каравай]

Благодарен..

[Tidus]

СПАСИБО ОГРОМНОЕ ГЕНИАЛЬНОМУ ЧЕЛОВЕКУ SAS888 за доработанный код.
Теперь раскрашивание ячеек происходит мгновенно без задержек.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim cell As Range
    Application.EnableEvents = False: On Error Resume Next
    With Target
        .Font.ColorIndex = 0: .Font.Bold = False
        .Cells.SpecialCells(xlCellTypeConstants, xlNumbers).Font.Bold = True
        .Cells.SpecialCells(xlCellTypeFormulas).Font.Bold = True
    End With
    For Each cell In Intersect(Target, Cells.SpecialCells(xlCellTypeFormulas))
        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
    Application.EnableEvents = True
End Sub

Остался последний вопрос по этому макросу:
1. Как сделать, что бы после срабатывания макроса в экселе не пропадала кнопка отмены предыдущих изменений.

[motorway]

Насколько я знаю, макросы отменять нельзя

[SAS888]

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

[Tidus]

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

Действия, выполненные макросом отменять можно (метод OnUndo), но не любого макроса и не всегда.

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

[SAS888]

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

Это невозможно. После работы любого макроса, кнопка отмены становится неактивной. Используя метод OnUndo, в меню "Правка" появится активная команда "Отменить (имя макроса)". Но, как я уже говорил, в данном случае это не применимо.

[Tidus]

Ок спасибо.

[petretr]

Такой вопрос. При окрашивании шрифта в определенный цвет в некоторых ячейках он не сохраняется и становится обратно черным, а в других точно таких же ячейках все нормально. Что нужно сделать, чтобы выбранный цвет сохранялся?