基于公式布尔值单元格的Select Case代码无法运行求助

核心问题原因 #

Worksheet_Change 事件仅在用户手动编辑单元格内容时触发，而你的 _cModelBoolean 单元格值由公式计算生成，它的数值变化不会触发 Change 事件，这是代码失效的主要原因。

修复后的代码 #

Option Explicit

Private cModelBoolean As Range

Private Sub Worksheet_Activate()
    ' 工作表激活时初始化单元格引用，无需每次事件触发都重新定义
    Set cModelBoolean = Me.Range("_cModelBoolean")
End Sub

Private Sub Worksheet_Calculate()
    ' 监听工作表计算事件，公式单元格值变化时触发
    Select Case cModelBoolean.Value
        Case True
            MsgBox "True"
        Case False
            MsgBox "False"
    End Select
End Sub

额外优化点 #

• 将单元格引用初始化放在 Worksheet_Activate 事件中，避免每次计算都重复执行 Set 操作，提升效率。
• 直接对 cModelBoolean.Value 进行判断，显式取值比隐式转换更清晰，减少潜在问题。
• 简化嵌套的 Select Case，因为我们已经通过 Calculate 事件监听公式变化，无需再判断目标单元格地址。

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