Comment spécifier un caractère de tabulation VBA dans Excel
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.
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.
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.
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.
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]