{"id":4347,"date":"2023-07-11T20:09:33","date_gmt":"2023-07-11T20:09:33","guid":{"rendered":"https:\/\/statorials.org\/nl\/vba-telling-uniek\/"},"modified":"2023-07-11T20:09:33","modified_gmt":"2023-07-11T20:09:33","slug":"vba-telling-uniek","status":"publish","type":"post","link":"https:\/\/statorials.org\/nl\/vba-telling-uniek\/","title":{"rendered":"Hoe u unieke waarden binnen bereik kunt tellen met vba"},"content":{"rendered":"

<\/p>\n

\n

U kunt de volgende basissyntaxis gebruiken om het aantal unieke waarden in een bereik te tellen met behulp van VBA:<\/span><\/p>\n

 SubCountUnique<\/span> ()\n    Dim<\/span> Rng As<\/span> Range, List As<\/span> Object, UniqueCount As<\/span> Long\n    Set<\/span> List = CreateObject(\" Scripting.Dictionary<\/span> \")\n    \n    'count unique values in range A2:A11<\/span>\n    For<\/span> Each<\/span> Rng In<\/span> Range(\" A2:A11<\/span> \")\n      If Not<\/span> List.Exists(Rng.Value) Then<\/span> List.Add Rng.Value, Nothing\n    Next<\/span>\n    \n'store unique count\n<\/span>UniqueCount = List.Count\n    \n    ' display unique count<\/span>\n    MsgBox \" Count of Unique Values:<\/span> \" & UniqueCount<\/span>\n\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n
 Dit specifieke voorbeeld telt het aantal unieke waarden in het bereik A2:A11<\/strong> en geeft vervolgens de telling weer in een berichtvenster.<\/span><\/p>\n
 Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.<\/span><\/p>\n
 Voorbeeld: Tel unieke waarden binnen bereik met behulp van VBA<\/strong><\/span><\/h2>\n
 Stel dat we de volgende lijst met basketbalteamnamen in Excel hebben:<\/span> <\/p>\n
\"\"<\/p>\n
 Stel dat we het aantal unieke teamnamen in het bereik A2:A11<\/strong> willen tellen.<\/span><\/p>\n
 We kunnen hiervoor de volgende macro maken:<\/span><\/p>\n
 SubCountUnique()<\/span>\nDim<\/span> Rng As<\/span> Range, List As<\/span> Object, UniqueCount As<\/span> Long\n    Set<\/span> List = CreateObject(\" Scripting.Dictionary<\/span> \")<\/span>\n    \n    'count unique values in range A2:A11<\/span>\nFor Each<\/span> Rng In<\/span> Range(\" A2:A11<\/span> \")\n      If Not<\/span> List.Exists(Rng.Value) Then<\/span> List.Add Rng.Value, Nothing\n    Next<\/span>\n    \n    'store unique count<\/span>\n    UniqueCount = List.Count\n    \n    'display unique count<\/span>\n    MsgBox \" Count of Unique Values:<\/span> \" & UniqueCount<\/span>\n\nEnd Sub<\/span><\/strong><\/span><\/pre>\n
 Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:<\/span> <\/p>\n
\"E\u00e9n<\/p>\n
 Het berichtvenster vertelt ons dat er 5<\/strong> unieke teamnamen zijn.<\/span><\/p>\n
 We kunnen verifi\u00ebren dat dit juist is door elk van de unieke teamnamen handmatig te identificeren:<\/span><\/p>\n