photosdematures.com

La funció Len és una funció comuna tant per al full de treball com per a VBA, és una funció incorporada per a les dues plataformes i la sintaxi per utilitzar aquesta funció també és similar, els arguments que pren aquesta funció a les dues plataformes són similars, que és una cadena i l’ús o la sortida d'aquesta funció és la mateixa que retorna la longitud d'una cadena.

Funció VBA LEN

La funció VBA LEN retorna la "longitud de la cadena", és a dir, retorna quants caràcters hi ha al valor subministrat. De totes les funcions de cadena de VBA, "LEN" és la funció més poc utilitzada. He vist que la funció "VBA LEN" s'utilitzava com a funció de suport per a altres funcions de cadena, com ara les funcions VBA MID i la funció VBA RIGHT.

Com es troba la longitud de la cadena o el valor?

Per exemple, si la frase "Hola nois, bon dia !!!" i si voleu trobar el nombre de caràcters, com el trobeu? En aquest article, us mostrarem la funció "VBA LEN".

Fórmula de la funció VBA LEN

La funció LEN només té una sintaxi, és a dir, Expressió.

Una expressió no és res més que el valor que intentem provar.

Per exemple, Len ("Bo") retornarà 4.

Exemples

A continuació es mostren els exemples de funció de longitud de cadena VBA.

Exemple 1

La longitud d'una funció de cadena VBA és molt senzilla d'utilitzar. Per exemple, mireu el codi VBA següent.

Codi:

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

A la variable de codi anterior hi ha "Llarg_total".

Dismineix la longitud total com a cadena

Per a aquesta variable, hem assignat el valor mitjançant la funció VBA LEN.

Longitud_ total = Len ("Excel VBA")

Per a la funció LEN, hem assignat el valor com a "Excel VBA".

Longitud_ total = Len ("Excel VBA")

A continuació, mostrem el resultat al quadre de missatges VBA.

MsgBox Total_Length

Quan executeu aquest codi amb la tecla F5 o manualment, obtindrem 9 com a resultat perquè l'espai també és un caràcter.

VBA LEN com a funció de suport

Exemple 1

El propòsit de la funció LEN s'utilitza principalment amb altres funcions. He utilitzat aquesta funció amb les funcions RIGHT & Instr.

Per exemple, mireu les dades de mostra següents.

De les dades anteriors, hem d’extreure la data per separat i les observacions per separat. Copieu les dades anteriors al full Excel i enganxeu-les a la cel·la A1.

Per extreure aquests elements, hem d’utilitzar la funció LEN amb altres funcions de cadena. El següent codi ens farà la feina.

Codi:

 Sub LEN_Example1 () Dim OurValue As String Dim k Long Per k = 2 a 6 'En aquest cas, les meves dades van començar a partir de la segona cel·la i acaben a la 6a. "Basant-vos en les vostres dades, canvieu els números OurValue = ActiveSheet.Cells (k, 1). Valor" Això extreurà els primers 10 caràcters, és a dir, porció de data ActiveSheet.Cells (k, 2). Valor = Esquerra (Retalla (OurValue), 10) "Això extreurà la part de les observacions ActiveSheet.Cells (k, 3). Valor = Mitjà (Retalla (el nostre valor), 11, Len (Retalla (el nostre valor)) - 10) Sub final següent 

Quan executem aquest codi manualment o mitjançant la tecla F5, obtindrem el resultat com el següent.

Exemple 2

Ara us mostraré com utilitzar la longitud de la cadena VBA com a funció de suport per extreure el cognom del nom complet amb la funció RIGHT & Instr.

Per a la demostració, mireu les dades següents.

De la llista anterior, hem d’extreure el cognom del nom complet. El codi següent extraurà el cognom. LEN utilitzat com a funció de suport aquí.

Codi:

 Sub LEN_Example2 () Dim FullName As String Dim k Long Per a k = 2 a 8 FullName = ActiveSheet.Cells (k, 1). Valor "S'extreurà el cognom ActiveSheet.Cells (k, 2). Valor = Dret (FullName , Len (FullName) - InStr (1, FullName, "")) 'LEN troba el nombre complet de caràcters' Instr troba el caràcter espacial 'LEN - Inst donarà caràcters totals a la dreta Next End Sub 

Executeu el codi amb la tecla F5 o podeu executar-lo manualment i veure el resultat.

Podeu descarregar aquesta longitud de cadena Excel VBA aquí: plantilla de funció VBA LEN