Anggap saja bener... Kalau ndak bener, silakan disesuaikan sendiri sajah....
Konon kriterianya adalah : > - Terdiri dari 3 cell dengan value yang berbeda untuk di bandingkan > - coloring dilakukan dengan 1 kali klik (button / macro) dengan kondisi > range cells tidak menentu > - Jika 3 value sama dan tidak null maka semua cell diberi warna hijau > contoh ( 3,3,3) > - Jika 3 value null maka diberi warna putih contoh ( , , , ) > - Jika cell memiliki 1 value dan yang lainnya null maka semua cell di beri > warna putih contoh (1, , ) > - Value terbesar di beri warna hijau, value sedang di beri warna kuning > dan value terkecil di beri warna merah contoh (1 ,7,10) > - Jika memiliki 2 value sama dan yang lainnya berbeda contoh (3,5,5) > Maka pewarnannya adalah cell ke-2 dan cell ke-3 bewarna hijau dan cell > ke 1 bewarna merah (diberi warna merah jika value >= 2 ) > - Ada beberapa case lainnya misal (4,5,5) > Jika perbedaan antara cell hanya 1 value maka pewarnaan menjadi cell > ke-2 dan ke-3 bewarna hijau dan cell ke-1 bewarna kuning > - Jika 2 cell memiliki value berbeda dan 1 lagi adalah null. Contoh (5,1, ) > Maka pewarnaan pada cell ke-1 adalah hijau, cell ke-2 adalah merah > dan cell ke-3 adalah putih > - Jika 2 cell memiliki value yang sama dan value berikutnya adalah > null. Contoh (1, ,1) > maka pewarnaan pada cell ke-1 dan ke-3 adalah hijau dan cell ke-2 > adalah putih > Sepertinya rumit.... Tapi kriteria yang dijelaskan belum menyangkut kondisi nilai (5,4,) akan diberi warna bagaimana. Jadi diasumsikan, jika nilai max dan min blok data adalah 1, maka nilai 5 berwarna hijau, 4 berwarna kuning, kosong diberi putih Asumsi ini adalah mengadopsi kriteria untuk nilai (4,5,5) yang berbunyi : > - Ada beberapa case lainnya misal (4,5,5) > Jika perbedaan antara cell hanya 1 value maka pewarnaan menjadi cell > ke-2 dan ke-3 bewarna hijau dan cell ke-1 bewarna kuning > Kalau di sawang-sawang dan dingen-ngen, kriteria di atas sebenarnya pengen berbunyi begini : - Data membentuk blok 1 baris x 3 kolom dan antar blok tidak beririsan. - Pewarnaan cells : 1. Warna Putih : > Seluruh cells yang kosong [ Len(cells)=0 ] > 2. Warna Hijau : > cells yang ada isinya [ (Len(cells)>0) ] > dan [*] > nilai maksimum blok = nilai cells [ (max(blok)=cells) ] > 3. Warna Merah : > cells yang ada isinya [ (Len(cells)>0) ] > dan [*] > nilai minimum blok = nilai cells [ (min(blok)=cells) ] > dan [*] > selisih max blok dengan min blok lebih dari 1 [ (max(blok)-min(blok)>1) ] > 4. Warna Kuning : > Semua cells yang tidak memenuhi pewarnaan yang tersebut di nomor 1 sampai 3 > Artinya, akan ada 4 warna : 1. Kuning -> semua cells data, karena tidak dipengaruhi kriteria di atas 2. Putih -> semua cells yang tidak ada isinya 3. Hijau -> per blok (1 baris x 3 kolom), jadi kalau ada banyak blok di 9 kolom akan membutuhkan 3 CF warna hijau 4. Merah -> per blok (1 baris x 3 kolom), jadi kalau ada banyak blok di 9 kolom akan membutuhkan 3 CF warna hijau Fitur Excel Table (xl2007 ke atas) atau List (xl2003) bisa membantu meng-copy-ken CF yang sudah dibuat ke baris-baris baru (record baru) yang ditambahkan. Setiap ada nilai yang berubah, CF akan bekerja. Hal ini lebih praktis dibanding pencet tombol atau memanfaatkan event change milik worksheet untuk menjalankan baris-baris script pewarnaan yang bunyi baris-baris kodenya bakal rumit dan panjang. So, fitur Conditional Formatting bisa lebih simpel. Syarat dan ketentuan berlaku btw, File terlampir sekedar sebuah opsi... Opsi tanpa VBA... Regards, Kid 2016-01-19 11:24 GMT+07:00 Mr. Kid <[email protected]>: > Jadi pada data 1 baris yang ada 9 cells itu diwarnai setiap 3 cells. Gitu > ya ? > Contoh : data di C5:K5 membentuk 3 blok data, yaitu C5:E5 akan diwarnai > sebagai 1 blok, F5:H5 jadi blok lainnya yang diwarnai, I5:K5 juga. > > Bener gak ? > > > On Tue, Jan 19, 2016 at 11:15 AM, ivan budiman [email protected] > [belajar-excel] <[email protected]> wrote: > >> >> >> Hi Mr Kid >> syarat dan ketentuan pemberian coloring tersebut adalah >> - Terdiri dari 3 cell dengan value yang berbeda untuk di bandingkan >> - coloring dilakukan dengan 1 kali klik (button / macro) dengan kondisi >> range cells tidak menentu >> - Jika 3 value sama dan tidak null maka semua cell diberi warna hijau >> contoh ( 3,3,3) >> - Jika 3 value null maka diberi warna putih contoh ( , , , ) >> - Jika cell memiliki 1 value dan yang lainnya null maka semua cell di >> beri warna putih contoh (1, , ) >> - Value terbesar di beri warna hijau, value sedang di beri warna kuning >> dan value terkecil di beri warna merah contoh (1 ,7,10) >> >> - Jika memiliki 2 value sama dan yang lainnya berbeda contoh (3,5,5) >> Maka pewarnannya adalah cell ke-2 dan cell ke-3 bewarna hijau dan cell >> ke 1 bewarna merah (diberi warna merah jika value >= 2 ) >> - Ada beberapa case lainnya misal (4,5,5) >> Jika perbedaan antara cell hanya 1 value maka pewarnaan menjadi cell >> ke-2 dan ke-3 bewarna hijau dan cell ke-1 bewarna kuning >> - Jika 2 cell memiliki value berbeda dan 1 lagi adalah null. Contoh (5,1, >> ) >> Maka pewarnaan pada cell ke-1 adalah hijau, cell ke-2 adalah merah >> dan cell ke-3 adalah putih >> - Jika 2 cell memiliki value yang sama dan value berikutnya adalah >> null. Contoh (1, ,1) >> maka pewarnaan pada cell ke-1 dan ke-3 adalah hijau dan cell ke-2 >> adalah putih >> >> Thank you >> >> >> Regards, >> M I B >> >> - thankfulness - >> >> >> >> ------------------------------ >> *From:* "'Mr. Kid' [email protected] [belajar-excel]" < >> [email protected]> >> *To:* BeExcel <[email protected]> >> *Sent:* Monday, 18 January 2016, 18:12 >> >> *Subject:* Re: [belajar-excel] Re: Macro coloring >> >> >> Hai Ivan, >> >> Bolehkah minta dijabarkan syarat dan ketentuan yang berlaku dalam >> pemberian warna tersebut ? >> sapa tahu fitur conditional formatting malah lebih simpel dibanding >> menggunakan VBA. >> >> ;) >> Kid >> >> >> On Mon, Jan 18, 2016 at 3:30 PM, ivan budiman [email protected] >> [belajar-excel] <[email protected]> wrote: >> >> >> >> Mohon maaf baru bisa connect lagi... >> Aduh maaf ya jadi membingungkan.... >> Jadi masalah yang saya hadapi adalah membuat inisial atau function dari >> automation tersebut. Di dalam file ini terdapat 5 macro yang dapat >> digunakan untuk coloring cells yang sudah di definisikan. lalu tujuannya >> adalah membuat 5 macro tersebut menjadi 1 macro. Sehingga jika ada >> penambahan cells baru pada data, automation dapat digunakan juga >> >> Regards, >> M I B >> >> - thankfulness - >> >> >> >> ------------------------------ >> *From:* "Toby kenzo [email protected] [belajar-excel]" < >> [email protected]> >> *To:* "[email protected]" <[email protected]> >> *Sent:* Saturday, 9 January 2016, 10:21 >> *Subject:* Re: [belajar-excel] Re: Macro coloring >> >> >> Bukannya ngga ada yg berhasil,tp maksud dari filenya apa...? (maaf gagal >> paham saya...) >> Coba di kasi tahu masalahnya yg jelas trus apa yg diinginkan(hasilnya) yg >> di harapkan.. >> Mungkin teman2 yg lain akan mambantu jika jelas maksud dan hasil yg di >> harapkan. >> TerimaKasih. >> Sent from Yahoo Mail on Android >> <http://overview.mail.yahoo.com/mobile/?.src=Android> >> >> ------------------------------ >> * From: * [email protected] [belajar-excel] < >> [email protected]>; >> * To: * yahoogroups <[email protected]>; >> * Subject: * [belajar-excel] Re: Macro coloring >> * Sent: * Sat, Jan 9, 2016 12:35:11 AM >> >> >> Hi Be Exceler.. >> Blm ada yang berhasil keulik ya.. :( >> Mohon pencerahannya.. >> Terima kasih... >> >> Sent from my BlackBerry 10 smartphone on the Indosat network. >> *From: *ivan budiman >> *Sent: *Jumat, 8 Januari 2016 11.46 >> *To: *yahoogroups >> *Reply To: *ivan budiman >> *Subject: *Macro coloring >> >> permisi, saya ingin bertanya mengapa button click saat diubah menjadi >> macro tidak berjalan sesaui kondisi mohon bantuannya. terima kasih >> >> Regards, >> M I B >> >> - thankfulness - >> >> >> >> >> >> >> >> > >
re-File.xlsx
Description: MS-Excel 2007 spreadsheet
