Mungkin sebaiknya Pak Budhi berusaha untuk tidak memanfaatkan warna sebagai kriteria, karena pemberian warna pun membutuhkan kriteria. Misal jika kondisi A maka warnanya merah. Sebaiknya kriteria pemberian warna itu yang menjadi data, bukan hasil pewarnaannya.
Regards. Kid. 2011/7/26 Franciscus SOG <[email protected]> > ** > > > Dear Budhi, > > Karena request Anda menggunakan komponen warna maka kita buat UDF > tersendiri untuk menghitung kolom L. > > Untuk kolom K, gunakan rumus : > =IF(B5<=1290000;(SUM(C5:I5)*2)-(0,5*COUNT(C5:I5));SUM(C5:I5)) > > Untuk kolom L, gunakan rumus : > =IF(B5<=1290000;B5/173*M5;warna(C5:I5)) > > Jika ada perubahan kolom yang diberi warna, maka anda harus manual > merefreshnya. Saran sebaiknya warnai kolom dahulu baru ketikkan rumus. > > Untuk UDF warna : > Function warna(area As Range) > Dim data As Range > For Each data In area > If data.Interior.Color = 255 Then > hasil = hasil + (data.Value * 50000) > ElseIf data.Value <= 3.5 Then > hasil = hasil + 7500 > Else > hasil = hasil + 32000 > End If > Next data > warna = hasil > End Function > > CMIIW. Semoga bermanfaat. > > Blessings, > > Fran'z > > > On 7/26/11, Budhi Cahyanto <[email protected]> wrote: > > Dear pakar eXeL, > > > > > > > > Saya butuh bantuannya dalam mencari nilai jam yang di klaim (kolom K) dan > > nilai perkalian yang akan diperoleh pada kolom L dari contoh yang saya > > lampirkan ini. > > > > Ketika saya masukan angka pada kolom C atau D, dst maka secara otomatis > > nilai pada kolom K akan berubah sesuai ketentuan yang ada (ketentuan ada > > pada lampiran berikut). > > > > > > > > Mohon bantuan para pakar untuk mencari nilai pada kolom K dan L. > > > > > > > > Thx. > > > > > > > > > > >
