Función VBA LEN

La función Len es una función común tanto para la hoja de trabajo como para VBA, es una función incorporada para ambas plataformas y la sintaxis para usar esta función también es similar, los argumentos que esta función toma en ambas plataformas son similares, que es una cadena y el uso o la salida de esta función es la misma que devuelve la longitud de una cadena.

La función VBA LEN devuelve la "longitud de la cadena", es decir, devuelve cuántos caracteres hay en el valor proporcionado. De todas las funciones de cadena en VBA, "LEN" es la función menos utilizada. He visto la función “VBA LEN” utilizada como función de soporte para otras funciones de cadena como las funciones VBA MID y la función VBA RIGHT.

¿Cómo encuentras la longitud de la cadena o el valor?

Por ejemplo, si la oración "¡Hola chicos, buenos días!" y tú, si quieres encontrar el número de caracteres que contiene, ¿cómo lo encuentras? En este artículo, le mostraremos la función "VBA LEN".

Fórmula de la función VBA LEN

La función LEN tiene una sola sintaxis, es decir, expresión.

Una expresión no es más que el valor que intentamos probar.

Por ejemplo, Len ("Bueno") devolverá 4.

Ejemplos

A continuación se muestran los ejemplos de la función Longitud de cadena de VBA.

Ejemplo 1

La longitud de una función de cadena VBA es muy simple de usar. Por ejemplo, mire el siguiente código VBA.

Código:

 Sub LEN_Example () Dim Total_Length As String Total_Length = Len ("Excel VBA") MsgBox Total_Length End Sub

En la variable de código anterior es "Total_Length".

Dim Total_Length como cadena

Para esta variable, le hemos asignado el valor a través de la función VBA LEN.

Total_Length = Len ("Excel VBA")

Para la función LEN, hemos asignado el valor como "Excel VBA".

Total_Length = Len ("Excel VBA")

A continuación, mostramos el resultado en el cuadro de mensaje de VBA.

MsgBox Total_Length

Cuando ejecuto este código usando la tecla F5 o manualmente, obtendremos 9 como resultado porque el espacio también es un carácter.

VBA LEN como función de soporte

Ejemplo 1

El propósito de la función LEN se utiliza principalmente con otras funciones. He usado esta función con las funciones RIGHT e Instr.

Por ejemplo, mire los datos de muestra a continuación.

A partir de los datos anteriores, debemos extraer la fecha y los comentarios por separado. Copie los datos anteriores en su hoja de Excel y péguelos en la celda A1.

Para extraer estos elementos, necesitamos usar la función LEN con otras funciones de cadena. El siguiente código hará el trabajo por nosotros.

Código:

Sub LEN_Example1 () Dim OurValue As String Dim k As Long For k = 2 To 6 'En este caso, mis datos comenzaron desde la segunda celda y terminan en la sexta. 'Según sus datos, cambie los números OurValue = ActiveSheet.Cells (k, 1) .Value' Esto extraerá los primeros 10 caracteres, es decir, la parte de fecha ActiveSheet.Cells (k, 2) .Value = Left (Trim (OurValue), 10) 'Esto extraerá la parte de comentarios ActiveSheet.Cells (k, 3) .Value = Mid (Trim (OurValue), 11, Len (Trim (OurValue)) - 10) Next End Sub

Cuando ejecutamos este código manualmente o mediante la tecla F5, obtendremos el resultado como el siguiente.

Ejemplo # 2

Ahora le mostraré cómo usar VBA Length of string como función de soporte para extraer el apellido del nombre completo con la función RIGHT & Instr.

Para la demostración, mire los datos a continuación.

De la lista anterior, necesitamos extraer el apellido del nombre completo. El siguiente código extraerá el apellido. LEN utilizado aquí como función de apoyo.

Código:

 Sub LEN_Example2 () Dim FullName As String Dim k As Long For k = 2 to 8 FullName = ActiveSheet.Cells (k, 1) .Value 'Esto extraerá el apellido ActiveSheet.Cells (k, 2) .Value = Right (FullName , Len (FullName) - InStr (1, FullName, "")) 'LEN encuentra el número completo de caracteres' Instr encuentra el carácter de espacio 'LEN - Inst dará el total de caracteres del Next End Sub derecho