Fonction de gauche VBA - Comment utiliser la fonction gauche Excel VBA?

Table des matières

Excel VBA gauche

Excel VBA gauche

VBA Left est également l'une des fonctions de feuille de calcul classées sous les fonctions de texte qui sont utilisées dans VBA avec l'application. feuille de calcul, elle renvoie le nombre spécifié de caractères à partir de la partie gauche de la chaîne.

Certaines des fonctions Excel sont également intégrées à VBA. De toutes les nombreuses fonctions de texte, VBA LEFT est l'une de ces fonctions que nous utilisons assez souvent par rapport aux autres formules.

Si vous connaissez la fonction Excel LEFT, la fonction VBA LEFT est exactement la même. Il peut extraire les caractères du côté gauche de la chaîne ou de la valeur donnée par l'utilisateur.

La syntaxe de la fonction GAUCHE est exactement la même que celle de la fonction de feuille de calcul.

Il a deux arguments.

Chaîne: ce n'est rien d'autre que la valeur ou la référence de cellule. À partir de cette valeur, nous cherchons à découper les personnages.
Longueur: le nombre de caractères que vous souhaitez extraire de la chaîne que vous avez fournie. Cela devrait être une valeur numérique.

Comment utiliser la fonction gauche Excel VBA?

Exemple 1

Supposons que vous ayez le mot «Sachin Tendulkar» et que vous ne vouliez que les 6 premiers caractères de ce mot. Nous montrerons comment extraire de la gauche en utilisant la fonction GAUCHE dans VBA.

Étape 1: Créez un nom de macro et définissez la variable comme chaîne.

Code:

Sub Left_Example1 () Dim MyValue As String End Sub

Étape 2: Attribuez maintenant une valeur à cette variable

Code:

Sub Left_Example1 () Dim MyValue As String MyValue = End Sub

Étape 3: Ouvrez la fonction GAUCHE.

Code:

Sub Left_Example1 () Dim MyValue As String MyValue = Left (End Sub

Étape 4: Le premier argument est de dire quelle est la chaîne ou la valeur. Notre valeur ici est «Sachin Tendulkar».

Code:

Sub Left_Example1 () Dim MyValue As String MyValue = Left ("Sachin Tendulkar", End Sub

Étape 5: La longueur n'est rien d'autre que le nombre de caractères dont nous avons besoin à gauche. Nous avons besoin de 6 caractères.

Code:

Sub Left_Example1 () Dim MyValue As String MyValue = Left ("Sachin Tendulkar", 6) End Sub

Étape 6: affichez la valeur dans le MsgBox VBA.

Code:

Sub Left_Example1 () Dim MyValue As String MyValue = Left ("Sachin Tendulkar", 6) MsgBox MyValue End Sub

Étape 7: Exécutez la macro à l'aide de la touche F5 ou manuellement via une option d'exécution pour obtenir le résultat dans une boîte de message.

Production:

Au lieu d'afficher le résultat dans une boîte de message, nous pouvons stocker ce résultat dans l'une des cellules de notre feuille de calcul Excel. Nous devons juste ajouter la référence de la cellule et la valeur de la variable.

Code:

Sub Left_Example1 () Dim MyValue As String MyValue = Left ("Sachin Tendulkar", 6) Range ("A1"). Value = MyValue End Sub

Maintenant, si vous exécutez ce code, nous obtiendrons la valeur dans la cellule A1.

Exemple # 2 - GAUCHE avec d'autres fonctions

Dans le cas ci-dessus, nous avons directement fourni la longueur des caractères dont nous avons besoin dans le sens gauche, mais cela convient mieux pour une ou deux valeurs. Supposons ci-dessous la liste des valeurs que vous avez dans votre feuille Excel.

In each case, first name characters are different from one to another; we cannot directly specify the number of characters we needed from each name.

This is where the beauty of other functions will come into the picture. In order to supply the number of characters dynamically, we can use the “VBA Instr” function.

In the above set of names, we need all the characters from the left until we reach space character. So Instr function can return those many characters.

Step 1: Similarly, start an excel macro name and define a variable as a string.

Code:

Sub Left_Example2() Dim FirstName As String End Sub

Step 2: Assign the value to the variable through the LEFT function.

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left( End Sub

Step 3: Here, we need to refer the cell to get the value from the cells. So write the code as CELLE (2,1).Value.

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2,1).Value, End Sub

Step 4: The next thing is how many characters we need. After applying the LEFT function, don’t enter the length of the characters manually. Apply the Instr function.

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2, 1).Value, InStr(1, Cells(2, 1).Value, " ")) End Sub

Step 5: Store this result in the B2 cell. So the code is CELLS (2,2).value = FirstName

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2, 1).Value, InStr(1, Cells(2, 1).Value, " ")) Cells(2, 2).Value = FirstName End Sub

Étape 6: Exécutez ce code manuellement, ou via F5, nous obtiendrons le prénom.

Nous avons obtenu le prénom pour un seul nom, mais nous avons également plusieurs autres noms. Nous ne pouvons pas écrire 100 lignes de code à extraire, alors comment extraire?

C'est là que la beauté des boucles entre en scène. Voici le code de boucle, qui peut éliminer toutes les étapes indésirables et peut faire le travail en 3 lignes.

Code:

Sub Left_Example2 () Dim FirstName As String Dim i As Integer For i = 2 To 9 FirstName = Left (Cells (i, 1) .Value, InStr (1, Cells (i, 1) .Value, "") - 1) Cellules (i, 2) .Value = FirstName Next i End Sub