VBA LEN

Len-functie is een algemene functie voor zowel werkblad als VBA, het is een ingebouwde functie voor beide platforms en de syntaxis om deze functie te gebruiken is ook vergelijkbaar, de argumenten die deze functie op beide platforms aanneemt, zijn vergelijkbaar, wat een tekenreeks is en het gebruik of de uitvoer voor deze functie is hetzelfde, aangezien het de lengte van een string retourneert.

VBA LEN-functie

VBA LEN-functie retourneert de "lengte van de tekenreeks", dwz het retourneert hoeveel tekens de opgegeven waarde bevat. Van alle stringfuncties in VBA is "LEN" de meest onderbenutte functie. Ik heb de "VBA LEN" -functie gebruikt als ondersteuningsfunctie voor andere stringfuncties zoals VBA MID-functies en VBA RIGHT-functie.

Hoe vind je de lengte van de string of waarde?

Als u bijvoorbeeld de zin 'Hallo jongens, goedemorgen !!!' en jij als je het aantal karakters erin wilt vinden, hoe vind je het dan? In dit artikel laten we u de functie "VBA LEN" zien.

Formule van VBA LEN-functie

LEN-functie heeft slechts één syntaxis, namelijk Expression.

Een uitdrukking is niets anders dan de waarde die we proberen te testen.

Len ("Goed") geeft bijvoorbeeld 4 terug.

Voorbeelden

Hieronder staan ​​de voorbeelden van VBA-lengte van tekenreeksfunctie.

Voorbeeld 1

De lengte van een VBA String-functie is heel eenvoudig te gebruiken. Kijk bijvoorbeeld naar de onderstaande VBA-code.

Code:

 Sub LEN_Example () Dim Total_Length As String Total_Length = Len ("Excel VBA") MsgBox Total_Length End Sub 

In de bovenstaande codevariabele is "Total_Length".

Dim Total_Length As String

Voor deze variabele hebben we de waarde toegewezen via de VBA LEN-functie.

Total_Length = Len ("Excel VBA")

Voor de LEN-functie hebben we de waarde toegewezen als "Excel VBA".

Total_Length = Len ("Excel VBA")

Vervolgens laten we het resultaat zien in het VBA-berichtvenster.

MsgBox Total_Length

Wanneer ik deze code uitvoer met de F5-toets of handmatig, krijgen we 9 als resultaat omdat spatie ook een teken is.

VBA LEN als ondersteuningsfunctie

Voorbeeld 1

Het doel van de LEN-functie wordt meestal gebruikt met andere functies. Ik heb deze functie gebruikt met RIGHT & Instr-functies.

Bekijk bijvoorbeeld de onderstaande voorbeeldgegevens.

Uit de bovenstaande gegevens moeten we de datum afzonderlijk en de opmerkingen afzonderlijk extraheren. Kopieer de bovenstaande gegevens naar uw Excel-blad en plak in cel A1.

Om deze elementen te extraheren, moeten we de LEN-functie gebruiken met andere stringfuncties. De onderstaande code zal het werk voor ons doen.

Code:

Sub LEN_Example1 () Dim OurValue As String Dim k As Long For k = 2 tot 6 'In dit geval zijn mijn gegevens gestart vanaf de tweede cel en eindigen op de 6e. 'Verander op basis van uw gegevens de nummers OurValue = ActiveSheet.Cells (k, 1) .Value' Dit zal de eerste 10 tekens extraheren, dwz het datumgedeelte ActiveSheet.Cells (k, 2) .Value = Left (Trim (OurValue), 10) 'Dit haalt het opmerkingengedeelte uit ActiveSheet.Cells (k, 3) .Value = Mid (Trim (OurValue), 11, Len (Trim (OurValue)) - 10) Next End Sub

Wanneer we deze code handmatig of via de F5-toets uitvoeren, krijgen we het resultaat zoals hieronder.

Voorbeeld # 2

Nu zal ik je laten zien hoe je VBA-lengte van de string kunt gebruiken als een ondersteuningsfunctie om de achternaam van de volledige naam te extraheren met de functie RIGHT & Instr.

Bekijk de onderstaande gegevens voor de demonstratie.

Uit de bovenstaande lijst moeten we de achternaam uit de volledige naam halen. De onderstaande code extraheert de achternaam. LEN wordt hier als ondersteunende functie gebruikt.

Code:

 Sub LEN_Example2 () Dim FullName As String Dim k As Long For k = 2 tot 8 FullName = ActiveSheet.Cells (k, 1) .Value 'Dit haalt de achternaam ActiveSheet.Cells (k, 2) .Value = Right (FullName) , Len (FullName) - InStr (1, FullName, "")) 'LEN vindt het volledige aantal tekens' Instr vindt spatie-teken 'LEN - Inst geeft het totale aantal tekens vanaf de rechterkant Next End Sub 

Voer de code uit met behulp van de F5-toets of u kunt handmatig uitvoeren en het resultaat zien.

U kunt deze Excel VBA-lengte van de tekenreeks hier downloaden - VBA LEN-functiesjabloon