Det är vanligt att hämta blandade uppgifter från användaren , såsom bokstäver och siffror i en variabel . En programmerare skulle då behöva extrahera nummer från den variabeln och använda dem vid behov . I Visual Basic for Applications ( VBA ) , kan du använda " IsNumberic " -funktion för att kontrollera om ett uttryck kan utvärderas som ett tal . Om uttrycket innehåller endast siffror , kommer funktionen returnera " true ". Men om det innehåller bokstäver och siffror , kommer uttrycket tillbaka " falskt . " Instruktioner
1
Skapa en ny sub förfarande för att kontrollera om ett nummer i en sträng genom att skriva följande kod :
Private Sub checkForNumber ( )
2
Deklarera två variabler, en för att hålla strängen med siffror och bokstäver och den andra för enskilda tecken , som i följande :
Dim strVar As String
Dim oneChar As String
strVar = " 12 sdf 3456 " Addera 3
Lägg till följande kod i en slinga genom varje tecken i strängen . Kontrollera om siffror och visa dem genom Direktfönstret :
Do While strVar < > " "
oneChar = Vänster ( strVar , 1 ) katalog
strVar = Höger ( strVar , Len ( strVar ) - 1 ) katalog p Om IsNumeric ( oneChar ) Sen
Debug.Print ( oneChar ) katalog
End If
Loop
4
avsluta proceduren genom att lägga till " End Sub " och tryck på " Ctrl " och " G " för att visa den omedelbara fönstret . Tryck " F5 " för att köra koden .
