Fonction de fractionnement VBA (exemples) - Comment diviser des chaînes dans Excel VBA?

Table des matières

Qu'est-ce que la fonction de fractionnement VBA dans Excel?

Qu'est-ce que la fonction de fractionnement VBA dans Excel?

La fonction de fractionnement dans VBA est une fonction de chaîne très utile qui est utilisée pour diviser les chaînes en plusieurs sous-chaînes en fonction d'un délimiteur fourni à la fonction et d'une méthode de comparaison, il existe également d'autres fonctions de chaîne qui convertissent une chaîne en sous-chaîne, mais la fonction de fractionnement peut diviser un chaîne dans plusieurs sous-chaînes.

Dans la fonction GAUCHE de feuille de calcul normale, les fonctions MID et DROITE dans Excel sont utilisées comme fonctions de texte dans Excel pour extraire la partie de la phrase. Par exemple, l'extraction du prénom, du deuxième prénom et du nom de famille sont les scénarios courants que nous avons vus. Mais dans VBA, nous avons la fonction plus polyvalente appelée SPLIT qui fera un travail similaire pour vous. SPLIT est une fonction intégrée dans Excel VBA qui peut diviser la phrase fournie en fonction du délimiteur. Par exemple, si vous souhaitez diviser l'adresse e-mail en différentes parties, l'élément commun de l'adresse e-mail est «@» dans tous les identifiants d'e-mail, donc «@» devient ici un délimiteur.

Fonction de chaîne divisée VBA

Comme toutes les autres fonctions, split a sa propre syntaxe. Vous trouverez ci-dessous les paramètres de la fonction Excel VBA Split string.

Valeur ou expression: ce n'est rien d'autre que la valeur réelle que nous essayons de diviser. Par exemple, si vous souhaitez séparer le prénom et le nom de famille, le nom complet est la valeur ici.
(Délimiteur): quel est l'élément commun pour diviser la valeur ou l'expression? Dans l'e-mail, «@» est l'élément commun, dans l'adresse virgule (,) est l'élément commun. Si vous l'ignorez, il considère le caractère d'espace comme la valeur par défaut.
(Limite): combien de sous-chaînes vous voulez à partir de la valeur ou de l'expression que vous avez fournie. Par exemple, si la valeur est «Mon nom est Excel», si vous indiquez 3 comme limite, le résultat sera affiché sur trois lignes comme «Mon», «nom», «est Excel».
(Compare): Puisque nous n'utilisons pas d'argument de comparaison, sautez cet argument facultatif.

Dans les sections suivantes de l'article, nous verrons comment utiliser pratiquement la fonction SPLIT dans Excel VBA.

Exemples de fonction de chaîne fractionnée VBA

Vous trouverez ci-dessous les exemples pratiques de la fonction Split dans Excel VBA.

Exemple # 1 - Fractionner la phrase

Split renvoie le résultat dans le tableau qui commencera à 0. Tous les tableaux commencent à 0 et non à 1.

Supposons que vous ayez le mot «Mon nom est Excel VBA» dans la cellule A1.

Maintenant, vous voulez diviser cette phrase en morceaux comme «Mon», «Nom», «est», «Excel», «VBA». En utilisant la fonction Excel VBA SPLIT String, nous pouvons renvoyer ce résultat.

Étape 1: démarrez la macro avec le nom.

Code:

Sub Split_Example1 () End Sub Étape 2: Déclarez trois variables.

Code:

Sub Split_Example1 () Dim MyText As String Dim i As Integer Dim MyResult () As String End Sub

Étape 3: Maintenant, pour la variable définie, Mon texte attribue le mot «Mon nom est Excel VBA» .

Code:

Sub Split_Example1 () Dim MyText As String Dim i As Integer Dim MyResult () As String MyText = "Mon nom est Excel VBA" End Sub

Étape 4: Maintenant, pour la variable My Result, appliquez la fonction de chaîne fractionnée VBA.

Code:

Sub Split_Example1 () Dim MyText As String Dim i As Integer Dim MyResult () As String MyText = "Mon nom est Excel VBA" MyResult = Split (End Sub

Étape 5: Expression est notre valeur de texte. Puisque nous avons déjà attribué notre valeur de texte à la variable Mon texte, entrez cet argument ici.

Code:

Sub Split_Example1 () Dim MyText As String Dim i As Integer Dim MyResult () As String MyText = "Mon nom est Excel VBA" MyResult = Split (MyText) End Sub

Remarque: comme sur, ignorez maintenant tous les autres paramètres.

Étape 6: Alors maintenant, mon résultat contient ce résultat fractionné. Comme je l'ai dit plus tôt dans l'article, la fonction de division stocke le résultat sous forme de tableau, donc ici

Mon résultat (0) = "Mon"
Mon résultat (1) = "Nom"
Mon résultat (2) = "est"
Mon résultat (3) = "Excel"
Mon résultat (4) = "VBA"

Même si ce code n'a aucun impact sur le démarrage de la fonction SPLIT, nous pouvons utiliser ce code.

Exemple # 2 - Chaîne VBA SPLIT avec fonction UBOUND

Afin de stocker le résultat de la fonction SPLIT, nous pouvons utiliser la fonction vba UBOUND avec la fonction SPLIT.

UBOUND renvoie la longueur maximale du tableau. Dans l'exemple ci-dessus, la longueur maximale du tableau était de 5.

Prenez le même mot «Mon nom est Excel VBA». Divisons ce mot et stockons à partir de la cellule A1.

Step 1: Let’s continue from where we left off in the previous example.

Step 2: Now apply FOR NEXT LOOP in VBA from 0 to maximum length of the array i.e. UBOUND.

The reason we started from zero because SPLIT will store the result from zero, not from 1.

Step 3: Now apply VBA CELLS property and store the result.

Code:

Cells(i + 1, 1).Value = MyResult(i)

Step 4: Run this code, we would have split values.

Complete Code:

Sub Split_Example1() Dim MyText As String Dim i As Integer Dim MyResult() As String MyText = "My Name is Excel VBA" MyResult = Split(MyText) For i = 0 To UBound(MyResult) Cells(i + 1, 1).Value = MyResult(i) Next i End Sub

Return Word Count

We can also show the total number of words in the supplied value. Use the below code to show the total number of word counts. Code:

Sub Split_Example2() Dim MyText As String Dim i As Integer Dim MyResult() As String MyText = "My Name is Excel VBA" MyResult = Split(MyText) i = UBound(MyResult()) + 1 MsgBox "Total Words Count is " & i End Sub

Copy and paste the above VBA code and run it, the message box will return the result.

Things to Remember

If the delimiter is not supplied SPLIT automatically thinks the delimiter as space.
If you want to split except space then you need to specify the delimiter in double-quotes.
SPLIT stores the result as array results.
UBOUND function returns the maximum length of the array.