{"id":4346,"date":"2023-07-11T20:09:33","date_gmt":"2023-07-11T20:09:33","guid":{"rendered":"https:\/\/statorials.org\/tr\/vba-sayisi-benzersiz\/"},"modified":"2023-07-11T20:09:33","modified_gmt":"2023-07-11T20:09:33","slug":"vba-sayisi-benzersiz","status":"publish","type":"post","link":"https:\/\/statorials.org\/tr\/vba-sayisi-benzersiz\/","title":{"rendered":"Vba kullanarak aral\u0131ktaki benzersiz de\u011ferler nas\u0131l say\u0131l\u0131r?"},"content":{"rendered":"

<\/p>\n

\n

VBA’y\u0131 kullanarak bir aral\u0131ktaki benzersiz de\u011ferlerin say\u0131s\u0131n\u0131 saymak i\u00e7in a\u015fa\u011f\u0131daki temel s\u00f6zdizimini kullanabilirsiniz:<\/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
 Bu \u00f6zel \u00f6rnek, A2:A11<\/strong> aral\u0131\u011f\u0131ndaki benzersiz de\u011ferlerin say\u0131s\u0131n\u0131 sayar ve ard\u0131ndan bu say\u0131y\u0131 bir mesaj kutusunda g\u00f6r\u00fcnt\u00fcler.<\/span><\/p>\n
 A\u015fa\u011f\u0131daki \u00f6rnek, bu s\u00f6zdiziminin pratikte nas\u0131l kullan\u0131laca\u011f\u0131n\u0131 g\u00f6sterir.<\/span><\/p>\n
 \u00d6rnek: VBA Kullanarak Aral\u0131ktaki Benzersiz De\u011ferleri Sayma<\/strong><\/span><\/h2>\n
 Excel’de a\u015fa\u011f\u0131daki basketbol tak\u0131m\u0131 adlar\u0131 listesine sahip oldu\u011fumuzu varsayal\u0131m:<\/span> <\/p>\n
\"\"<\/p>\n
 A2:A11<\/strong> aral\u0131\u011f\u0131ndaki benzersiz tak\u0131m adlar\u0131n\u0131n say\u0131s\u0131n\u0131 saymak istedi\u011fimizi varsayal\u0131m.<\/span><\/p>\n
 Bunun i\u00e7in a\u015fa\u011f\u0131daki makroyu olu\u015fturabiliriz:<\/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
 Bu makroyu \u00e7al\u0131\u015ft\u0131rd\u0131\u011f\u0131m\u0131zda a\u015fa\u011f\u0131daki \u00e7\u0131kt\u0131y\u0131 al\u0131yoruz:<\/span> <\/p>\n
\"Tek<\/p>\n
 Mesaj kutusu bize 5<\/strong> benzersiz tak\u0131m ad\u0131n\u0131n oldu\u011funu s\u00f6yl\u00fcyor.<\/span><\/p>\n
 Benzersiz tak\u0131m adlar\u0131n\u0131n her birini manuel olarak tan\u0131mlayarak bunun do\u011fru oldu\u011funu do\u011frulayabiliriz:<\/span><\/p>\n