seychellesartprojects.org

„Len“ funkcija yra įprasta funkcija tiek darbalapyje, tiek VBA, tai yra integruota abiejų platformų funkcija, o sintaksė naudoti šią funkciją taip pat yra panaši, argumentai, kuriuos ši funkcija pateikia abiejose platformose, yra panašūs, o tai yra eilutė ir naudojimas arba šios funkcijos išvestis yra tokia pati, kaip ir grąžina eilutės ilgį.

VBA LEN funkcija

Funkcija „VBA LEN“ pateikia „eilutės ilgį“, ty pateikia simbolių skaičių pateiktoje vertėje. Iš visų VBA eilučių funkcijų „LEN“ yra labiausiai nepakankamai naudojama funkcija. Mačiau, kad „VBA LEN“ funkcija naudojama kaip palaikymo funkcija kitoms eilutės funkcijoms, tokioms kaip VBA MID Funkcijos ir VBA RIGHT.

Kaip rasti eilutės ar vertės ilgį?

Pvz., Jei sakote „Sveiki vaikinai, labas rytas !!!“ ir jūs, jei norite rasti jame simbolių skaičių, kaip jį rasti? Šiame straipsnyje mes parodysime jums „VBA LEN“ funkciją.

VBA LEN funkcijos formulė

LEN funkcija turi tik vieną sintaksę, ty išraišką.

Išraiška yra ne kas kita, o vertybė, kurią bandome išbandyti.

Pavyzdžiui, Len („Geras“) grąžins 4.

Pavyzdžiai

Žemiau pateikiami VBA stygos funkcijos ilgio pavyzdžiai.

1 pavyzdys

VBA String funkcijos ilgį naudoti yra labai paprasta. Pavyzdžiui, pažvelkite į žemiau esantį VBA kodą.

Kodas:

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

Pirmiau pateiktame kodo kintamajame yra „Total_Length“.

„Dim Total_Length As Sting“

Šio kintamojo reikšmę priskyrėme per funkciją VBA LEN.

Total_Length = Len („Excel VBA“)

LEN funkcijai priskyrėme vertę kaip „Excel VBA“.

Total_Length = Len („Excel VBA“)

Tada mes rodome rezultatą VBA pranešimų laukelyje.

„MsgBox Total_Length“

Kai paleisiu šį kodą naudodamas F5 klavišą arba rankiniu būdu, gausime 9, nes tarpas taip pat yra simbolis.

VBA LEN kaip palaikymo funkcija

1 pavyzdys

LEN funkcijos paskirtis dažniausiai naudojama kartu su kitomis funkcijomis. Šią funkciją naudojau su RIGHT & Instr funkcijomis.

Pavyzdžiui, pažiūrėkite į toliau pateiktus pavyzdinius duomenis.

Iš aukščiau nurodytų duomenų turime išskirti datą atskirai ir pastabas atskirai. Nukopijuokite aukščiau nurodytus duomenis į „Excel“ lapą ir įklijuokite į langelį A1.

Norėdami išgauti šiuos elementus, turime naudoti funkciją LEN su kitomis eilutės funkcijomis. Žemiau pateiktas kodas atliks darbą už mus.

Kodas:

Sub LEN_Example1 () Dim OurValue As String Dim k As Long For k = 2 to 6 'Šiuo atveju mano duomenys prasidėjo nuo antrojo langelio ir baigiasi 6-oje vietoje. „Remiantis jūsų duomenimis pakeiskite skaičius„ OurValue “=„ ActiveSheet.Cells “(k, 1).„ Value “. Tai išskirs pirmuosius 10 simbolių, ty datos dalį„ ActiveSheet.Cells “(k, 2). Vertė = kairė („ Trim “(„ OurValue “), 10) „Tai ištrauks pastabų dalį„ ActiveSheet.Cells “(k, 3). Vertė = Vidutinė (Trim (OurValue), 11, Len (Trim (OurValue)) - 10) Next End Sub

Kai vykdysime šį kodą rankiniu būdu arba naudodamiesi klavišu F5, gausime tokį rezultatą kaip žemiau.

2 pavyzdys

Dabar aš jums parodysiu, kaip naudoti VBA ilgio eilutę kaip palaikymo funkciją, norint išgauti viso vardo pavardę su funkcija RIGHT & Instr.

Norėdami parodyti, žiūrėkite žemiau pateiktus duomenis.

Iš aukščiau pateikto sąrašo turime išgauti pavardę iš viso vardo. Žemiau pateiktas kodas išgaus pavardę. LEN čia naudojama kaip palaikymo funkcija.

Kodas:

 Sub LEN_Example2 () Dim FullName As String Dim k As Long For k = 2–8 FullName = ActiveSheet.Cells (k, 1). Value. Tai ištrauks pavardę ActiveSheet.Cells (k, 2). Value = Right (FullName) , Len („FullName“) - „InStr“ (1, „FullName“, ""))) "LEN randa visą simbolių skaičių" Instr randa tarpo simbolį "LEN - Inst will duos bendrą simbolių skaičių iš dešinės„ Next End Sub “ 

Paleiskite kodą naudodami klavišą F5 arba galite paleisti rankiniu būdu ir pamatyti rezultatą.

Galite atsisiųsti šį „Excel“ VBA eilutės ilgį - VBA LEN funkcijos šabloną