Jak używać Visual Basic for Applications do zliczania wystąpień znaku w zaznaczeniu w programie Excel

  • Artykuł
  • Dotyczy:
    Microsoft Office Excel 2007

Podsumowanie

W programie Microsoft Excel można użyć makra do zliczania wystąpień określonego znaku w komórce lub zakresie komórek. Ten artykuł zawiera przykładowe makro do zliczania wystąpień określonego znaku w komórce lub zakresie komórek.

Możesz również użyć formuły do wykonania zadania. Jeśli nie chcesz używać makra, kliknij następujące numery artykułów, aby wyświetlić artykuły w bazie wiedzy Microsoft Knowledge Base:

187667 formuły do zliczania wystąpień tekstu, znaków lub wyrazów w Excel for Mac

Więcej informacji

Firma Microsoft podaje przykłady programowania tylko dla celów ilustracyjnych, nie udzielając żadnej rękojmi, wyrażonej wprost ani dorozumianej, w tym także, ale nie tylko, dorozumianej rękojmi co do przydatności handlowej lub do określonych celów. W tym artykule zakłada się, że czytelnik zna demonstrowany język programowania oraz narzędzia używane do tworzenia i debugowania procedur. Wykwalifikowani pracownicy pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu, jak działa określona procedura, ale nie będą modyfikować tych przykładów ani dodawać żadnych funkcji i konstruować nowych procedur w celu dostosowania ich do określonych potrzeb użytkownika.

Przykładowa procedura programu Visual Basic

Poniższa procedura języka Visual Basic monituje o znak (lub znaki), a następnie wyszukuje aktualnie wybraną komórkę lub zakres komórek i wyświetla pole komunikatu przedstawiające całkowitą liczbę wystąpień tego znaku lub ciągu znaków. Działa to w przypadku wszystkich znaków alfanumerycznych.

Dim Count As Integer
Dim Target As String
Dim Cell As Object
Dim N As Integer

Sub Target_Count()
   Count = 0
   Target = InputBox("character(s) to find?")
   If Target = "" Then GoTo Done
      For Each Cell In Selection
         N = InStr(1, cell.Value, target)
         While N <> 0
            Count = count + 1
            N = InStr(n + 1, cell.Value, target)
         Wend
      Next Cell
   MsgBox count & " Occurrences of " & target
Done:
End Sub