Fonction gauche VBA

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. Parmi 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 GAUCHE, la fonction VBA GAUCHE 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?

Vous pouvez télécharger ce modèle de fonction de gauche VBA ici - Modèle de fonction de gauche VBA

Exemple 1

Supposons que vous ayez un 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 LEFT 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. Il suffit d'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 à partir de la direction gauche, mais cela est plus approprié pour une ou deux valeurs. Supposons ci-dessous la liste des valeurs que vous avez dans votre feuille Excel.

Dans chaque cas, les caractères du prénom sont différents les uns des autres, nous ne pouvons pas spécifier directement le nombre de caractères dont nous avions besoin pour chaque nom.

C'est là que la beauté des autres fonctions entrera en scène. Afin de fournir dynamiquement le nombre de caractères, nous pouvons utiliser la fonction «VBA Instr».

Dans l'ensemble de noms ci-dessus, nous avons besoin de tous les caractères de la gauche jusqu'à ce que nous atteignions le caractère espace. La fonction Instr peut donc renvoyer ces nombreux caractères.

Étape 1: De même, démarrez un nom de macro Excel et définissez une variable sous forme de chaîne.

Code:

 Sub Left_Example2 () Dim FirstName As String End Sub 

Étape 2: attribuez la valeur à la variable via la fonction GAUCHE.

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 

Step 6: Run this code manually or through F5 we will get the first name.

We got the first name for the one name, but we have several other names as well. We cannot write 100 lines of code to extract, then how do we extract?

This is where the beauty of loops comes into the picture. Below is the loop code which can eliminate all the unwanted steps and can do the job in 3 lines.

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) Cells(i, 2).Value = FirstName Next i End Sub 

Note: Instr function returns space character as well, so we need to minus 1 from the Instr result.

If you run this code we will get first name values.

Output:

Things to Remember

  • Left can extract only from left.
  • VBA Instr function finds the position of the supplied in character in the string.