Innehållsförteckning
Räkna antalet ord i en sträng
Följande VBA -funktion räknar antalet ord i en sträng genom att söka efter mellanslag inom strängen. Den använder MID -funktionen. Du kan åstadkomma något liknande med funktionerna SÖK eller HITTA.
| 1234567891011121314151617 | Funktion Number_of_Words (Text_String som sträng) Som heltal'Funktion räknar antalet ord i en stränggenom att titta på varje karaktär och se om det är ett mellanslag eller inteNumber_of_Words = 0Dim String_Length som heltalDim Current_Character Som heltalString_Length = Len (Text_String)För Current_Character = 1 Till String_LengthIf (Mid (Text_String, Current_Character, 1)) = "" DåNumber_of_Words = Number_of_Words + 1Avsluta omNästa Current_CharacterAvsluta funktion |
Det är värt att notera ett par punkter:
• Den här koden måste infogas i en arbetsboksmodul - klicka på Infoga i modulen VBA och sedan på modulen
• Funktionen kan anropas från en excel -arbetsbokcell antingen med en antingen explicit text eller cellreferens som argument:
A3 = Number_of_Words (“Pig Dog Cat”)
A4 = Antal_ord_ord (D1)
Funktionen fungerar genom att korsa längden på en sträng och se om nästa tecken är ett mellanslag och i så fall lägger det till ett till antalet mellanslag i strängen.
