Ci-dessous, nous examinerons un programme en Excel VBA qui peut chaînes inversées.
Situation:
Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivantes :
1. Tout d'abord, nous déclarons quatre variables. Une variable appelée text de type String, une variable appelée reversedText également de type String, une variable appelée length de type Integer et une variable appelée i de type Integer.
Dim text As String, reversedText As String, longueur As Integer, i As Integer
2. Nous initialisons deux variables. Nous utilisons la fonction InputBox pour obtenir une chaîne de texte de l'utilisateur. Nous utilisons la fonction Len dans Excel VBA pour obtenir la longueur d'une chaîne.
text = InputBox("Entrez le texte que vous souhaitez inverser")
longueur = longueur (texte)
3. Nous commençons une boucle For Next.
Pour i = 0 À longueur - 1
4. Maintenant vient le truc simple. Nous prenons le dernier caractère du texte et le plaçons devant ReversedText. Nous pouvons utiliser la fonction Mid dans Excel VBA pour extraire un caractère d'une chaîne. Nous utilisons l'opérateur & pour concaténer (joindre) deux chaînes.
reversedText = reversedText & Mid(texte, (longueur - i), 1)
5. N'oubliez pas de boucler la boucle.
Ensuite je
Exemple : texte = "Voiture". La longueur du texte est 3. Pour i = 0 à 2, nous extrayons la sous-chaîne de texte commençant à la position longueur - i avec une longueur 1. Ainsi, pour i = 0, Mid(text, 3, 1) est égal à r. Nous plaçons r à la première position de reversedText. Pour i = 1, Mid(text, 2, 1) est égal à a. Nous ajoutons a à reversedText qui devient ra. Pour i = 2, Mid(text, 1, 1) est égal à C. Nous ajoutons C à reversedText qui devient raC.
6. Enfin, nous affichons reversedText à l'aide d'un MsgBox.
msgbox reversedText
7. Testez le programme.
Résultat:
