Или Интерьер.Цветное Заявление Excel VBA

Question

Мне нужна помощь с оператором Or в VBA. У меня установлен условный формат, в котором, если ячейка выделена красным ИЛИ оранжевым, предотвратить сохранение.

For Each rng In Worksheets(1).UsedRange
If rng.DisplayFormat.Interior.Color = vbRed Or rng.DisplayFormat.Interior.Color = #FF9900 Then 'This is where the code is erroring, may be I'm not referring to the color correctly. 
    MsgBox ("Please correct any fields highlighted in red")
    Cancel = True
    Application.ScreenUpdating = True
    Exit Sub
End If
Next rng

Спасибо!

Answer 1

Удалить .DisplayFormat

Sub test()

Dim Rng as Range

For Each Rng In Worksheets(1).UsedRange

If Rng.Interior.Color = vbRed Or Rng.Interior.Color = 49407 Then
    MsgBox ("Please correct any fields highlighted in red")
    Cancel = True
    Application.ScreenUpdating = True
    Exit Sub
End If

Next Rng

End Sub