嘿，我来给你一步步拆解这两个问题，都是靠VBA来实现的，亲测好用！

普通表单控件的复选框本身没有自带事件触发，得给它绑定宏来实现颜色变化：

• 先插入普通复选框：点击「开发工具」→「控件」→「插入」→「表单控件」里的复选框，在工作表上画一个。
• 右键复选框，选择「指定宏」，新建一个宏，比如命名为ToggleCheckboxColor。
• 把下面的代码粘贴进去：

Sub ToggleCheckboxColor()
    Dim cb As Shape
    Set cb = ActiveSheet.Shapes(Application.Caller)
    
    ' 判断复选框是否被勾选
    If cb.ControlFormat.Value = xlOn Then
        ' 勾选时设置文本为红色
        cb.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = vbRed
    Else
        ' 未勾选时恢复黑色
        cb.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = vbBlack
    End If
End Sub

• 保存文件为「启用宏的工作簿（.xlsm）」，勾选/取消勾选复选框，就能看到文本颜色变化啦。

ActiveX控件自带事件，处理起来更灵活，分两部分说：

2.1 修改文本颜色 #

• 插入ActiveX复选框：「开发工具」→「控件」→「插入」→「ActiveX控件」里的复选框，画在工作表上。
• 右键复选框，选择「查看代码」，会自动打开VBA编辑器并定位到该复选框的Click事件。
• 粘贴下面的代码（注意：CheckBox1要和你的实际控件名称对应，可在属性窗口修改控件名）：

Private Sub CheckBox1_Click()
    ' 根据勾选状态切换文本颜色
    If Me.CheckBox1.Value = True Then
        Me.CheckBox1.ForeColor = vbBlue ' 勾选时设为蓝色
    Else
        Me.CheckBox1.ForeColor = vbBlack ' 未勾选时黑色
    End If
End Sub

2.2 修改勾选标记（对勾）的颜色 #

默认情况下，ActiveX复选框的对勾颜色跟着系统主题走，要自定义得用Windows API实现，步骤如下：

• 在VBA编辑器的「模块」里插入新模块，粘贴兼容32/64位Excel的API声明：

#If VBA7 Then
    Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" _
        (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
#Else
    Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
        (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
#End If

Const BM_SETCHECK = &HF1
Const BCM_SETCOLOR = &H1601 ' 设置复选框颜色的消息

• 回到ActiveX复选框的Click事件，修改代码为：

Private Sub CheckBox1_Click()
    Dim hwnd As LongPtr
    hwnd = Me.CheckBox1.hwnd
    
    ' 切换文本颜色
    If Me.CheckBox1.Value = True Then
        Me.CheckBox1.ForeColor = vbBlue
        ' 设置勾选标记为绿色
        SendMessage hwnd, BCM_SETCOLOR, 0, vbGreen
    Else
        Me.CheckBox1.ForeColor = vbBlack
        ' 未勾选时恢复默认颜色（这里用黑色，也可改成你要的颜色）
        SendMessage hwnd, BCM_SETCOLOR, 0, vbBlack
    End If
End Sub

这样勾选时对勾会变成绿色，文本变蓝色；取消勾选时恢复黑色。

内容的提问来源于stack exchange，提问作者cristi m