Table des matières
Vous pouvez exécuter la logique ou renvoyer des caractères individuels à partir d'une chaîne dans VBA en parcourant la chaîne.
Boucle sur chaque caractère d'une chaîne
Ce qui suit est un exemple de boucle dans une chaîne à l'aide d'une boucle For… Next et de retour de chaque caractère dans une msgbox.
| 1234567891011121314 | Sub LoopThroughString()Compteur faible en tant qu'entierDim MyString en tant que chaîneMyString = "AutomateExcel" 'définir la chaînePour Counter = 1 To Len (MyString)'faire quelque chose à chaque caractère de la chaîne'ici nous allons msgbox chaque caractèreMsgBox Mid (MyString, Counter, 1)ProchainFin du sous-marin |
La fonction Len compte le nombre total de caractères dans la chaîne. Alors l'expression
| 1 | Pour Counter = 1 à Len(MyString |
bouclera à travers chaque lettre de la chaîne.
Boucle sur chaque caractère d'une chaîne - Alternative
Lire chaque caractère d'une chaîne
: cet exemple lit chaque caractère d'une chaîne de gauche à droite et renvoie le résultat dans une boîte de message. Il utilise le Milieu fonction.
| 12345678910111213 | Sub LoopThroughString()Dim LookInHere en tant que chaîneCompteur faible en tant qu'entier'Utilisez votre propre texte iciLookInHere = "easyexcel.net"Pour Counter = 1 To Len (LookInHere)MsgBox Mid (RegardezIci, Compteur, 1)ProchainFin du sous-marin |
Lire chaque mot d'une chaîne
Cet exemple lit chaque mot d'une chaîne de gauche à droite et renvoie le résultat dans une boîte de message. Il utilise le Diviser fonction.
| 1234567891011121314151617 | Sub LoopThroughString2()Dim LookInHere en tant que chaîneCompteur faible en tant qu'entierDim SplitCatcher comme variante'Utilisez votre propre texte iciLookInHere = "I Heart easyexcel.net"SplitCatcher = Split(RegardezIci, " ")Pour le compteur = 0 à UBound (SplitCatcher)MsgBox SplitCatcher (Compteur)ProchainFin du sous-marin |
