Funkcia Len je spoločnou funkciou pre pracovný hárok aj pre formát VBA, je to vstavaná funkcia pre obe platformy a podobná je aj syntax na použitie tejto funkcie, argumenty, ktoré táto funkcia na oboch platformách používa, sú podobné, čo je reťazec a použitie alebo výstup pre túto funkciu je rovnaký ako návrat dĺžky reťazca.
Funkcia VBA LEN
Funkcia VBA LEN vráti „dĺžku reťazca“, tj. A vráti počet znakov, ktoré sú v zadanej hodnote. Zo všetkých reťazcových funkcií vo VBA je funkcia „LEN“ najviac využívaná. Videl som funkciu „VBA LEN“ použitú ako podporná funkcia pre ďalšie reťazcové funkcie, ako sú funkcie VBA MID a VBA RIGHT.
Ako zistíte dĺžku reťazca alebo hodnotu?
Napríklad, ak máte vetu „Ahoj chlapi, dobré ráno !!!“ a chcete v ňom nájsť počet znakov, ako to zistíte? V tomto článku si ukážeme funkciu „VBA LEN“.
Vzorec funkcie VBA LEN
Funkcia LEN má iba jednu syntax, tj Výraz.
Výraz nie je nič iné ako hodnota, ktorú sa snažíme testovať.
Napríklad Len („dobrý“) vráti 4.
Príklady
Ďalej uvádzame príklady funkcie dĺžky reťazca VBA.
Príklad č
Dĺžka funkcie VBA String je veľmi jednoduchá. Napríklad sa pozrite na nižšie uvedený kód VBA.
Kód:
Sub LEN_Example () Dim Total_Length As String Total_Length = Len ("Excel VBA") MsgBox Total_Length End Sub
Vo vyššie uvedenom premennej kódu je „Total_Length“.
Stlmiť celkovú dĺžku ako reťazec
Pre túto premennú sme hodnotu priradili prostredníctvom funkcie VBA LEN.
Total_Length = Len („Excel VBA“)
Pre funkciu LEN sme priradili hodnotu ako „Excel VBA“.
Total_Length = Len („Excel VBA“)
Ďalej ukazujeme výsledok v okne správy VBA.
MsgBox Total_Length
Keď spustím tento kód pomocou klávesu F5 alebo manuálne, dostaneme vo výsledku 9, pretože medzera je tiež znak.
VBA LEN ako podporná funkcia
Príklad č
Účel funkcie LEN sa väčšinou využíva s inými funkciami. Túto funkciu som použil s funkciami RIGHT a Instr.
Napríklad si pozrite nižšie uvedené vzorové údaje.
Z vyššie uvedených údajov musíme extrahovať Dátum zvlášť a Poznámky osobitne. Skopírujte vyššie uvedené údaje do svojho hárku programu Excel a vložte ich do bunky A1.
Aby sme tieto prvky mohli extrahovať, musíme použiť funkciu LEN s ďalšími reťazcovými funkciami. Nasledujúci kód urobí prácu za nás.
Kód:
Sub LEN_Example1 () Dim OurValue As String Dim k As Long For k = 2 To 6 'V tomto prípade moje údaje začali z druhej bunky a končili na šiestej. „Na základe vašich údajov zmeňte čísla OurValue = ActiveSheet.Cells (k, 1) .Value 'Týmto sa extrahuje prvých 10 znakov, tj. Dátumová časť ActiveSheet.Cells (k, 2). Hodnota = Left (Orezať (OurValue), 10) „Týmto sa extrahuje časť poznámok ActiveSheet.Cells (k, 3) .Hodnota = Mid (Orezať (OurValue), 11, Len (Orezať (OurValue)) - 10) Ďalej Koniec Sub
Keď tento kód spustíme manuálne alebo pomocou klávesu F5, dostaneme výsledok, ako je uvedené nižšie.
Príklad č
Teraz vám ukážem, ako používať dĺžku reťazca VBA ako podpornú funkciu na extrahovanie priezviska celého mena pomocou funkcie RIGHT & Instr.
Na ukážku si pozrite nasledujúce údaje.
Z vyššie uvedeného zoznamu musíme extrahovať priezvisko z celého mena. Nasledujúci kód extrahuje priezvisko. LEN sa tu používa ako podporná funkcia.
Kód:
Sub LEN_Example2 () Dim FullName As String Dim k As Long For k = 2 To 8 FullName = ActiveSheet.Cells (k, 1) .Value 'Toto extrahuje priezvisko ActiveSheet.Cells (k, 2) .Value = Right (FullName) , Len (CeléMeno) - InStr (1, CeléMeno, "")) 'LEN vyhľadá celý počet znakov' Instr nájde medzerník 'LEN - Inst dá celkový počet znakov z pravého Nasledujúci koniec Sub
Spustite kód pomocou klávesu F5, alebo môžete spustiť manuálne a pozrieť si výsledok.
Túto dĺžku reťazca VBA programu Excel si môžete stiahnuť tu - Šablóna funkcie VBA LEN
