In dit artikel zullen we een aangepaste functie maken om de unieke waarden in het gedefinieerde bereik te tellen.
De onbewerkte gegevens voor dit voorbeeld bestaan uit willekeurige getallen in de rijen. In dit voorbeeld willen we het aantal unieke nummers in elke rij tellen.
We hebben de aangepaste functie "CountUniqueValues" gemaakt om het aantal unieke nummers in de rij te vinden. Deze functie neemt bereik als invoer en retourneert het unieke aantal getallen.
Logische uitleg
We hebben een aangepaste functie "CountUniqueValues" gemaakt om het aantal unieke nummers te krijgen. In deze aangepaste functie hebben we een object van het verzamelingsobject gemaakt. Dit verzamelobject wordt gebruikt om de lijst met unieke nummers te maken. Zodra we de lijst met unieke nummers hebben, krijgen we het aantal items in de collectie.
Code uitleg
Application.Volatile wordt gebruikt omdat het elke keer dat een celwaarde in de werkmap wordt gewijzigd, opnieuw wordt berekend.
On Error Resume Next wordt gebruikt om fouten af te handelen.
Volg hieronder voor de code:
Optie Expliciete functie CountUniqueValues (InputRange As Range) As Integer Dim CellValue As Variant, UniqueValues As New Collection Application.Volatile 'For error handling On Error Resume Next' Door alle cellen in het gedefinieerde bereik doorlopen voor elke CellValue In InputRange UniqueValues.Add CellValue , CStr(CellValue) ' voeg het unieke item toe Volgende 'Het aantal unieke waarden retourneren CountUniqueValues = UniqueValues.Count End Function
Als je deze blog leuk vond, deel hem dan met je vrienden op Facebook. Ook kunt u ons volgen op Twitter en Facebook.
We horen graag van u, laat ons weten hoe we ons werk kunnen verbeteren en voor u kunnen verbeteren. Schrijf ons op de e-mailsite