Как проверить список значений в выражении IF?

Question

Я пытаюсь написать заявление, если так:

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

Но я не знаю синтаксис для этого в VBA, кроме:

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

, который кажется немного неуклюжим. Есть ли другой способ?

Answer 1

Вы можете использовать Select Case заявление:

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

Answer 2

Вы можете составить список номеров, а затем в течение петли, чтобы сравнить их:

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 

Это простой способ сделать это, я хотел бы сделать, но может получить производительность интенсивной, если ваш списки действительно большие/вы хотите сделать много кода в цикле «if».