VBA六个布尔值条件取或做if判断代码模板

Sub BooleanConditions()

Dim condition1 As Boolean
Dim condition2 As Boolean
Dim condition3 As Boolean
Dim condition4 As Boolean
Dim condition5 As Boolean
Dim condition6 As Boolean

' 设置布尔值条件
condition1 = True
condition2 = False
condition3 = True
condition4 = False
condition5 = False
condition6 = True

' 判断条件是否成立
If condition1 Or condition2 Or condition3 Or condition4 Or condition5 Or condition6 Then
    ' 如果条件成立，则执行以下代码
    MsgBox "至少有一个条件为真"
Else
    ' 如果条件不成立，则执行以下代码
    MsgBox "所有条件都为假"
End If

End Sub