Ši pamoka parodys, kaip naudoti funkciją „Len VBA“ norint gauti eilutės ilgį.
Len funkcija
Funkcija VBA Len grąžina nurodytos eilutės ilgį.
VBA Len skaičiuoja personažus
Funkcija VBA Len skaičiuoja simbolius eilutėje.
1234567891011121314151617 | Po LenExample_1 ()„MsgBox Len“ („12345“) rezultatas: 5„MsgBox Len“ („12“) rezultatas: 2„MsgBox Len“ („1“) rezultatas: 1„MsgBox Len“ („“) rezultatas: 1„Ten yra kosminis personažas.„MsgBox Len“ („“) rezultatas: 0„MsgBox Len“ („AB Cd“) rezultatas: 5Pabaiga Sub |
VBA Len stygos arba variantai
„VBA Len“ funkcija gali suskaičiuoti simbolių skaičių kintamuosiuose, paskelbtuose kaip eilutės ar variantai. Tiesą sakant, „VBA Len“ variantą traktuos kaip eilutę. Jei „VBA Len“ naudojamas su sveiku skaičiumi, ilgu, pavieniu ar dvigubu, tada „VBA Len“ skaičiuos baitų skaičių, reikalingą kintamajam išsaugoti.
123456789101112131415161718192021222324252627282930313233 | Antrasis LenExample_2 ()Dim VarEx1 kaip eilutėVarEx1 = 12345„MsgBox Len“ („VarEx1“) rezultatas: 5„Len skaičiuoja simbolių skaičių kintamajameDim VarEx2 kaip variantasVarEx2 = 12345„MsgBox Len“ („VarEx2“) rezultatas: 5„Len skaičiuoja simbolių skaičių kintamajameDim VarEx3 kaip sveikasis skaičiusVarEx3 = 12345„MsgBox Len“ („VarEx3“) rezultatas: 2„Len skaičiuoja baitų, naudojamų kintamajam saugoti, skaičiųDim VarEx4 As LongVarEx4 = 12345„MsgBox Len“ („VarEx4“) rezultatas: 2„Len skaičiuoja baitų, naudojamų kintamajam saugoti, skaičiųDim VarEx5 As SingleVarEx5 = 12345„MsgBox Len“ („VarEx5“) rezultatas: 2„Len skaičiuoja baitų, naudojamų kintamajam saugoti, skaičiųDim VarEx6 As DoubleVarEx6 = 12345„MsgBox Len“ („VarEx6“) rezultatas: 2„Len skaičiuoja baitų, naudojamų kintamajam saugoti, skaičiųPabaiga Sub |
VBA Len Count Veikėjo įvykiai
Funkciją „VBA Len“ galima naudoti su funkcija „VBA Replace“, kad būtų galima suskaičiuoti, kiek kartų simbolis randamas eilutėje.
VBA pakeitimo funkcija gali pakeisti antrinę eilutę kita eilute tekste:
1 | „MsgBox Replace“ („XBCX“, „X“, „7“) „Rezultatas:„ 7BC7 “ |
Mes galime naudoti „Replace“, kad pašalintume simbolius, su kuriais norime suskaičiuoti „“, ir tada surasime ilgio skirtumą prieš ir po pakeitimo.
1234567891011121314 | Po LenExample_3 ()„Dim StrEx“ kaip eilutė „Apibrėžkite eilutės kintamąjįStrEx = "Džekas, Džonas, Džimas, Jordanija"MsgBox Len (StrEx) - Len (Pakeisti (StrEx, ",", ""))) Rezultatas: 3„Išardykite aukščiau esantį kodą„MsgBox Len“ („StrEx“) rezultatas: 20„MsgBox Replace“ („StrEx“, „“, „“) „Rezultatas:„ JackJohnJimJordan “„MsgBox Len“ (Pakeisti („StrEx“, „“, „“)) „Rezultatas: 17MsgBox Len (StrEx) - Len (Pakeisti (StrEx, ",", ""))) 'Rezultatas: 20-17 = 3Pabaiga Sub |
VBA „Len Count“ antrinės eilutės įvykiai
Funkciją „VBA Len“ galima naudoti su funkcija „VBA Replace“, kad būtų galima suskaičiuoti, kiek kartų eilutėje randama antrinė eilutė.
VBA pakeitimo funkcija gali pakeisti antrinę eilutę kita eilute tekste:
1 | „MsgBox Replace“ („XB cX“, „X“, „7“) „Rezultatas:„ 7B c7 “ |
Mes galime naudoti pakeitimą, kad pašalintume antrines eilutes, kurias norime suskaičiuoti „“, ir tada surasime ilgio skirtumą prieš ir po pakeitimo. Galiausiai turime padalinti skirtumą su pakeistos antrinės eilutės ilgiu.
12345678910111213141516171819 | „Len“ pavyzdys_4 ()„Dim StrEx“ kaip eilutė „Apibrėžkite eilutės kintamąjįStrEx = "Džekas, Džonas, Džimas, Jordanija"Dim SubStr as String 'Apibrėžkite antrinį kintamąjįSubStr = ","„Mes surasime, kiek kartų„ SubStr “yra„ StrEx “vidujeMsgBox (Len (StrEx) - Len (Pakeisti (StrEx, SubStr, ""))) / Len (SubStr) 'Rezultatas: 3„Išardykite aukščiau esantį kodą„MsgBox Len“ („StrEx“) rezultatas: 23„MsgBox Replace“ („StrEx“, „SubStr“, „“) rezultatas: „JackJohnJimJordan“MsgBox Len (Pakeisti (StrEx, SubStr, "")) 'Rezultatas: 17MsgBox Len (StrEx) - Len (Pakeisti (StrEx, SubStr, "")) 'Rezultatas: 23-17 = 6MsgBox (Len (StrEx) - Len (Pakeisti (StrEx, SubStr, ""))) / Len (SubStr)„Rezultatas: (23–17)/2 = 3Pabaiga Sub |