Dans cet article, nous avons créé deux macros pour comprendre la mise en forme du caractère de tabulation dans VBA.

Nous avons pris des données dans la plage A9: A11 comme données brutes.

ArrowRaw

Dans l’exemple 1, nous avons créé une chaîne dans laquelle nous avons consolidé les données des cellules de la plage A9: A11, séparées par des caractères de tabulation (vbTab). Lorsque nous afficherons la chaîne à l’aide d’une boîte de message, nous pourrons voir l’espacement des tabulations.

ArrowFirstOutput

Cependant, lorsque nous insérons une valeur de chaîne dans la cellule A14, l’espacement des tabulations n’est pas visible. Nous avons utilisé des formules Excel pour montrer que les caractères de tabulation existent entre les mots.

ArrowFormulas

Dans l’exemple 2, nous avons séparé chaque caractère de la valeur de chaîne de la cellule A14 et nous avons utilisé le caractère de nouvelle ligne (vbNewLine) pour insérer des sauts de ligne. La sortie de l’exemple 2 est également affichée à l’aide d’une boîte de message.

ArrowSecondOutput

Veuillez suivre ci-dessous pour le code

Option Explicit

Sub example1()

'Declaring variable

Dim MainString As String

'Concatenating value from range A9 to A11 separated by Tab character

MainString = Range("A9").Value & vbTab & Range("A10").Value & vbTab & Range("A11").Value

'Display string in message box

MsgBox MainString

'Assigning value to cell A14

Range("A14").Value = MainString

End Sub

Sub example2()

'Declaring variables

Dim i, CharLength As Integer

Dim Output As String

Dim InputValue As String

'Getting input value from cell A14

InputValue = Range("A14").Value

CharLength = Len(InputValue)

'Looping through all the characters in the input value

For i = 1 To CharLength

'Creating string in which each character in the input is separated by new line

Output = Output & Asc(Mid(InputValue, i, 1)) & " " & Mid(InputValue, i, 1) & vbNewLine

Next i

'Displaying output using message box

MsgBox Output

End Sub

Si vous avez aimé ce blog, partagez-le avec vos amis sur Facebook et Facebook.

Nous serions ravis de vous entendre, faites-nous savoir comment nous pouvons améliorer notre travail et le rendre meilleur pour vous. Écrivez-nous à [email protected]