Ovaj će vodič pokazati kako koristiti Len VBA funkciju za dobivanje duljine niza.
Len funkcija
VBA Len funkcija vraća duljinu navedenog niza.
VBA Len Count Characters
Funkcija VBA Len broji znakove u nizu.
1234567891011121314151617 | Pod LenExample_1 ()MsgBox Len ("12345") 'Rezultat je: 5MsgBox Len ("12") 'Rezultat je: 2MsgBox Len ("1") 'Rezultat je: 1MsgBox Len ("") 'Rezultat je: 1'Tamo je svemirski lik.MsgBox Len ("") 'Rezultat je: 0MsgBox Len ("AB Cd") 'Rezultat je: 5Kraj podm |
VBA Len žice ili varijante
VBA Len funkcija može brojati broj znakova u varijablama deklariranim kao nizovi ili varijante. Zapravo, VBA Len će varijantu tretirati kao niz. Ako se VBA Len koristi s cijelim brojem, dugim, jednim ili dvostrukim, tada će VBA Len brojati broj bajtova potrebnih za spremanje varijable.
123456789101112131415161718192021222324252627282930313233 | Sub LenExample_2 ()Dim VarEx1 kao nizVarEx1 = 12345MsgBox Len (VarEx1) 'Rezultat je: 5'Len broji broj znakova u varijabliDim VarEx2 kao varijantaVarEx2 = 12345MsgBox Len (VarEx2) 'Rezultat je: 5'Len broji broj znakova u varijabliDim VarEx3 kao cijeli brojVarEx3 = 12345MsgBox Len (VarEx3) 'Rezultat je: 2'Len broji broj bajtova koji se koriste za spremanje varijableDim VarEx4 koliko god dugoVarEx4 = 12345MsgBox Len (VarEx4) 'Rezultat je: 2'Len broji broj bajtova koji se koriste za spremanje varijableDim VarEx5 kao singlVarEx5 = 12345MsgBox Len (VarEx5) 'Rezultat je: 2'Len broji broj bajtova koji se koriste za spremanje varijableDim VarEx6 kao dvostrukiVarEx6 = 12345MsgBox Len (VarEx6) 'Rezultat je: 2'Len broji broj bajtova koji se koriste za spremanje varijableKraj podm |
VBA Len Count Pojave lika
VBA Len funkcija može se koristiti s VBA Replace funkcijom za brojanje koliko se puta znak nalazi u nizu.
VBA funkcija zamjene može zamijeniti podniz drugim podnizom u tekstu:
1 | MsgBox Replace ("XBCX", "X", "7") 'Rezultat je: "7BC7" |
Možemo upotrijebiti Replace za uklanjanje znakova koje želimo brojati s "", a zatim pronaći razliku u duljini prije i nakon zamjene.
1234567891011121314 | Pod Len Primjer_3 ()Dim StrEx As String 'Definirajte varijablu nizaStrEx = "Jack, John, Jim, Jordan"MsgBox Len (StrEx) - Len (Zamijeni (StrEx, ",", "")) 'Rezultat je: 3'Razbijanje gornjeg kodaMsgBox Len (StrEx) 'Rezultat je: 20MsgBox Zamijeni (StrEx, ",", "") 'Rezultat je: "JackJohnJimJordan"MsgBox Len (Zamijenite (StrEx, ",", "")) 'Rezultat je: 17MsgBox Len (StrEx) - Len (Zamijeni (StrEx, ",", "")) 'Rezultat je: 20-17 = 3Kraj podm |
VBA Len Count Pojave podniz
VBA Len funkcija može se koristiti s VBA Replace funkcijom za brojanje koliko se puta niz nalazi u nizu.
VBA funkcija zamjene može zamijeniti podniz drugim podnizom u tekstu:
1 | MsgBox Replace ("XB cX", "X", "7") "Rezultat je:" 7B c7 " |
Možemo upotrijebiti Replace za uklanjanje podnizova koje želimo brojati s “”, a zatim pronaći razliku u duljini prije i nakon zamjene. Konačno, moramo podijeliti razliku s duljinom podniz koji smo zamijenili.
12345678910111213141516171819 | Sub LenExample_4 ()Dim StrEx As String 'Definirajte varijablu nizaStrEx = "Jack, John, Jim, Jordan"Dim SubStr As String 'Definirajte varijablu podnizSubStr = ","'Otkrit ćemo koliko se puta SubStr nalazi unutar StrEx -aMsgBox (Len (StrEx) - Len (Zamijeni (StrEx, SubStr, "")))) / Len (SubStr) "Rezultat je: 3'Razbijanje gornjeg kodaMsgBox Len (StrEx) 'Rezultat je: 23MsgBox Replace (StrEx, SubStr, "") 'Rezultat je: "JackJohnJimJordan"MsgBox Len (Zamijeni (StrEx, SubStr, "")) 'Rezultat je: 17MsgBox Len (StrEx) - Len (Zamijeni (StrEx, SubStr, "")) 'Rezultat je: 23-17 = 6MsgBox (Len (StrEx) - Len (Zamijeni (StrEx, SubStr, "")))) / Len (SubStr)'Rezultat je: (23-17)/2 = 3Kraj podm |