如果选定的单元格被着色

是否有可能做到这一点，如果你select一个单元格，它是红色的，一个MsgBox会popup？

我尝试了这样的事情：

 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。