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

如果您选择一个单元格，并且该单元格被涂成红色，则会弹出一个

MsgBox

，这是否可行

我试过这样的方法：

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

    End If
End Sub

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

你可以试试：

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

---

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

如果activecell=vbredIt有效，如何在没有按钮的情况下启动此代码？我的意思是，msgbox会在你点击红细胞后出现？问题是，你希望整体行为是什么？一般来说，我读过Excel宏。当打开电子表格、按下某个热键组合或按钮时，宏可能会被启动。这一切都取决于你自己requirements@Faux我想说的是，当你用箭头键穿过单元格，踩到红细胞时，会弹出一条消息：“我怎么能这样做呢？”@Faux，看一下工作表更改事件。