Dear Miss Jan, Terimakasih atas solusinya...tapi saya bener2 gak ngerti yang dimaksud..excel saya masih standar seperti file yg saya lampirkan.. :( Bila ada solusi lain yang mudah untuk pemula excel akan sangat mudah saya mengerti. Sekali lagi terimakasih atas waktu dan solusinya. Salam, TonyBexcel
--- Pada Rab, 12/12/12, miss.jan.raisin <[email protected]> menulis: Dari: miss.jan.raisin <[email protected]> Judul: Re: [belajar-excel] Menghitung avarege warna Kepada: [email protected] Tanggal: Rabu, 12 Desember, 2012, 4:24 PM Dear Tony, coba script berikut yang ditulis di dalam sebuah modul VBE, Option Explicit Sub AverageColor() Dim lRow As Long Dim Total As Double Dim Qty As Integer Dim rgAvg As Range, cAvg As Range Dim rgHitung As Range, cHitung As Range lRow = Sheets("perhitungan").Range("c6").End(xlDown).Row Set rgAvg = Range(Cells(6, 56), Cells(lRow, 56)) For Each cAvg In rgAvg Set rgHitung = Range(Cells(cAvg.Row, 6), Cells(cAvg.Row, 53)) For Each cHitung In rgHitung If cHitung.Interior.Color = cAvg.Interior.Color Then Total = Total + cHitung.Value Qty = Qty + 1 End If Next cHitung cAvg.Value = CDbl(Format(Total / Qty, "0.00")) Total = 0 Qty = 0 Next cAvg End Sub lau untuk menjalankannya, coba pasang sebuah shape, command_button, atau foto lalu assign object tersebut dengan macro yang dibuat tadi Best Regard, -Ms. Jan Raisin- Pada 12 Desember 2012 13:47, Tony Bexcel <[email protected]> menulis: Dear Pakar yang Budiman, Selamat siang..saya mohon bantuan pencerahan nya untuk menjumlahkan dan membagi pada angka yang diberi warna. Terlampir contoh manual yang saya lakukan,semoga ada solusi yang lebih canggih..hehehe.. Salam, TonyBexcel
