Función izquierda de VBA - ¿Cómo usar la función izquierda de Excel VBA?

Tabla de contenido

Excel VBA izquierda

Excel VBA izquierda

VBA Left es también una de las funciones de la hoja de trabajo categorizadas bajo las funciones de texto que se usa en VBA con la aplicación. método de hoja de trabajo, devuelve el número especificado de caracteres de la parte izquierda de la cadena.

Algunas de las funciones de Excel también están integradas con VBA. De todas las muchas funciones de texto, VBA LEFT es una de esas funciones que usamos con bastante frecuencia que otras fórmulas.

Si conoce la función Excel IZQUIERDA, entonces la función VBA IZQUIERDA es exactamente la misma. Puede extraer los caracteres del lado izquierdo de la cadena o valor dado por el usuario.

La sintaxis de la función IZQUIERDA es exactamente la misma que en la función de la hoja de trabajo.

Tiene dos argumentos.

Cadena: esto no es más que el valor o la referencia de celda. A partir de este valor, buscamos cortar los personajes.
Longitud: cuántos caracteres desea extraer de la cadena que ha proporcionado. Debe ser un valor numérico.

¿Cómo usar la función izquierda de Excel VBA?

Ejemplo 1

Suponga que tiene la palabra "Sachin Tendulkar" y desea solo los primeros 6 caracteres de esta palabra. Mostraremos cómo extraer desde la izquierda usando la función IZQUIERDA en VBA.

Paso 1: cree un nombre de macro y defina la variable como cadena.

Código:

Sub Left_Example1 () Dim MyValue As String End Sub

Paso 2: ahora asigne un valor a esta variable

Código:

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

Paso 3: Abra la función IZQUIERDA.

Código:

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

Paso 4: El primer argumento es decir cuál es la cadena o el valor. Nuestro valor aquí es "Sachin Tendulkar".

Código:

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

Paso 5: La longitud no es más que la cantidad de caracteres que necesitamos de la izquierda. Necesitamos 6 caracteres.

Código:

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

Paso 6: Muestre el valor en VBA MsgBox.

Código:

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

Paso 7: Ejecute la macro con la tecla F5 o manualmente a través de una opción de ejecución para obtener el resultado en un cuadro de mensaje.

Salida:

En lugar de mostrar el resultado en un cuadro de mensaje, podemos almacenar este resultado en una de las celdas de nuestra hoja de cálculo de Excel. Solo necesitamos agregar la referencia de celda y el valor de la variable.

Código:

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

Ahora, si ejecuta este código, obtendremos el valor en la celda A1.

Ejemplo # 2 - IZQUIERDA con otras funciones

En el caso anterior, hemos proporcionado directamente la longitud de los caracteres que necesitamos desde la dirección izquierda, pero esto es más adecuado para uno o dos valores. Suponga que a continuación está la lista de valores que tiene en su hoja de 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

Paso 6: Ejecute este código manualmente, o mediante F5, obtendremos el nombre.

Tenemos el primer nombre de un nombre, pero también tenemos varios otros nombres. No podemos escribir 100 líneas de código para extraer, entonces, ¿cómo lo hacemos?

Aquí es donde la belleza de los bucles entra en escena. A continuación se muestra el código de bucle, que puede eliminar todos los pasos no deseados y puede hacer el trabajo en 3 líneas.

Código:

Sub Left_Example2 () Dim FirstName como cadena Dim i como entero Para i = 2 a 9 FirstName = Left (Cells (i, 1) .Value, InStr (1, Cells (i, 1) .Value, "") - 1) Celdas (i, 2) .Value = FirstName Next i End Sub