如果选定的单元格是彩色的

Question

是否可以这样做，如果您选择一个单元格，并且它是红色的，会弹出MsgBox？

我试过这样的事情：

Sub isitred()
    If ActiveCell = "vbRed" Then
        MsgBox "ActiveCell is Red"

    End If
End Sub

但它不起作用......有什么想法吗？

Answer 1

您可以尝试：

If ActiveCell.Interior.Color = vbRed Then
  MsgBox ...
End If

如果未定义vbRed，则可以使用值255。