Satura rādītājs
Saskaitiet virknē esošo vārdu skaitu
Šī VBA funkcija saskaita vārdu skaitu virknē, meklējot atstarpes virknē. Tas izmanto MID funkciju. Jūs varētu paveikt kaut ko līdzīgu ar funkcijām SEARCH vai FIND.
| 1234567891011121314151617 | Funkcija Number_of_Words (Text_String As String) kā vesels skaitlis'Funkcija saskaita vārdu skaitu virknē“skatoties uz katru rakstzīmi un redzot, vai tā ir atstarpe vai nēVārdu skaits = 0Dim String_Length kā vesels skaitlisDim Pašreizējā_rakstzīme kā vesels skaitlisString_Length = Len (Text_String)Pašreizējam_rakstzīmim = 1 līdz virknes_garumamIf (Mid (Text_String, Current_Character, 1)) = "" TadVārdu skaits = vārdu skaits + 1Beigas JaNākamais Current_CharacterBeigu funkcija |
Ir vērts atzīmēt pāris punktus:
• Šis kods jāievieto darbgrāmatas modulī - VBA rūtī noklikšķiniet uz Ievietot un pēc tam uz moduļa
• Funkciju var izsaukt no Excel darbgrāmatas šūnas vai nu kā skaidru tekstu, vai šūnu atsauci kā argumentu:
A3 = Vārdu skaits (“Cūku suņa kaķis”)
A4 = vārdu skaits (D1)
Funkcija darbojas, šķērsojot virknes garumu un noskaidrojot, vai nākamā rakstzīme ir atstarpe un, ja tā, tā pievieno vienu virknes atstarpju skaitam.
