Tämä opetusohjelma osoittaa, kuinka Len VBA -toiminnon avulla saadaan merkkijonon pituus.
Len -toiminto
VBA Len -funktio palauttaa määritetyn merkkijonon pituuden.
VBA Len Count Characters
VBA Len -toiminto laskee merkkijonon merkit.
| 1234567891011121314151617 | Sub LenExample_1 ()MsgBox Len ("12345") 'Tulos: 5MsgBox Len ("12") 'Tulos: 2MsgBox Len ("1") 'Tulos on: 1MsgBox Len ("") 'Tulos on: 1- Siellä on välilyönti.MsgBox Len ("") 'Tulos: 0MsgBox Len ("AB Cd") Tulos: 5End Sub |
VBA Len -kielet tai -vaihtoehdot
VBA Len -toiminto voi laskea merkkien määrän muuttujina, jotka on ilmoitettu merkkijonoina tai muunnelmina. Itse asiassa VBA Len käsittelee varianttia merkkijonona. Jos VBA Lenia käytetään kokonaisluvulla, pitkällä, yhdellä tai kaksinkertaisella, VBA Len laskee muuttujan tallentamiseen tarvittavien tavujen määrän.
| 123456789101112131415161718192021222324252627282930313233 | Sub LenExample_2 ()Dim VarEx1 merkkijononaVarEx1 = 12345MsgBox Len (VarEx1) 'Tulos: 5'Len laskee muuttujan merkkien määrääDim VarEx2 VarianttinaVarEx2 = 12345MsgBox Len (VarEx2) 'Tulos: 5'Len laskee muuttujan merkkien määrääDim VarEx3 kokonaislukunaVarEx3 = 12345MsgBox Len (VarEx3) 'Tulos: 2'Len laskee muuttujan tallentamiseen käytettyjen tavujen määrääDim VarEx4 niin pitkäVarEx4 = 12345MsgBox Len (VarEx4) 'Tulos: 2'Len laskee muuttujan tallentamiseen käytettyjen tavujen määrääDim VarEx5 SingleVarEx5 = 12345MsgBox Len (VarEx5) 'Tulos: 2'Len laskee muuttujan tallentamiseen käytettyjen tavujen määrääDim VarEx6 As DoubleVarEx6 = 12345MsgBox Len (VarEx6) 'Tulos: 2'Len laskee muuttujan tallentamiseen käytettyjen tavujen määrääEnd Sub |
VBA Len Count Hahmon esiintymät
VBA Len -toimintoa voidaan käyttää VBA Replace -toiminnon kanssa laskemaan, kuinka monta kertaa merkki löytyy merkkijonosta.
VBA -korvaustoiminto voi korvata tekstin alimerkkijonon toisella alimerkkijonolla:
| 1 | MsgBox Replace ("XBCX", "X", "7") 'Tulos: "7BC7" |
Voimme käyttää Korvaa -näppäintä poistaaksemme merkit, joiden kanssa haluamme laskea ””, ja etsimään sitten pituuserot ennen korvaamista ja sen jälkeen.
| 1234567891011121314 | Sub LenExample_3 ()Dim StrEx merkkijonona 'Määritä merkkijonomuuttujaStrEx = "Jack, John, Jim, Jordan"MsgBox Len (StrEx) - Len (Korvaa (StrEx, ",", "")) 'Tulos: 3'Katkaise yllä oleva koodiMsgBox Len (StrEx) 'Tulos: 20MsgBox Replace (StrEx, ",", "") 'Tulos: "JackJohnJimJordan"MsgBox Len (Korvaa (StrEx, "," "")) 'Tulos: 17MsgBox Len (StrEx) - Len (Korvaa (StrEx, ",", ""))) 'Tulos: 20-17 = 3End Sub |
VBA Len Count Alijonon esiintymiset
VBA Len -toimintoa voidaan käyttää VBA Replace -toiminnon kanssa laskemaan, kuinka monta kertaa merkkijonosta löytyy alimerkkijono.
VBA -korvaustoiminto voi korvata tekstin alimerkkijonon toisella alimerkkijonolla:
| 1 | MsgBox Replace ("XB cX", "X", "7") 'Tulos: "7B c7" |
Voimme käyttää Korvaa -painiketta poistaaksesi alijonot, jotka haluamme laskea "" -merkinnällä, ja sitten löydämme pituuseron ennen ja jälkeen korvaamisen. Lopuksi meidän on jaettava ero korvatun alijonon pituuteen.
| 12345678910111213141516171819 | Sub LenExample_4 ()Dim StrEx merkkijonona 'Määritä merkkijonomuuttujaStrEx = "Jack, John, Jim, Jordan"Dim SubStr merkkijonona 'Määritä alimerkkimuuttujaSubStr = ","'Selvitämme, kuinka monta kertaa SubStr löytyy StrExistäMsgBox (Len (StrEx) - Len (Korvaa (StrEx, SubStr, ""))) / Len (SubStr) 'Tulos on: 3'Katkaise yllä oleva koodiMsgBox Len (StrEx) 'Tulos: 23MsgBox Replace (StrEx, SubStr, "") 'Tulos: "JackJohnJimJordan"MsgBox Len (Korvaa (StrEx, SubStr, "")) 'Tulos on: 17MsgBox Len (StrEx) - Len (Korvaa (StrEx, SubStr, "")) 'Tulos on: 23-17 = 6MsgBox (Len (StrEx) - Len (Korvaa (StrEx, SubStr, ""))) / Len (SubStr)'Tulos on: (23-17)/2 = 3End Sub |
