W
Werner Rohrmoser
Hi,
I'd like to know whether it is possible to code the structure below
direct
and not indirect as I have done it.
Something like "Case Is <> 3, Is <> 6, Is <> 9".
Example:
'************************************************************************
Option Explicit
Option Compare Text
Public Sub DoingSomethingExceptItIs_3_OR_6_OR_9()
Dim LoopCounter As Integer
For LoopCounter = 1 To 10
Select Case LoopCounter
Case 3, 6, 9
Case Else
MsgBox LoopCounter
End Select
Next LoopCounter
End Sub
'*********************************************************************
Thanks for your Support
Werner
I'd like to know whether it is possible to code the structure below
direct
and not indirect as I have done it.
Something like "Case Is <> 3, Is <> 6, Is <> 9".
Example:
'************************************************************************
Option Explicit
Option Compare Text
Public Sub DoingSomethingExceptItIs_3_OR_6_OR_9()
Dim LoopCounter As Integer
For LoopCounter = 1 To 10
Select Case LoopCounter
Case 3, 6, 9
Case Else
MsgBox LoopCounter
End Select
Next LoopCounter
End Sub
'*********************************************************************
Thanks for your Support
Werner