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") 

나는 또는 문구에 문제가 계속 발생합니다. var = 1로 변경하면 코드는 문제없이 실행됩니다.

If var = 1 or var = 2 

으로 다시 써야합니다. 그러나 이것을 확장하고 싶다면 좀 더 응집력있는 방법으로 이것을 쓸 수 있으면 좋을 것입니다. 내가 뭘 놓치고 있니? . or이 두 가지 조건, 동일한 조건의 일부를 형성하지 두 값

Answer 1

당신은로 작성해야 대신 case 표현 :.

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

Answer 2

를 연결

If var = 1 or var = 2 

때문에 청소기 코드를 원하는 경우에, 당신은 사용할 수 있습니다 : :(