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
>
>
>
