这条线发生了什么？

Question

我创建了一个带有复选框的名为“questionario”的表单，并制作了一个 IF 语句，如果所有复选框都是空白的，则发送一个 msgbox。但是当我运行宏时，引用的行中会出现错误（错误 438）。

Private Sub CommandButton1_Click()

Dim ind As Integer
Dim cont As MSForms.Control
ind = 0

If questionario.resp1.Value = True Then
Range("E8").Value = Range("E8").Value + 1
End If
If questionario.resp2.Value = True Then
Range("F8").Value = Range("F8").Value + 1
End If
If questionario.resp3.Value = True Then
Range("G8").Value = Range("G8").Value + 1
End If


For Each cont In questionario.Controls

If (TypeName(cont) = "CheckBox") And (cont.Value = True) Then

ind = ind + 1

End If
Next


If ind = 0 Then
MsgBox "mmm"
Else
questionario.Hide
Set questionario = Nothing
End If

End Sub

Answer 1

将您的支票分为两个步骤：

For Each cont In questionario.Controls
    If TypeName(cont) = "CheckBox" Then
        If cont.Value Then '<-- a checkbox control has a Value property
            ind = ind + 1
            Exit For '<-- no need to go on
        End If
    End If
Next

原因是某些控件类型没有.Value 属性，而VBA 没有短路布尔表达式。因此，即使cont.TypeName "CheckBox"，表达式仍然会尝试查询那些可能没有此类属性的控件的.Value 属性。