E 'comune per recuperare i dati contrastanti da parte dell'utente , come lettere e numeri in una variabile. Un programmatore avrebbe poi bisogno di estrarre i numeri da quella variabile e utilizzare quando necessario . In Visual Basic, Applications Edition (VBA ) , è possibile utilizzare la funzione " IsNumberic " per verificare se un'espressione può essere valutata come numero . Se l'espressione contiene solo numeri , la funzione restituisce " vero". Ma se contiene lettere e numeri , l'espressione restituirà " falso". Istruzioni
1

Creare una nuova procedura di sub per controllare un numero in una stringa , digitare il seguente codice :

checkForNumber Private Sub ( ) economici 2 < p > dichiarare due variabili , una per contenere la stringa con numeri e lettere e l'altra per i singoli caratteri , come nell'esempio seguente :

Dim strVar As String Dim

oneChar come
String

strVar = " 12 sdf 3456 "
3

Aggiungere il seguente codice al ciclo attraverso ogni carattere della stringa . Verificare la presenza di numeri e visualizzarli attraverso la finestra immediata :

Do While strVar < > " "

oneChar = Sinistra ( strVar , 1 ) per

strVar = Right ( strVar , Len ( strVar ) - 1 ) per

Se IsNumeric ( oneChar ) Poi

Debug.Print ( oneChar ) per

End If loop

< br >
4

completare la procedura con l'aggiunta di "End Sub " e premere " Ctrl " e "G" per visualizzare la finestra immediata . Premere il tasto " F5 " per eseguire il codice .