È comune per recuperare dati misti dall'utente quali lettere e numeri in una variabile. Un programmatore quindi avrebbe bisogno di estrarre i numeri da tale variabile e usarli come necessario. In Visual Basic for Applications (VBA), è possibile utilizzare la funzione "IsNumberic" per verificare se un'espressione può essere valutata come un numero. Se l'espressione contiene solo numeri, la funzione restituirà "vero". Ma se contiene lettere e numeri, l'espressione restituirà "falsa".

Istruzioni

1

Creare una nuova routine sub per cercare un numero in una stringa digitando il codice riportato di seguito:

Private Sub checkForNumber()

2

Dichiarare due variabili, una per contenere 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 scorrere in ciclo ogni carattere della stringa. Controllare i numeri e li Visualizza nella finestra immediata:

Mentre strVar <> ""

oneChar = Left(strVar, 1)

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

If IsNumeric(oneChar) Then

Debug.Print (oneChar)

End If

Loop

4

Completare la procedura aggiungendo "End Sub" e premere "Ctrl" e "G" per visualizzare la finestra immediata. Premere "F5" per eseguire il codice.