VBA If Then或Statements

Question

VBA初學者在這裏。我想在VBA 2003中做一個非常簡單的if/then語句，但我遇到了這個問題。我的代碼如下：

Dim var as Integer 
If var = 1 or 2 Then 
    'Do stuff 
Else 
    MsgBox ("error") 

我一直在用or語句解決問題。如果我將其更改爲var = 1，則代碼運行順暢;如果我把它改寫爲

If var = 1 or var = 2 

然後它工作正常。但正如我想擴大這一點，能夠以更有凝聚力的方式寫出這一點會很好。我錯過了什麼？ :(

Answer 1

你需要把它寫爲：

If var = 1 or var = 2 

因爲or連接兩個條件，而不是兩個值形成的相同條件的一部分

Answer 2

如果你想更乾淨的代碼，你可以使用一個case表達式代替：

select case var 
    case 1, 2 
     'Do stuff 
    case else 
     MsgBox ("error") 
end select