VBA odpowiednikiem SQL „w” funkcji

Question

Piszę warunkowe oświadczenie w VBA jak

if(userID = 1 or userID = 2 or userID = 3 or userID = 4) then 
... 

Zastanawiałem się, czy istnieje szybsza, bardziej przejrzysty sposób to zrobić. Coś jak

if(userID in (1,2,3,4)) then 
... 

Dzięki

Answer 1

Alternatywą byłoby:

select case userID 
    case 1,2,3,4,5,6 
     ' do something 
end select 

Przekazuje bardzo dobry sens konstrukcja if ... then ... else.

Answer 2

Można użyć funkcji Application.Match na tablicy:

If Not IsError(Application.Match(userID, Split("1,2,3,4",","))) Then... 

Answer 3

Innym sposobem

If UBound(Filter(Array(1, 2, 3, 4, 5, 6), UserID)) > -1 Then 

Filtr zwraca tablicę z meczu. Jeśli nie ma dopasowania, ubound = -1.

Answer 4

CW ponieważ jest to zgodne z hipotetycznym przykładem, ale nie jest prawdopodobne, aby było prawdziwe. Warto jednak wiedzieć, że dobrym słowem kluczowym jest Like.

If userID Like "[1-6]" Then 

Jest to możliwe w przypadku czeków jednocyfrowych, ale nie w przypadku światowych, wieloznakowych identyfikatorów użytkowników.

tj

userID = 1 
If userID Like "[1-6]" Then ' result is True 

ale

userID = 11 
If userID Like "[1-6]" Then ' result is False