Win11下Excel 2021(64位)表单控件Checkbox宏执行异常求助

你遇到的异常核心是控件引用方式混乱，导致逻辑判断完全失效：

1. 你直接写的Checkbox1并非指向表单控件的正确引用——默认添加的Forms Checkbox名称是Check Box 1，Checkbox1属于未定义变量，VBA默认其值为Empty。
2. Empty和数字比较时会触发隐式转换：Empty = 0返回True，但Empty = 1返回False。Test宏里刚好因这个“巧合”符合预期，而Testy宏的判断逻辑完全适配不了这种隐式转换。
3. 同时你混用了Checkbox1和ActiveSheet.CheckBoxes("Check Box 1")两种引用，当控件名称未统一时，后者可能指向不存在的控件，进一步导致判断失效。

统一使用正确的表单控件引用方式，避免混用变量和控件名称：

方法1：用控件默认名称直接引用（推荐） #

确认控件名称为默认的Check Box 1（设计模式下选中控件，查看编辑栏左侧名称框），修改Testy宏代码：

Sub Testy()
    Dim Fink As Integer
    Fink = 3
    ' 统一通过CheckBoxes集合获取控件状态
    If ActiveSheet.CheckBoxes("Check Box 1").Value = 1 Then
        Fink = 1
    ElseIf ActiveSheet.CheckBoxes("Check Box 1").Value = 0 Then
        Fink = 0
    End If
    Range("A1").Value = Fink
End Sub

方法2：通过Shapes集合引用 #

如果需要更灵活的控件操作，可通过Shapes集合定位控件：

Sub Testy()
    Dim Fink As Integer
    Dim chkBox As Shape
    Set chkBox = ActiveSheet.Shapes("Check Box 1")
    Fink = 3
    If chkBox.ControlFormat.Value = 1 Then
        Fink = 1
    ElseIf chkBox.ControlFormat.Value = 0 Then
        Fink = 0
    End If
    Range("A1").Value = Fink
End Sub

方法3：重命名控件后直接引用 #

在设计模式下将控件名称改为Checkbox1（编辑栏左侧名称框修改），然后统一用该名称编写代码：

Sub Testy()
    Dim Fink As Integer
    Fink = 3
    If Checkbox1.Value = 1 Then
        Fink = 1
    ElseIf Checkbox1.Value = 0 Then
        Fink = 0
    End If
    Range("A1").Value = Fink
End Sub

注：用ElseIf替代独立If可避免逻辑覆盖，若控件处于半选状态（Value=2），Fink会保持初始值3，符合你的设定。

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