Denna handledning kommer att visa hur du använder Len VBA -funktionen för att få längden på en sträng.
Len funktion
VBA Len -funktionen returnerar längden på en angiven sträng.
VBA Len Count -tecken
VBA Len -funktionen räknar tecknen i en sträng.
1234567891011121314151617 | Sub LenExample_1 ()MsgBox Len ("12345") 'Resultat är: 5MsgBox Len ("12") 'Resultat är: 2MsgBox Len ("1") 'Resultat är: 1MsgBox Len ("") 'Resultat är: 1'Det finns en rymdkaraktär där inne.MsgBox Len ("") 'Resultat är: 0MsgBox Len ("AB Cd") 'Resultat är: 5Avsluta Sub |
VBA Len strängar eller varianter
VBA Len -funktion kan räkna antalet tecken i variabler som deklareras som strängar eller varianter. Egentligen kommer VBA Len att behandla en variant som en sträng. Om VBA Len används med ett heltal, lång, enkel eller dubbel kommer VBA Len att räkna antalet byte som behövs för att lagra variabeln.
123456789101112131415161718192021222324252627282930313233 | Sub LenExample_2 ()Dim VarEx1 som strängVarEx1 = 12345MsgBox Len (VarEx1) 'Resultat är: 5'Len räknar antalet tecken i variabelDim VarEx2 som variantVarEx2 = 12345MsgBox Len (VarEx2) 'Resultat är: 5'Len räknar antalet tecken i variabelDim VarEx3 som heltalVarEx3 = 12345MsgBox Len (VarEx3) 'Resultat är: 2'Len räknar antalet byte som används för att lagra variabelnDim VarEx4 As LongVarEx4 = 12345MsgBox Len (VarEx4) 'Resultat är: 2'Len räknar antalet byte som används för att lagra variabelnDim VarEx5 som singelVarEx5 = 12345MsgBox Len (VarEx5) 'Resultat är: 2'Len räknar antalet byte som används för att lagra variabelnDim VarEx6 som dubbelVarEx6 = 12345MsgBox Len (VarEx6) 'Resultat är: 2'Len räknar antalet byte som används för att lagra variabelnAvsluta Sub |
VBA Len Count Förekomster av en karaktär
VBA Len -funktionen kan användas med VBA Replace -funktionen för att räkna hur många gånger ett tecken finns i en sträng.
VBA Replace Function kan ersätta en delsträng med en annan delsträng i en text:
1 | MsgBox Ersätt ("XBCX", "X", "7") 'Resultat är: "7BC7" |
Vi kan använda Ersätt för att ta bort de tecken vi vill räkna med “” och sedan hitta skillnaden i längd före och efter bytet.
1234567891011121314 | Sub LenExample_3 ()Dim StrEx As String 'Definiera en strängvariabelStrEx = "Jack, John, Jim, Jordan"MsgBox Len (StrEx) - Len (Ersätt (StrEx, ",", "")) 'Resultat är: 3'Bryter ner koden ovanMsgBox Len (StrEx) 'Resultat är: 20MsgBox Ersätt (StrEx, ",", "") 'Resultat är: "JackJohnJimJordan"MsgBox Len (Ersätt (StrEx, ",", "")) 'Resultat är: 17MsgBox Len (StrEx) - Len (Ersätt (StrEx, ",", "")) 'Resultat är: 20-17 = 3Avsluta Sub |
VBA Len Count Förekomster av en delsträng
VBA Len -funktionen kan användas med VBA Replace -funktionen för att räkna hur många gånger en delsträng hittas i en sträng.
VBA Replace Function kan ersätta en delsträng med en annan delsträng i en text:
1 | MsgBox Ersätt ("XB cX", "X", "7") 'Resultat är: "7B c7" |
Vi kan använda Ersätt för att ta bort de underlag som vi vill räkna med “” och sedan hitta skillnaden i längd före och efter bytet. Slutligen måste vi dela skillnaden med längden på delsträngen vi bytte ut.
12345678910111213141516171819 | Sub LenExample_4 ()Dim StrEx As String 'Definiera en strängvariabelStrEx = "Jack, John, Jim, Jordan"Dim SubStr As String 'Definiera en delsträngsvariabelSubStr = ","'Vi kommer att hitta hur många gånger SubStr finns i StrExMsgBox (Len (StrEx) - Len (Ersätt (StrEx, SubStr, ""))) / Len (SubStr) 'Resultat är: 3'Bryter ner koden ovanMsgBox Len (StrEx) 'Resultat är: 23MsgBox Ersätt (StrEx, SubStr, "") 'Resultat är: "JackJohnJimJordan"MsgBox Len (Ersätt (StrEx, SubStr, "")) 'Resultat är: 17MsgBox Len (StrEx) - Len (Ersätt (StrEx, SubStr, "")) 'Resultat är: 23-17 = 6MsgBox (Len (StrEx) - Len (Ersätt (StrEx, SubStr, ""))) / Len (SubStr)'Resultatet är: (23-17)/2 = 3Avsluta Sub |