Indholdsfortegnelse
Tæl antal ord i en streng
Den følgende VBA -funktion tæller antallet af ord i en streng ved at søge efter mellemrum i strengen. Den bruger MID -funktionen. Du kan udføre noget lignende med SØG- eller FIND -funktionerne.
| 1234567891011121314151617 | Funktion Number_of_Words (Text_String As String) Som Integer'Funktion tæller antallet af ord i en streng'ved at se på hver karakter og se, om det er et mellemrum eller ejNumber_of_Words = 0Dim String_Length som heltalDim Current_Character som heltalString_Length = Len (Text_String)For Current_Character = 1 Til String_LengthIf (Mid (Text_String, Current_Character, 1)) = "" SåNumber_of_Words = Antal_of_Words + 1Afslut HvisNæste Current_CharacterAfslut funktion |
Det er værd at bemærke et par punkter:
• Denne kode skal indsættes i et projektmappemodul - fra VBA -ruden skal du klikke på Indsæt og derefter modul
• Funktionen kan kaldes fra en excel -projektmappe, enten med en eksplicit tekst eller cellereference som et argument:
A3 = Number_of_Words (“Pig Dog Cat”)
A4 = Antal_ord_ord (D1)
Funktionen fungerer ved at krydse længden af en streng og se, om det næste tegn er et mellemrum, og i så fald tilføjer det et til antallet af mellemrum i strengen.
