Ci-dessous, nous examinerons un programme VBA dans Excel qui peut inverser les chaînes.

Situation:

Reverse String in Excel VBA

Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivant:

  1. Tout d’abord, nous déclarons quatre variables. Une variable appelée texte de type String, une variable appelée reversedText également de type String, une variable appelée longueur de type entier, et une variable i appelé de type entier.

Dim text As String, reversedText As String, length As Integer, i As Integer

  1. 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("Enter the text you want to reverse")

length = Len(text)

Enter Text

  1. Nous commençons une boucle For Next.

For i = 0 To length - 1

  1. Maintenant vient le tour de simple. Nous prenons le dernier caractère du texte et le placer à l’avant de 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(text, (length - i), 1)

  1. Ne pas oublier de fermer la boucle.

Next i

Exemple: text = « voiture ». La longueur du texte 3. Pour i = 0 à 2, on extrait la sous-chaîne de texte à partir de la longueur de position – i avec la longueur 1. Ainsi, pour i = 0, Mid (texte, 3, 1) est égal à r. Nous plaçons r à la première position de reversedText. Pour i = 1, Mid (texte, 2, 1) est égal à un. Nous ajoutons un à reversedText qui devient ra. Pour i = 2, Mid (texte, 1, 1) est égal à C. On ajoute C à reversedText qui devient Rac.

  1. Enfin, nous affichons reversedText l’aide d’un MsgBox.

msgbox reversedText

  1. Tester le programme.

Résultat:

Reverse String Result