{"id":4345,"date":"2023-07-11T20:09:33","date_gmt":"2023-07-11T20:09:33","guid":{"rendered":"https:\/\/statorials.org\/id\/jumlah-vba-unik\/"},"modified":"2023-07-11T20:09:33","modified_gmt":"2023-07-11T20:09:33","slug":"jumlah-vba-unik","status":"publish","type":"post","link":"https:\/\/statorials.org\/id\/jumlah-vba-unik\/","title":{"rendered":"Cara menghitung nilai unik dalam rentang menggunakan vba"},"content":{"rendered":"

<\/p>\n

\n

Anda dapat menggunakan sintaks dasar berikut untuk menghitung jumlah nilai unik dalam suatu rentang menggunakan 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
 Contoh khusus ini menghitung jumlah nilai unik dalam rentang A2:A11<\/strong> dan kemudian menampilkan hitungannya di kotak pesan.<\/span><\/p>\n
 Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.<\/span><\/p>\n
 Contoh: Menghitung Nilai Unik dalam Range Menggunakan VBA<\/strong><\/span><\/h2>\n
 Misalkan kita memiliki daftar nama tim bola basket berikut di Excel:<\/span> <\/p>\n
\"\"<\/p>\n
 Misalkan kita ingin menghitung jumlah nama tim unik dalam rentang A2:A11<\/strong> .<\/span><\/p>\n
 Kita dapat membuat makro berikut untuk melakukan ini:<\/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
 Saat kami menjalankan makro ini, kami menerima keluaran berikut:<\/span> <\/p>\n
\"Nomor<\/p>\n
 Kotak pesan memberitahu kita bahwa ada 5<\/strong> nama tim yang unik.<\/span><\/p>\n
 Kami dapat memverifikasi kebenarannya dengan mengidentifikasi setiap nama tim unik secara manual:<\/span><\/p>\n