我来帮你搞定这个双击切换复选标记颜色的需求！之前代码无效大概率是因为没把代码放在正确的工作表模块里，或者逻辑判断有疏漏，下面是完整的解决方案：

步骤1：打开目标工作表的VBA代码窗口 #

1. 打开你的Excel文件，按下 Alt + F11 启动VBA编辑器
2. 在左侧「工程资源管理器」里找到你要实现功能的工作表（比如Sheet1），双击它打开代码编辑区

步骤2：粘贴以下VBA代码 #

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' 定义目标单元格范围：B7到C150
    Dim targetRange As Range
    Set targetRange = Me.Range("B7:C150")
    
    ' 检查双击的单元格是否在目标范围内
    If Not Intersect(Target, targetRange) Is Nothing Then
        ' 限制为单个单元格操作（避免多选时出错）
        If Target.Cells.Count = 1 Then
            ' 验证当前单元格是Wingdings字体的复选标记（Chr(252)对应Wingdings的复选符号）
            If Target.Font.Name = "Wingdings" And Target.Value = Chr(252) Then
                ' 切换颜色：灰色(#BEBEBE) ↔ 绿色(#008000)
                If Target.Font.Color = RGB(190, 190, 190) Then
                    Target.Font.Color = RGB(0, 128, 0)
                Else
                    Target.Font.Color = RGB(190, 190, 190)
                End If
                ' 取消默认双击进入编辑模式的行为，让操作更流畅
                Cancel = True
            Else
                ' 可选：如果单元格没有复选标记，双击自动添加灰色标记
                ' Target.Value = Chr(252)
                ' Target.Font.Name = "Wingdings"
                ' Target.Font.Color = RGB(190, 190, 190)
                ' Cancel = True
            End If
        End If
    End If
End Sub

关键细节说明 #

• Worksheet_BeforeDoubleClick是工作表级别的事件，必须放在对应工作表的模块里才会生效（这是很多人踩坑的核心点！）
• 先判断双击范围是否在B7:C150内，避免影响其他无关单元格
• 通过Chr(252)和字体名称验证，确保只处理目标复选标记
• 用RGB值精准匹配颜色，避免因系统颜色差异导致判断失效
• Cancel = True会阻止双击后进入单元格编辑模式，提升操作体验

测试方法 #

1. 回到Excel界面，在B7:C150范围内的单元格手动添加复选标记：设置字体为Wingdings，输入字母p（Wingdings字体里p对应Chr(252)的复选符号），并把字体颜色设为灰色#BEBEBE
2. 双击该单元格，颜色会切换为绿色#008000；再次双击又切回灰色

如果需要双击空白单元格时自动生成灰色复选标记，只需把代码里的注释部分取消注释即可~

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