Kalau ada 3 object yang nilainya sama dan nilai itu adalah yang terbanya, untuk sebuah item (misal item Buah), mau dikemanakan yang 2 ya...
Hubungan antar Item nya apa ya... kok result tetap jadi satu datasheet ? Walah wis ben lah... wong gak melu urun solusi kok akeh pitakonane .. ya mbak ya.. wis jan.. Kid. 2009/11/2 siti Vi <[email protected]> > > > kalau yg ditanyakan hanya *JUMLAH TERBANYAK* > (jawabannya berupa bilangan 'kan ??) > cukup dengan array formula saja > *=MAX(COUNTIF(C2:C21,C2:C21))* > > > tetapi jika ingin hasil lengkap, nanti berdasarkan hasil itu anda dapat > mempersempit sendiri apa yg sebenarnya anda inginkan:.. > ini dibuat makro baru yg lebih simple / dan agak lain dari makro sebelumnya > > Sub List_Of_UniqueValues_And_NumberOfPop() > ' declares some variables > Dim FirstKolom As Range > Dim CurrentKol As Range > Dim Uniq_Kolom As Range > Dim u As Byte, i As Integer > > ' tentukan letak & dimensi kolom pertama > Set FirstKolom = Range([b1], [b1].End(xlDown)) > * > ' loop untuk mengurus 3 kolom* > For u = 1 To FirstKolom.CurrentRegion.Columns.Count - 1 > ' tentukan letak kolom ke u > Set CurrentKol = FirstKolom.Offset(0, u) > ' kolom tsb di extract uniq-values-nya dengan > ' menggunakan method advanced filter > CurrentKol.AdvancedFilter Action:=xlFilterCopy, _ > CopyToRange:=CurKolom.Offset(0, 3 + (2 * u)), Unique:=True > > ' tentukan letak range HASIL AdvancedFilter > Set Uniq_Kolom = CurrentKol.Offset(0, 3 + (2 * u)) > Set Uniq_Kolom = Uniq_Kolom.CurrentRegion > Uniq_Kolom(1, 2) = "Populasi" > ' loop /mencari Nilai tiap item (nilai populasi-nya) > ' dgn meminjam fungsi COUNTIF dari worksheet > With WorksheetFunction > For i = 2 To Uniq_Kolom.Rows.Count > Uniq_Kolom(i, 2) = .CountIf(CurrentKol, Uniq_Kolom(i, 1)) > Next i > End With > ' Tiap UniqKolom diSORT (urutkan) kolom 2 sbg kuncinya > ' dengan urutan descending (menurun) > Uniq_Kolom.CurrentRegion.Select > ' pelaksanaan sorting dgn memanggil prosedur lain > Call Sort(Uniq_Kolom.CurrentRegion) > Next u > End Sub > > > Private Sub Sort(SortRange As Range) > * ' Sorting Uniq_Kolom / menggunakan metoda Sort > * SortRange.Sort _ > Key1:=SortRange(1, 2), Order1:=xlDescending, _ > Key2:=SortRange(1, 1), Order2:=xlAscending, _ > Header:=xlYes, OrderCustom:=1, _ > MatchCase:=False, Orientation:=xlTopToBottom, _ > DataOption1:=xlSortNormal, DataOption2:=xlSortNormal > End Sub > > di contoh ini, semua uniqvalue dimunculkan > dari yg terbesar nilanya ke yg terkecil > > (tidak dibatasi misalnya TOP 10 / TOP 5 dst) > > > > > ----- Original Message ----- > From: Cicis Kristian > To: [email protected] > Sent: Monday, November 02, 2009 09:26AM > Subject: [belajar-excel] macro jml terbanyak item data > > trima kasih buat bantuan penyelesaian untuk permasalahan membuat macro > TOP10 (subject: tanya macro), nah kali ini saya ingin sedikit memodifikasi > macro tersebut untuk menentukan jumlah terbanyak dari sederetan item data > yang ada, > dimana dlam kasus ini ada tiga jenis item data yang akan dicari jumlah > terbanyak-nya. > > mohon pencerahannya, > oiya... mohon penjelasan (comment) untuk tiap syntak yang ada yach, supaya > saya > bisa memahami secara menyeluruh dan ndak tanya2 lagi untuk kasus serupa > hehehehe. terima ksih > >
