if then else-syntax

[jofred]

Ik ben op zoek naar de if then else-syntax, die het volgende doet:

als y zit in de volgende verzameling 1,3,7,9,10 dan....

ik zou verwachten dat dit het volgende zou moeten zijn:

if y in (1,3,7,9,10) then

maar dit lijkt niet de juiste code te zijn.
je kan het natuurlijk zo oplossen:

if y = 1 or y = 3 or y = 7 or y = 9 or y = 10 then

maar dat vind ik niet zo overzichtelijk.

Wie heeft een idee?

 

[snb]

de syntaxis kan zijn:

Sub M_snb()
    y = 3
    
    MsgBox Choose(y, 1, "", 3, "", "", "", 7, "", 9, 10) <> ""
    
    Names.Add "snb_000", y
    MsgBox [not(iserr(match(snb_000,{1,3,7,9,10},0)))]
    
    MsgBox Evaluate("iferror(match(" & y & ",{1,3,7,8,10},0),"""")") <> ""
    
    MsgBox InStr("|1|3|7|9|10|", "|" & y & "|") > 0
End Sub

 

[edmoor]

Of:

Select Case y
    Case 1,3,7,9,10
        je code
End Select

 

[snb]

@edmoor

Natuurlijk !!!

 

[jofred]

Edmoor,

Ik vind je code helemaal duidelijk en ga ermee aan de slag.
Wel bijzonder dat er 2 min of meer vergelijkbare statements zijn.

Jofred

 

[edmoor]

Dat is vanwege backward compatibility.