{"id":4328,"date":"2023-07-11T23:41:01","date_gmt":"2023-07-11T23:41:01","guid":{"rendered":"https:\/\/statorials.org\/nl\/vba-tel-het-aantal-keren-dat-een-teken-in-een-tekenreeks-voorkomt\/"},"modified":"2023-07-11T23:41:01","modified_gmt":"2023-07-11T23:41:01","slug":"vba-tel-het-aantal-keren-dat-een-teken-in-een-tekenreeks-voorkomt","status":"publish","type":"post","link":"https:\/\/statorials.org\/nl\/vba-tel-het-aantal-keren-dat-een-teken-in-een-tekenreeks-voorkomt\/","title":{"rendered":"Vba: het aantal tekens in een string tellen"},"content":{"rendered":"

<\/p>\n

\n

U kunt de volgende basissyntaxis gebruiken om het aantal keren dat een teken in een tekenreeks voorkomt te tellen met behulp van VBA:<\/span><\/p>\n

 Sub<\/span> CountOccurrences()\n    Dim<\/span> i As<\/span> Integer\n    \n    'Specify character to look for<\/span>\n    my_char = \"\/\"\n    \n    'Count occurrences in each string in B2:B12 and display results in C2:C12<\/span>\n    For<\/span> i = 2 To<\/span> 12\n        Count = (Len(Range(\" B<\/span> \" & i)) - Len(Replace(Range(\" B<\/span> \" & i), my_char, \"\"))) \/ Len(my_char)\n        Range(\" C<\/span> \" & i) = Count\n    Next<\/span> i\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n
 Dit specifieke voorbeeld telt het aantal keren dat een schuine streep ( \/<\/strong> ) voorkomt in elke cel in het bereik B2:B12<\/strong> en geeft de resultaten weer in het bereik C2:C12<\/strong> .<\/span><\/p>\n
 Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.<\/span><\/p>\n
 Voorbeeld: Tel het aantal tekens in een string met behulp van VBA<\/strong><\/span><\/h2>\n
 Laten we zeggen dat we de volgende gegevensset in Excel hebben die de namen van verschillende basketbalspelers toont en de posities die ze in een spel kunnen spelen:<\/span> <\/p>\n
\"\"<\/p>\n
 Stel dat we het aantal schuine strepen ( \/<\/strong> ) in elke tekenreeks in de kolom Positie willen tellen.<\/span><\/p>\n
 We kunnen hiervoor de volgende macro maken:<\/span><\/p>\n
 Sub<\/span> CountOccurrences()\n    Dim<\/span> i As<\/span> Integer\n    \n    'Specify character to look for<\/span>\n    my_char = \"\/\"\n    \n    'Count occurrences in each string in B2:B12 and display results in C2:C12<\/span>\n    For<\/span> i = 2 To<\/span> 12\n        Count = (Len(Range(\" B<\/span> \" & i)) - Len(Replace(Range(\" B<\/span> \" & i), my_char, \"\"))) \/ Len(my_char)\n        Range(\" C<\/span> \" & i) = Count\n    Next<\/span> i\nEnd Sub<\/span><\/strong><\/span><\/pre>\n
 Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:<\/span> <\/p>\n
\"\"<\/p>\n
 De waarden in kolom C geven het aantal schuine strepen weer in de overeenkomende tekenreeksen in kolom B.<\/span><\/span><\/p>\n
 Bijvoorbeeld:<\/span><\/p>\n