Inhoudsopgave
Tel het aantal woorden in een string
De volgende VBA-functie telt het aantal woorden in een string door te zoeken naar spaties binnen de string. Het maakt gebruik van de MID-functie. Je zou iets soortgelijks kunnen bereiken met de SEARCH- of FIND-functies.
| 1234567891011121314151617 | Functie Number_of_Words(Text_String As String) As Integer'Functie telt het aantal woorden in een string''door naar elk personage te kijken en te zien of het een spatie is of niet'Aantal_van_Woorden = 0Dim String_Length als geheel getalDim Current_Character As IntegerString_Length = Len(Text_String)Voor Current_Character = 1 To String_LengthIf (Mid(Text_String, Current_Character, 1)) = " " DanAantal_van_Woorden = Aantal_van_Woorden + 1Stop alsVolgende Huidig_KarakterFunctie beëindigen |
Het is vermeldenswaard een paar punten:
• Deze code moet worden ingevoegd in een werkmapmodule - klik in het VBA-venster op Invoegen en vervolgens op module
• De functie kan worden aangeroepen vanuit een Excel-werkmapcel met een expliciete tekst of celverwijzing als argument:
A3 = Number_of_Words ("Pig Dog Cat")
A4 = Aantal_van_Woorden (D1)
De functie werkt door de lengte van een tekenreeks te doorlopen en te kijken of het volgende teken een spatie is en zo ja, dan wordt er een toegevoegd aan het aantal spaties in de tekenreeks.
