Det er almindeligt at hente blandede data fra brugeren , såsom bogstaver og tal i en variabel. En programmør ville så nødt til at udtrække tallene fra denne variabel og bruge dem efter behov. I Visual Basic for Applications ( VBA ), kan du bruge " IsNumberic " funktion til at kontrollere , om et udtryk kan evalueres som et tal. Hvis udtrykket indeholder kun tal , vil funktionen returnere "true ". Men hvis det indeholder bogstaver og tal , vil udtrykket returnere "false ". Instruktioner
1

Opret en ny sub procedure for at kontrollere, om et nummer i en streng ved at skrive følgende kode : Hej

Private Sub checkForNumber ()
2 < p > Erklær to variabler , en til at holde streng med tal og bogstaver og den anden for enkelte tegn , som i det følgende : Hej

Dim strVar As String

Dim oneChar As String

strVar = " 12 sdf 3456 "
3

Føj følgende kode til at sløjfe gennem hvert tegn i strengen . Kontroller for tal og vise dem gennem Immediate -vinduet : Hej

Do While strVar < > " "

oneChar = Venstre ( strVar , 1)

strVar = Right ( strVar , Len ( strVar ) - 1)
p Hvis IsNumeric ( oneChar ) Så

Debug.Print ( oneChar )

End If

Loop < br >
4

Afslut proceduren ved at tilføje " End Sub " og tryk på " Ctrl" og "G " for at vise den umiddelbare vinduet. Tryk på " F5 " for at køre koden.