この行には何が起こっていますか？

Question

チェックボックス付きの "questionario"というフォームを作成し、すべてのCheboxが空白の場合はmsg文を送信するIF文を作成しました。しかし、マクロを実行すると、引用符で囲まれた行にエラー（エラー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 

場合は2つのステップに（型名（続き）= "チェックボックス"）と（cont.Value =真）次に

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がshort-circuit boolean expreシオンズ。したがって、cont.TypeName <> "CheckBox"であっても、式はそのような特性を持たないコントロールの.Valueプロパティをクエリしようとします。