VBA 如果 <其中任何一个> = <值>？

我对 VBA 相当陌生，我找不到一种简单的方法来测试任何指定变量是否等于指定值。下面的方法似乎可行，但是有更简单的方法吗？

If variable1 = 1 Or variable2 = 1 Or variable3 = 1 Or variable4 = 1 Or variable5 = 1 Then End If

我也尝试过以下方法，但没有运气。

If (variable1 Or variable2 Or variable3 Or variable4 Or variable5) = 1 Then End If

您可以使用选择大小写:)

Sub Sample()
    Dim variable1, variable2, variable3, variable4, variable5

    variable1 = 1: variable2 = 1: variable3 = 1: variable4 = 1: variable5 = 1

    Select Case 1
        Case variable1, variable2, variable3, variable4, variable5
            MsgBox "One of them is equal to 1"
        Case Else
            MsgBox "none of then is equal to 1"
    End Select
End Sub