如何通过BeforeDoubleClick实现单元格三种状态循环切换？

需求回顾 #

需要让工作表矩阵中的单元格，双击时在以下三种状态间循环切换：

• 状态1：红色背景，单元格为空
• 状态2：绿色背景，单元格显示文本Planned
• 状态3：绿色背景，单元格显示带删除线的文本Complete

修改后的VBA代码 #

替换你当前的Worksheet_BeforeDoubleClick事件代码为以下内容：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True ' 取消默认双击进入编辑模式
    
    ' 统一设置基础字体属性（避免重复代码）
    With Target.Font
        .Name = "Calibri"
        .Size = 11
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeFont = xlThemeFontMinor
    End With
    
    ' 根据当前状态判断下一个要切换的状态
    Select Case True
        ' 状态1：空单元格（红色背景）→切换到状态2：Planned
        Case Target.Value = "" And Target.Interior.ThemeColor = xlThemeColorAccent2
            Target.Value = "Planned"
            ' 设置绿色背景
            With Target.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .ThemeColor = xlThemeColorAccent6
                .TintAndShade = 0.599993896298105
                .PatternTintAndShade = 0
            End With
            ' 设置Planned的字体样式
            With Target.Font
                .ThemeColor = xlThemeColorAccent6
                .TintAndShade = -0.249977111117893
                .Bold = False
                .Italic = False
                .Strikethrough = False
            End With
        
        ' 状态2：Planned（绿色背景）→切换到状态3：Complete
        Case Target.Value = "Planned" And Target.Interior.ThemeColor = xlThemeColorAccent6
            Target.Value = "Complete"
            ' 设置Complete的字体样式（保留绿色背景）
            With Target.Font
                .ThemeColor = xlThemeColorAccent6
                .TintAndShade = -0.249977111117893
                .Bold = True
                .Italic = True
                .Strikethrough = True
            End With
        
        ' 状态3：Complete（绿色背景）→切换到状态1：空单元格（红色背景）
        Case Target.Value = "Complete" And Target.Interior.ThemeColor = xlThemeColorAccent6
            Target.Value = ""
            ' 设置红色背景
            With Target.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .ThemeColor = xlThemeColorAccent2
                .TintAndShade = 0.599993896298105
                .PatternTintAndShade = 0
            End With
            ' 设置空单元格的字体样式
            With Target.Font
                .ThemeColor = xlThemeColorAccent2
                .TintAndShade = -0.249977111117893
                .Bold = False
                .Italic = False
                .Strikethrough = False
            End With
        
        ' 处理初始非预期状态（比如手动修改后的单元格），默认切换到状态1
        Case Else
            Target.Value = ""
            With Target.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .ThemeColor = xlThemeColorAccent2
                .TintAndShade = 0.599993896298105
                .PatternTintAndShade = 0
            End With
            With Target.Font
                .ThemeColor = xlThemeColorAccent2
                .TintAndShade = -0.249977111117893
                .Bold = False
                .Italic = False
                .Strikethrough = False
            End With
    End Select
End Sub

代码说明 #

1. 取消默认双击行为：Cancel = True避免双击进入单元格编辑模式，确保双击只触发状态切换。
2. 统一基础字体：把所有状态都共用的字体属性（如字体、字号）提前设置，减少重复代码。
3. 多条件状态判断：通过Select Case True结合单元格的值和背景色，精准判断当前状态，实现三种状态的循环切换。
4. 异常处理：最后一个Case处理非预期的单元格状态（比如手动修改过值或背景色的单元格），默认重置为初始状态。

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