Spisie treści
Policz liczbę słów w ciągu
Poniższa funkcja VBA zlicza słowa w ciągu, wyszukując spacje w ciągu. Wykorzystuje funkcję MID. Możesz osiągnąć coś podobnego za pomocą funkcji SZUKAJ lub ZNAJDŹ.
| 1234567891011121314151617 | Funkcja Liczba_słów (ciąg_tekstowy jako ciąg) jako liczba całkowita'Funkcja zlicza liczbę słów w ciągu„patrząc na każdą postać i sprawdzając, czy jest to przestrzeń, czy nie”Liczba_słów = 0Dim String_Length jako liczba całkowitaDim Current_Character jako liczba całkowitaDługość_ciągu = Dł (ciąg_tekstu)Dla bieżącego_znaku = 1 na długość_ciąguIf (Mid(Tekst_Ciąg, Bieżący_Znak, 1)) = " " WtedyLiczba_słów = Liczba_słów + 1Zakończ, jeśliNastępny bieżący_znakKoniec funkcji |
Warto zwrócić uwagę na kilka punktów:
• Ten kod należy wstawić do modułu skoroszytu - w panelu VBA kliknij Wstaw, a następnie moduł
• Funkcję można wywołać z komórki skoroszytu programu Excel z wyraźnym tekstem lub odwołaniem do komórki jako argumentem:
A3 = Number_of_Words(„Świnia Pies Kot”)
A4 = liczba_słów (D1)
Funkcja działa poprzez przemierzanie długości ciągu i sprawdzanie, czy następny znak jest spacją, a jeśli tak, dodaje jeden do liczby spacji w ciągu.
