August 7
E 'comune per recuperare i dati contrastanti da parte dell'utente, come lettere e numeri in una variabile. Un programmatore avrebbe quindi bisogno di estrarre i numeri da quella variabile e usarli come necessario. In Visual Basic, Applications Edition (VBA), è possibile utilizzare la funzione "IsNumberic" per verificare se l'espressione può essere valutata come un numero. Se l'espressione contiene solo numeri, la funzione restituisce "vero". Ma se contiene lettere e numeri, l'espressione restituisce "false".
1 Creare una nuova procedura secondaria per verificare la presenza di un numero in una stringa digitando il seguente codice:
Private Sub checkForNumber ()
2 Dichiarare due variabili, una per tenere la stringa con numeri e lettere e l'altra per singoli caratteri, come nell'esempio seguente:
Dim strVar As String
Dim oneChar As String
strVar = "12 sdf 3456"
3 Aggiungere il seguente codice per eseguire un ciclo attraverso ogni carattere della stringa. Controllare per i numeri e li visualizza attraverso la finestra immediata:
Do While strVar <> ""
oneChar = Left(strVar, 1)
strVar = Destra (strVar, Len (strVar) - 1)
Se IsNumeric (oneChar) Poi
Debug.Print (oneChar)
Finisci se
Ciclo continuo
4 Terminare la procedura con l'aggiunta di "End Sub" e premere il tasto "Ctrl" e "G" per visualizzare la finestra immediata. Premere il tasto "F5" per eseguire il codice.