Il est courant de récupérer des données mitigées de l`utilisateur tels que des lettres et des chiffres dans une variable. Un programmeur aurait alors besoin d`extraire les numéros de cette variable et de les utiliser au besoin. Dans Visual Basic pour Applications (VBA), vous pouvez utiliser la fonction "IsNumberic" pour vérifier si une expression peut être évaluée comme un nombre. Si l`expression contient uniquement des chiffres, la fonction retourne "true". Mais si elle contient des lettres et des chiffres, l`expression retourne "false".
Créer une nouvelle procédure de sous pour vérifier un numéro dans une chaîne en tapant le code suivant:
Private Sub checkForNumber ()
Déclarez deux variables, une pour tenir la chaîne avec des chiffres et des lettres et l`autre pour les caractères individuels, comme dans ce qui suit:
Dim strVar As String
Dim oneChar As String
strVar = "12 sdf 3456"
Ajouter le code suivant à boucle à travers tous les caractères de la chaîne. Vérifiez les numéros et les afficher par la fenêtre immédiate:
Do While strVar <> ""
oneChar = Gauche (strVar, 1)strVar = Droite (strVar, Len (strVar) - 1)
Si IsNumeric (oneChar) Ensuite,
Debug.Print (oneChar)
Fin si
Boucle
Terminez la procédure en ajoutant "End Sub" et appuyez sur "Ctrl" et "G" pour afficher la fenêtre immédiate. Appuyez sur "F5" pour exécuter le code.
