Este tutorial demostrará cómo usar la función Left VBA.
Función izquierda
La función VBA Left devuelve los primeros n caracteres de una cadena.
Función izquierda de VBA n primeros caracteres
La función VBA Left devuelve los primeros n caracteres de una cadena:
123456 | Sub LeftExample_1 ()MsgBox Left ("ABCDEFGHI", 4) 'El resultado es: "ABCD"MsgBox Left ("ABCDEFGHI", 2) 'El resultado es: "AB"MsgBox Left ("ABCDEFGHI", 1) 'El resultado es: "A"MsgBox Left ("ABCDEFGHI", 100) 'El resultado es: "ABCDEFGHI"End Sub |
Función izquierda de VBA n primeros caracteres en una variable
Como se muestra arriba, puede definir una cadena simplemente ingresando texto entre comillas. Pero la función IZQUIERDA también funcionará con variables de cadena. Estos ejemplos extraerán los primeros n caracteres de una variable de cadena.
1234567891011 | Sub LeftExample_2 ()Dim StrEx As String 'Definir una variable de cadenaStrEx = "ABCDEFGHI"MsgBox Left (StrEx, 4) 'El resultado es: "ABCD"MsgBox Left (StrEx, 2) 'El resultado es: "AB"MsgBox Left (StrEx, 1) 'El resultado es: "A"MsgBox Left (StrEx, 100) 'El resultado es: "ABCDEFGHI"End Sub |
Función izquierda de VBA n primeros caracteres en una celda
Las cadenas se pueden definir en código VBA, pero también puede usar valores de celdas. Lea el valor de una celda, manténgalo en una variable de cadena y extraiga los primeros n caracteres de ese valor de celda de la hoja de trabajo.
12345678910111213 | Sub LeftExample_3 ()Dim StrEx As String 'Definir una variable de cadena'Lea el valor de la celda A1 en la hoja de trabajo Hoja1StrEx = ThisWorkbook.Worksheets ("Sheet1"). Range ("A1"). Value'Para este ejemplo, el valor de la celda A1 es "A bCDEFGHI"MsgBox Left (StrEx, 4) 'El resultado es: "ABCD"MsgBox Left (StrEx, 2) 'El resultado es: "AB"MsgBox Left (StrEx, 1) 'El resultado es: "A"MsgBox Left (StrEx, 100) 'El resultado es: "ABCDEFGHI"End Sub |
Función izquierda de VBA Recortar la última letra
Para eliminar letras del final de una cadena, utilice la función IZQUIERDA junto con la función LEN.
La función VBA LEN cuenta el número de caracteres en una cadena:
1 | Len (StrEx) |
Al combinar las funciones, podemos eliminar una cierta cantidad de caracteres del final de la cadena:
123456789 | Sub LeftExample_4 ()Dim StrEx As String 'Definir una variable de cadenaStrEx = "ABCDEF"MsgBox Left (StrEx, Len (StrEx)) 'El resultado es: "ABCDEF"MsgBox Left (StrEx, Len (StrEx) - 1) 'El resultado es: "ABCDE"MsgBox Left (StrEx, Len (StrEx) - 2) 'El resultado es: "ABCD"End Sub |
VBA a la izquierda para extraer el nombre
Para extraer el nombre de una cadena con un nombre completo, use la función izquierda junto con la función Instr.
La función VBA Instr busca una subcadena dentro de una cadena y devuelve el número de posición de la subcadena.
1 | InStr (StrEx, "") |
Combinando las funciones, podemos extraer la primera palabra de una frase:
12345678910111213141516171819 | Sub LeftExample_5 ()Dim StrEx As String 'Definir una variable de cadenaStrEx = "Alexander Graham Bell"MsgBox Left (StrEx, InStr (StrEx, ""))'El resultado es: "Alexander" (observe el espacio al final)MsgBox Left (StrEx, InStr (StrEx, "") - 1)'El resultado es: "Alexander" (SIN espacio al final)StrEx = "Leonardo da Vinci"MsgBox InStr (StrEx, "")'El resultado es: 9 porque el espacio se encuentra en la posición 9MsgBox Left (StrEx, InStr (StrEx, "") - 1)'El resultado es: "Leonardo"End Sub |