이 줄에 어떤 현상이 있습니까?

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 

만약 두 단계로 (TYPENAME (계속) = "확인란") 그리고 (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는 부울 값을 단락시키지 않기 때문입니다 다. 따라서 cont.TypeName <> "CheckBox"인 경우에도 표현식은 해당 컨트롤이없는 컨트롤의 .Value 속성을 계속 쿼리하려고 시도합니다.