请教，可以通过Excel VBA判断复选框是黑色的，还是红色的吗？选中为红色，未选为黑色。

Question

如题所述

Answer 1

假设复选框名称为CheckBox1，你可以在对应的CheckBox1控件的Click事件中写代码如下：
Private Sub CheckBox1_Click()
If Me.CheckBox1.Value = True Then
Me.CheckBox1.ForeColor = 255 ' 勾选后字体变为红色
Else
Me.CheckBox1.ForeColor = 0 ' 取消选择后字体变为黑色
End If
End Sub

Answer 2

你指什么颜色？判断颜色？还是说 判断是否选中分别显示不同颜色？显示哪里的颜色？