VBA Jeśli <dowolny z tych> = <value>?

Question

Jestem całkiem nowy w VBA i nie mogę znaleźć łatwego sposobu na sprawdzenie, czy którakolwiek z podanych zmiennych jest równa określonej wartości. Poniższe wydaje się działać, ale czy jest łatwiejszy sposób to zrobić?

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

Próbowałem również następujące, bez powodzenia.

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

Answer 1

Można użyć wybierz przypadek :)

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