Det er vanlig å hente blandede data fra brukeren, for eksempel bokstaver og tall i en variabel. En programmerer vil da trenge å trekke tallene fra denne variabelen og bruke dem etter behov . I Visual Basic for Applications ( VBA ) , kan du bruke " IsNumberic "-funksjonen til å sjekke om et uttrykk kan evalueres som et tall. Hvis uttrykket inneholder bare tall , returnerer funksjonen "true ". Men hvis det inneholder bokstaver og tall , vil uttrykket tilbake "false ". Instruksjoner
en

Opprett en ny sub prosedyre for å se etter et nummer i en streng ved å skrive følgende kode :

Private Sub checkForNumber ( )
2

Erklærer to variabler , en for å holde strengen med tall og bokstaver og den andre for enkelt tegn , som i følgende : en

Dim strVar As String

Dim oneChar As String

strVar = " 12 sdf 3456 "
3

Legg til følgende kode i sløyfe gjennom hvert tegn i strengen . Se etter tall og vise dem gjennom Immediate-vinduet : en

Mens strVar < > " "

oneChar = Venstre ( strVar , 1 )

strVar = Høyre ( strVar , Len ( strVar ) - 1 )
p Hvis IsNumeric ( oneChar ) Så

Debug.Print ( oneChar )

End If

Loop

4

Avslutt prosedyren ved å legge til "End Sub " og trykk " Ctrl" og " G " for å vise den umiddelbare vinduet. Trykk "F5 " for å kjøre koden .