Denne opplæringen vil demonstrere hvordan du bruker Len VBA -funksjonen for å få lengden på en streng.
Len -funksjon
VBA Len -funksjonen returnerer lengden på en spesifisert streng.
VBA Len Count -tegn
VBA Len -funksjonen teller tegnene i en streng.
| 1234567891011121314151617 | Sub LenExample_1 ()MsgBox Len ("12345") 'Resultat er: 5MsgBox Len ("12") 'Resultat er: 2MsgBox Len ("1") 'Resultat er: 1MsgBox Len ("") 'Resultat er: 1'Det er en mellomromskarakter der inne.MsgBox Len ("") 'Resultat er: 0MsgBox Len ("AB Cd") 'Resultat er: 5Slutt Sub |
VBA Len -strenger eller varianter
VBA Len -funksjon kan telle antall tegn i variabler som er deklarert som strenger eller varianter. Egentlig vil VBA Len behandle en variant som en streng. Hvis VBA Len brukes med et heltall, langt, enkelt eller dobbelt, vil VBA Len telle antall byte som trengs for å lagre variabelen.
| 123456789101112131415161718192021222324252627282930313233 | Sub LenExample_2 ()Dim VarEx1 som strengVarEx1 = 12345MsgBox Len (VarEx1) 'Resultat er: 5'Len teller antall tegn i variabelDim VarEx2 som variantVarEx2 = 12345MsgBox Len (VarEx2) 'Resultat er: 5'Len teller antall tegn i variabelDim VarEx3 som heltallVarEx3 = 12345MsgBox Len (VarEx3) 'Resultat er: 2'Len teller antall byte som brukes til å lagre variabelenDim VarEx4 så lengeVarEx4 = 12345MsgBox Len (VarEx4) 'Resultat er: 2'Len teller antall byte som brukes til å lagre variabelenDim VarEx5 som singelVarEx5 = 12345MsgBox Len (VarEx5) 'Resultat er: 2'Len teller antall byte som brukes til å lagre variabelenDim VarEx6 som dobbelVarEx6 = 12345MsgBox Len (VarEx6) 'Resultat er: 2'Len teller antall byte som brukes til å lagre variabelenSlutt Sub |
VBA Len Count Forekomster av en karakter
VBA Len -funksjonen kan brukes med VBA Replace -funksjonen for å telle hvor mange ganger et tegn finnes i en streng.
VBA Replace Function kan erstatte en delstreng med en annen delstreng i en tekst:
| 1 | MsgBox Erstatt ("XBCX", "X", "7") 'Resultat er: "7BC7" |
Vi kan bruke Erstatt for å fjerne tegnene vi vil telle med “” og deretter finne forskjellen i lengde før og etter erstatningen.
| 1234567891011121314 | Sub LenExample_3 ()Dim StrEx As String 'Definer en strengvariabelStrEx = "Jack, John, Jim, Jordan"MsgBox Len (StrEx) - Len (Erstatt (StrEx, ",", "")) 'Resultat er: 3'Bryte ned koden ovenforMsgBox Len (StrEx) 'Resultat er: 20MsgBox Erstatt (StrEx, ",", "") 'Resultat er: "JackJohnJimJordan"MsgBox Len (Erstatt (StrEx, ",", "")) 'Resultat er: 17MsgBox Len (StrEx) - Len (Erstatt (StrEx, ",", "")) 'Resultat er: 20-17 = 3Slutt Sub |
VBA Len Count Forekomster av en understreng
VBA Len -funksjonen kan brukes med VBA Replace -funksjonen for å telle hvor mange ganger en delstreng finnes i en streng.
VBA Replace Function kan erstatte en delstreng med en annen delstreng i en tekst:
| 1 | MsgBox Erstatt ("XB cX", "X", "7") 'Resultat er: "7B c7" |
Vi kan bruke Erstatt for å fjerne underlagene vi vil telle med “” og deretter finne forskjellen i lengde før og etter utskiftningen. Til slutt må vi dele forskjellen med lengden på delstrengen vi erstattet.
| 12345678910111213141516171819 | Sub LenExample_4 ()Dim StrEx As String 'Definer en strengvariabelStrEx = "Jack, John, Jim, Jordan"Dim SubStr As String 'Definer en delstrengsvariabelSubStr = ","'Vi finner hvor mange ganger SubStr er funnet inne i StrExMsgBox (Len (StrEx) - Len (Erstatt (StrEx, SubStr, ""))) / Len (SubStr) 'Resultat er: 3'Bryte ned koden ovenforMsgBox Len (StrEx) 'Resultat er: 23MsgBox Erstatt (StrEx, SubStr, "") 'Resultat er: "JackJohnJimJordan"MsgBox Len (Erstatt (StrEx, SubStr, "")) 'Resultat er: 17MsgBox Len (StrEx) - Len (Erstatt (StrEx, SubStr, "")) 'Resultat er: 23-17 = 6MsgBox (Len (StrEx) - Len (Erstatt (StrEx, SubStr, ""))) / Len (SubStr)'Resultatet er: (23-17)/2 = 3Slutt Sub |
