Innholdsfortegnelse
Tell antall ord i en streng
Følgende VBA -funksjon teller antall ord i en streng ved å søke etter mellomrom i strengen. Den bruker MID -funksjonen. Du kan oppnå noe lignende med SEARCH- eller FIND -funksjonene.
| 1234567891011121314151617 | Funksjon Number_of_Words (Text_String As String) Som heltall'Funksjon teller antall ord i en streng'ved å se på hver karakter og se om det er et mellomrom eller ikkeNumber_of_Words = 0Dim String_Length As IntegerDim Current_Character Som heltallString_Length = Len (Text_String)For Current_Character = 1 Til String_LengthIf (Mid (Text_String, Current_Character, 1)) = "" DaNumber_of_Words = Number_of_Words + 1Slutt omNeste Current_CharacterSluttfunksjon |
Det er verdt å merke seg et par punkter:
• Denne koden må settes inn i en arbeidsbokmodul - fra VBA -ruten klikker du på Sett inn og deretter modulen
• Funksjonen kan kalles fra en Excel -arbeidsbokcelle enten med enten eksplisitt tekst eller cellereferanse som argument:
A3 = Number_of_Words (“Pig Dog Cat”)
A4 = Antall ord (D1)
Funksjonen fungerer ved å krysse lengden på en streng og se om det neste tegnet er et mellomrom, og i så fall legger det til ett til antall mellomrom i strengen.
