Visual Basic for Applications gebruiken om de exemplaren van een teken in een selectie in Excel te tellen

Samenvatting

In Microsoft Excel kunt u een macro gebruiken om de exemplaren van een specifiek teken in een cel of celbereik te tellen. Dit artikel bevat een voorbeeldmacro om de exemplaren van een specifiek teken in een cel of celbereik te tellen.

U kunt ook een formule gebruiken om de taak uit te voeren. Als u liever geen macro gebruikt, klikt u op de volgende artikelnummers om de artikelen in de Microsoft Knowledge Base weer te geven:

187667 formules om het aantal exemplaren van tekst, tekens of woorden in Excel voor Mac

Meer informatie

Microsoft verstrekt deze code zonder enige expliciete of impliciete garantie, daaronder mede begrepen, maar niet beperkt tot impliciete garanties met betrekking tot de verkoopbaarheid en/of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend bent met de programmeertaal VBScript, alsmede met de hulpprogramma's waarmee procedures worden gemaakt en waarmee fouten in procedures worden opgespoord. U kunt desgewenst contact opnemen met Microsoft Product Support Services voor uitleg over de functie van een bepaalde procedure. Microsoft Product Support Services is echter niet bereid de voorbeelden aan te passen om extra functies toe te voegen of om procedures te maken die aan uw specifieke eisen voldoen.

Voorbeeld van een Visual Basic-procedure

In de volgende Visual Basic-procedure wordt u gevraagd om een teken (of tekens) te zoeken, vervolgens door de geselecteerde cel of het geselecteerde celbereik te zoeken en wordt een berichtvenster weergegeven met het totale aantal exemplaren van dat teken of dat tekentekenreeks. Dit werkt voor alle alfanumerieke tekens.

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