If Check1.Value = Check2.Value = Check3.Value = Check4.Value = Check5.Value = Check6.Value = Check7.Value = Check8.Value = Check9.Value = Check10.Value = Check11.Value = Check12.Value = 1 Then
MsgBox "请不要乱选！"
ElseIf Check1.Value = Check2.Value = Check3.Value = Check4.Value = Check5.Value = Check6.Value = Check7.Value = Check8.Value = Check9.Value = Check10.Value = Check11.Value = Check12.Value Then
MsgBox "请选择类型!"
End If


为什么不要乱填的判断没有用

[ 本帖最后由 woa 于 2009-11-4 10:27 编辑 ]

你没有搞清逻辑关系，每个"="都有是一个逻辑判断，
(Check1.Value = Check2.Value) = (Check3.Value = Check4.Value) = 1 就是
(True = True) =1
True = 1  结果是 False
即使全部不选，如果是单数也会结果是 False
所以应该用 AND 进行逻辑判断:
If Check1.Value = 1 And Check2.Value = 1 And Check3.Value = 1 And Check4.Value = 1 And Check5.Value = 1 And Check6.Value = 1 And Check7.Value = 1 And Check8.Value = 1 And Check9.Value = 1 And Check10.Value = 1 And Check11.Value = 1 And Check12.Value = 1 Then
MsgBox "请不要乱选！", vbInformation + vbOKOnly, "提示"
ElseIf Check1.Value = 0 And Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 And Check5.Value =  0 And Check6.Value = 0 And  Check7.Value = 0 And  Check8.Value = 0 And  Check9.Value = 0 And  Check10.Value = 0 And  Check11.Value = 0 And  Check12.Value = 0 Then
MsgBox "请选择类型！", vbInformation + vbOKOnl y, "提示"
End If

谁教你可以连等了?

了解了