„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 grąžina „eilutės ilgį“, t. Y., Ir 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 norite jame rasti simbolių skaičių, kaip jį rasti? Šiame straipsnyje parodysime „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“)
Funkcijai LEN 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 stygos ilgį kaip palaikymo funkciją, norint išgauti viso vardo pavardę naudojant funkciją 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šgaus pavardę„ ActiveSheet.Cells “(k, 2). Vertė = dešinė („ FullName “) , Len („FullName“) - „InStr“ (1, „FullName“, ""))) "LEN randa visą simbolių skaičių" Instr randa tarpo simbolį "LEN - Inst will suteiks 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ą
