Select case OR ?

[Movian]

Hey,
i was toying with some minor tweaks to some code and found myslef in need of being able to use a select case stateemnt in the following situation


Select case ucase(variablename)
case "F16" OR "D16"
case "B16"
case "J16"
case else
end select

i wanted to do the same thing for the 2 fields but i didn't want to write a sub just to re use the few lines. My initial test show that i can't use the OR in case statements. Unless there is another way of doing it.

So for now i just declared a second case for D16 and copied the code over.

Any thoughts ? "Other that write a sub or a function"

[Imdabaum]

Just use...



Select Case ucase(variablename)
Case "F16" , "D16"
Case "B16"
Case "J16"
Case Else
End Select



Tested and Approved by yours truly.


'Testing Purposes
Public Function TestSelect(sCase As String)
Select Case sCase
Case "F16", "D16"
MsgBox "Case1 works." & sCase
Case "A16", "B16", "C16"
MsgBox "Case2 works." & sCase
Case "J16", "E16"
MsgBox "Case3 works." & sCase
Case Else
MsgBox "No case match works." & sCase
End Select
End Function

Public Function Test()
Dim testCases As Variant
Dim iLoop As Integer
testCases = Array("A16", "B16", "C16", "D16", "E16", "F16", "G16", "H16", "I16", "J16")
For iLoop = 0 To UBound(testCases)
TestSelect (testCases(iLoop))
Next iLoop
End Function

[Movian]

now im left wondering why that didn't come up in any of my searches....

thanks :)

[Imdabaum]

Yeah, it's a nice feature.

Also if your test case is an integer, then you can do



Select Case testCase
Case 1 To 20
....
Case 21 To 40.. etc..
End Case