Len-funktio on yhteinen funktio sekä laskentataulukolle että VBA: lle, se on sisäänrakennettu toiminto molemmille alustoille, ja tämän funktion käyttämissyntaksi on myös samanlainen, argumentit, jotka tämä funktio ottaa molemmilla alustoilla, ovat samanlaisia, mikä on merkkijono ja käyttö tai tämän funktion lähtö on sama kuin se palauttaa merkkijonon pituuden.
VBA LEN -toiminto
VBA LEN -toiminto palauttaa merkkijonon pituuden eli palauttaa kuinka monta merkkiä toimitetussa arvossa on. Kaikista VBA: n merkkijonofunktioista "LEN" on eniten käytetty toiminto. Olen nähnyt “VBA LEN” -toiminnon käytettyä tukitoimintona muille merkkijonofunktioille, kuten VBA MID -toiminnot ja VBA OIKEA-toiminto.
Kuinka löydät merkkijonon tai arvon pituuden?
Jos esimerkiksi lause "Hei kaverit, hyvää huomenta !!!" ja haluat löytää siinä olevien merkkien määrän, miten löydät sen? Tässä artikkelissa näytämme sinulle “VBA LEN” -toiminnon.
VBA LEN -toiminnon kaava
LEN-toiminnolla on vain yksi syntakse, eli lauseke.
Lauseke on vain arvo, jota yritämme testata.
Esimerkiksi Len (“Hyvä”) palauttaa arvon 4.
Esimerkkejä
Alla on esimerkkejä merkkijonofunktion VBA-pituudesta.
Esimerkki 1
VBA-merkkijonofunktion pituus on erittäin helppo käyttää. Katso esimerkiksi alla olevaa VBA-koodia.
Koodi:
Sub LEN_Example () Dim Total_Length as String Total_Length = Len ("Excel VBA") MsgBox Total_Length End Sub
Yllä olevassa koodimuuttujassa on ”Total_Length”.
Himmennä koko_pituus merkkijonona
Tälle muuttujalle olemme määrittäneet arvon VBA LEN -toiminnon avulla.
Total_Length = Len ("Excel VBA")
LEN-toiminnolle olemme määrittäneet arvon "Excel VBA".
Total_Length = Len ("Excel VBA")
Seuraavaksi näytämme tuloksen VBA-viestiruudussa.
MsgBox-kokonaispituus
Kun suoritan tämän koodin F5-näppäimellä tai manuaalisesti, tuloksena on 9, koska tila on myös merkki.
VBA LEN tukitoimintona
Esimerkki 1
LEN-toiminnon tarkoitusta käytetään enimmäkseen muiden toimintojen kanssa. Olen käyttänyt tätä toimintoa RIGHT & Instr -toimintojen kanssa.
Katso esimerkiksi alla olevia näytetietoja.
Yllä olevista tiedoista meidän on purettava päivämäärä erikseen ja huomautukset erikseen. Kopioi yllä olevat tiedot Excel-taulukkoosi ja liitä soluun A1.
Näiden elementtien purkamiseksi meidän on käytettävä LEN-funktiota muiden merkkijonofunktioiden kanssa. Alla oleva koodi tekee työn meille.
Koodi:
Ala LEN_Example1 () Himmennä arvomme merkkijonona Himmennä niin kauan kuin k = 2 - 6 'Tässä tapauksessa tietoni alkoivat toisesta solusta ja päättyvät kuudenteen. 'Muuta tietojen perusteella numeroita OurValue = ActiveSheet.Cells (k, 1) .Value' Tämä poimi ensimmäiset 10 merkkiä eli päivämääräosan ActiveSheet.Cells (k, 2) .Arvo = Vasen (Trim (OurValue), 10) 'Tämä purkaa huomautukset ActiveSheet.Cells (k, 3) .Arvo = Mid (Trim (OurValue), 11, Len (Trim (OurValue)) - 10) Next End Sub
Kun suoritamme tämän koodin manuaalisesti tai F5-avaimen kautta, saamme tuloksen kuten alla.
Esimerkki 2
Nyt näytän sinulle, kuinka VBA-merkkijonon pituutta käytetään tukitoimintona koko nimen sukunimen purkamiseksi OIKEUS- ja OHJ-funktiolla.
Katso esittelyä varten alla olevat tiedot.
Yllä olevasta luettelosta meidän on purettava sukunimi koko nimestä. Alla oleva koodi poimi sukunimen. LEN: ää käytetään tässä tukitoimintona.
Koodi:
Ala LEN_Example2 () Hämärä KokoNimi merkkijonona Himmennetty niin kauan kuin k = 2 - 8 TäysiNimi = ActiveSheet.Cells (k, 1) .Arvo 'Tämä purkaa sukunimen ActiveSheet.Cells (k, 2) .Arvo = Oikea (FullName) , Len (KokoNimi) - InStr (1, KokoNimi, "")) '' LEN löytää täyden määrän merkkejä 'Instr löytää välilyönnin' LEN - Inst-tahdossa saadaan merkkejä oikealta Next End Sub
Suorita koodi F5-näppäimellä, tai voit suorittaa manuaalisesti ja nähdä tuloksen.
Voit ladata tämän Excel VBA -merkkijonon täältä - VBA LEN -toimintomalli
