esempio di Select case:

codice:
Dim Number
Number = 8   ' Inizializza la variabile.
Select Case Number               ' Valuta Number.
Case 1 To 5                     ' Number tra 1 e 5, compresi.
   Debug.Print "Tra 1 e 5"
' Questa è l'unica proposizione Case la cui valutazione
' dà come risultato True.
Case 6, 7, 8                     ' Number tra 6 e 8.
   Debug.Print "Tra 6 e 8"
Case 9 To 10   ' Number è 9 o 10.
Debug.Print "Maggiore di 8"
Case Else   ' Altri valori.
   Debug.Print "Non compreso tra 1 e 10"
End Select
ciao ciao


Originariamente inviato da danz67
Le sclete sono almeno 7, puoi farmi un esempio del codice da scrivere con select case?