Jak sprawdzić listę wartości w instrukcji IF?

Question

Próbuję napisać oświadczenie, jeśli tak jak to:

if var [is any of 1,4,5,6,12] then do stuff 

Ale ja nie znam składnię tego w VBA, inne niż:

if var=1 or var=4 or var=5... 

który wydaje się nieco niezdarny. Czy jest inny sposób?

Answer 1

Można użyć Select Case oświadczenie:

select case var 
case 1,4,5,6,12 
    'do something 
case else 
    'alternative 
end select 

Answer 2

Można zrobić listę numerów, a następnie w pętli for, aby porównać je:

dim newNumber as Integer 
dim compareList as new List Of(int) 

for count as integer = 0 to compareList.count - 1 
    if newNumber = compareList(nCount) 
     'Do Stuff 
    end if 
next 

Jest to prosty sposób na osiągnięcie tego lubię robić, ale może dostać wydajność intensywne jeśli listy są naprawdę duże/chcesz zrobić dużo kodu w pętli "Jeśli".