如何将VBA中的CheckBox重置为默认黑框填充状态？

要实现所有条件不满足时让CheckBox恢复初始黑框填充的未触碰状态，需要两步操作：

1. 开启CheckBox的三态属性
   先确保涉及的CheckBox（cgvhd_lim、cgvhd_ext1至cgvhd_ext5）的TripleState属性设置为True——只有开启三态，控件才能呈现「未触碰（Null）」「勾选（True）」「未勾选（False）」三种状态，其中Null状态就是你要的黑框填充样式。

2. 修改VBA代码逻辑
   在Else分支中，将相关CheckBox的Value重置为Null，同时简化原有的多条件判断逻辑。修改后的代码如下：

Private Sub cgvhd_lim_AfterUpdate()
    If cgvhd_lim Then
        cgvhd_limext = "Limited"
        ' 重置所有Ext系列CheckBox为未触碰状态
        cgvhd_ext1.Value = Null
        cgvhd_ext2.Value = Null
        cgvhd_ext3.Value = Null
        cgvhd_ext4.Value = Null
        cgvhd_ext5.Value = Null
    ElseIf cgvhd_ext1 Or cgvhd_ext2 Or cgvhd_ext3 Or cgvhd_ext4 Or cgvhd_ext5 Then
        cgvhd_limext = "Extensive"
        ' 重置lim CheckBox为未触碰状态
        cgvhd_lim.Value = Null
    Else
        ' 所有条件不满足时，重置全部CheckBox为初始未触碰状态
        cgvhd_lim.Value = Null
        cgvhd_ext1.Value = Null
        cgvhd_ext2.Value = Null
        cgvhd_ext3.Value = Null
        cgvhd_ext4.Value = Null
        cgvhd_ext5.Value = Null
        cgvhd_limext = 0 ' 保留原有的赋值逻辑
    End If
End Sub

关键说明 #

• 原代码中多个独立的ElseIf判断可以合并为Or逻辑，大幅简化代码结构。
• 选中某一类CheckBox时，需重置另一类的状态为未触碰，避免多个控件同时处于勾选/未勾选状态。
• 必须开启TripleState=True，设置CheckBox.Value = Null才会显示黑框填充的初始状态，否则Null会被强制转为False。

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