Проверьте значение ячейки для применяемого активного формата?

Question

Есть ли способ проверить, есть ли у ряда ячеек определенный формат условного обозначения, например, выделена ли ячейка, если бла-бла-бла ...?

Answer 1

Выберите ячейки, которые вы хотите проверить и выполните:

Sub fourmat()
    Dim r As Range, msg As String

    msg = ""
    For Each r In Selection
        msg = msg & vbCrLf & r.Address(0, 0) & vbTab & r.FormatConditions.Count
    Next r
    MsgBox msg
End Sub

Он перечислит каждую ячейку и количество условных форматов, связанных с этой ячейкой:

EDIT # 1:

Вы можете проверить текущее состояние формата ячейки с помощью Range.Свойство DisplayFormat, но вам нужно будет иметь возможность связать определенную часть формата с определенным условием.

Например, он скажет вам, если ячейка выделена жирным шрифтом, но вы должны знать, в каком состоянии она выделена жирным шрифтом!