2 Messages
Digest #4378
Messages
Thu Dec 14, 2017 7:55 pm (PST) . Posted by:
"Tommy Kurniawan" master_tommy25
Kalau membuat CF tersebut saya paham yg manualnya, tetapi untuk range nya kan berbeda karena datanya berbeda juga jumlahnya. Kalau misalnya seperti itu bagaimana cara mengetahui RGB warna masing-masing CF ?
On Thursday, December 14, 2017, 3:05:02 PM GMT+7, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Hai Tommy,
Anda sudah jelas menyatakan bahwa data yang akan diberi format adalah bertipe text. Untuk data bertipe text, bisa langsung dengan CF Use formula (seperti kolom Produk di contoh lampiran lalu), lalu CF bisa di-copy ke area range lain (data atau tabel lain yang membutuhkan gradasi).CF Use formula bisa memberi format berdasar isi cells lain.
Jika Anda menggunakan CF color scales (seperti kolom Data di contoh lampiran lalu), maka tipe data yang akan diberi warna harus bertipe numerik, karena CF color scales memformat berdasar isi cells dirinya sendiri. CF ini bisa di-copy ke range lain yang berisi nilai bertipe numerik (tabel lain atau data lain yang membutuhkan gradasi).
CF yang pas untuk kasus Anda sebenarnya yang CF Use Formula, tetapi memang ribet membuat CF yang banyak mengikuti keinginan Anda untuk tampak membuat gradasi. Tapi ya seperti itulah batasannya.CF yang Anda buat dalam file lampiran Anda adalah CF color scales yang TIDAK AKAN bisa dipakai oleh cells bertipe text (seperti data di kolom B pada file lampiran Anda).Demikianlah batasan CF pada .xlsx file
Jika dengan VBA, format hasil CF color scales bisa di-copy ke range lain. Untuk kasus Anda, yang digunakan adalah event Change milik Worksheet yang diisi dengan baris kode berikut :'CF di letakkan di kolom A, object sheet bernama Sheet1 (bukan nama sheet di tab sheet, tetapi nama object sheet di VBE), lokasi range yang akan diwarnai adalah 1 kolom dikanan kolom A (kolom B)'jika isi kolom A di area range dalam sheet1 yang terpakai mengalami perubahan isi, maka dilakukan penyalinan warna cells
dim rng as rangeif not intersect( target, range("a:a") , sheet1.usedrange.resize(,1) ) is nothing then for each rng in intersect( target, range("a:a") , sheet1.usedrange.resize(,1) ) rng.offset(0,1).interior.color=rng.displayformat.interior.color
next rng
endif
Regards,Kid
2017-12-14 7:59 GMT+07:00 Tommy Kurniawan master_tommy25@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
kalau datanya seperti ini om, apa bisa di copy paste formatting di kolom sebelahnya ? Saya sudah mencoba tapi tidak bisa
On Tuesday, December 12, 2017, 3:06:04 PM GMT+7, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
Hai Tommy,
Tentang :
Untuk kasus saya ini bukan numerik isinya tetapi text.
> Pada file lampiran lalu, kolom Produk juga bertipe text. So what ?
Tentang :
Pada intinya yg saya inginkan memberikan warna pada Kriteria berdasarkan nilai min dan max yg sudah ditentukan.
> Pada file lampiran lalu, warna juga ditentukan berdasar nilai min dan max nya> Dari nilai min dan max yang menjadi kriteria, maka di dapatkan angka di kolom Kode yang menunjukkan kode warna. Pada contoh, ada 5 kode setiap warna, berarti setiap warna akan tergradasi dalam 5 varian gradasi.> Jadi, kriteria min dan max diterjemahkan dulu menjadi kode-kode bertipe numerik pada sebuah kolom. Setiap kode akan dibuatkan sebuah CF dengan format warna yang sesuai untuk kode tersebut.> Toh andai ada nilai rgb dari 0 sampai 1000 lalu mau dipasang ke 4 cells saja, Anda perlu memilih cells pertama mau rgb berapa, cells kedua berapa, dst> Nah, kolom kode itu adalah mewakili nilai rgb yang dapat digunakan. Kode itu bisa Anda dapatkan dengan formula dan sebagainya.> Jadi, kalau warna gradasi hijau sampai hijau muda ingin ada 50 warna gradasi untuk 50 cells, maka buat 50 CF. Kalau ada warna gradasi biru sebanyak 30 gradasi, buat 30 CF
Tentang :
Kalau misalnya di copy paste formattingnya saja apa bisa ?
> CF yang sudah terbuat bisa di-copy ke range lain dan merujuk ke kolom kode yang ada di range lain. Copy saja range yang punya CF, lalu Paste Special Format.
> Tinggal bagaimana mengatur formula dalam CF agar bisa mengikuti lokasi paste special format bukan ?
Ribet kan....
walau bikin CF yang banyak itu bisa jadi hanya butuh sekali bikin lalu copy paste format ke tempat lain.
Trus kalau pakai VBA gak ribet gitu ?1. Kalau pakai VBA UDF (prosedur function yang dipakai seperti pakai formula di sebuah cells) untuk set interior color sebuah cells, maka langsung ditolak oleh VBA, karena UDF TIDAK BOLEH mengubah object. Interior Color itu properti punyanya si Range2. Kalau pakai VBA prosedur sub, berarti harus merespon perubahan saat terjadi kalkulasi Excel, mungkin event SheetCalculate milik thisworkbook atau event Calculate milik si sheet masing-masing bisa dipakai3. Lalu harus menentukan range mana saja yang se-grup (misal yang awalnya S2 seperti milik Anda itu), kalau pakai loop, bakalan dibaca berulang-ulang tuh area range di setiap warna. Lalu, dengan enaknya bilang Excel kerjanya lamban... (langkah ini mungkin jadi tidak erlu, kalau user sendiri yang memilih setiap blok yang akan diberi gradasi sama. Kalau emang begono, warnain sendiri manual atau pakai VBA akan sama lamanya kok).
btw,kalau mau dicoba pakai VBA, maka langkah 2 dan 3 di atas yang perlu dilakukan.yang dibutuhkan :1. bisa membuat prosedur event
2. bisa proses nested loop
Contoh baris kode untuk mewarnai range A1 di sheet aktif dengan nilai rgb tertenturange("a1").interior.color= rgb( 200 , 100 , 150 ) '200 : red; 100 : green; 150 : blue -> ini harus Anda ganti dengan variabel tertentu yang nilainya berubah setiap range agar terbentuk gradasi
Selamat mencoba...
Regards,Kid
On Tue, Dec 12, 2017 at 2:10 PM, Tommy Kurniawan master_tommy25@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
Terima kasih atas bantuannya. Untuk kasus saya ini bukan numerik isinya tetapi text. Pada intinya yg saya inginkan memberikan warna pada Kriteria berdasarkan nilai min dan max yg sudah ditentukan. Kalau misalnya di copy paste formattingnya saja apa bisa ? Terima kasih
On Tuesday, December 12, 2017, 8:05:34 AM GMT+7, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
Hai Tommy,
Conditional Formatting (CF) memiliki batasan.
CF 2 color scale untuk berdasar nilai numerik di cells yang diberi CF
CF Use Formula bisa lebih luwes, tetapi akan cukup banyak CF yang perlu dibuat untuk pembuatan gradasi warna.
Regards,
Kid
2017-12-11 17:46 GMT+07:00 Tommy Kurniawan master_tommy25@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com >:
Mohon bantuannya milis excel, saya ingin membuat warna gradasi berdasarkan kriteria tertentu. Misal dalam contoh gambar ada kriteria S2, itu saya ingin jadikan warna gradasi dari kuning cerah ke kuning agak gelap. Saya sudah punya panduannya nilai min dan max dari RGB nya. Begitu pula kriteria S3 dan N ingin saya ganti menjadi warna gradasi.
Terima kasih
#yiv5788730580 #yiv5788730580 -- #yiv5788730580ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5788730580 #yiv5788730580ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5788730580 #yiv5788730580ygrp-mkp #yiv5788730580hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv5788730580 #yiv5788730580ygrp-mkp #yiv5788730580ads {margin-bottom:10px;}#yiv5788730580 #yiv5788730580ygrp-mkp .yiv5788730580ad {padding:0 0;}#yiv5788730580 #yiv5788730580ygrp-mkp .yiv5788730580ad p {margin:0;}#yiv5788730580 #yiv5788730580ygrp-mkp .yiv5788730580ad a {color:#0000ff;text-decoration:none;}#yiv5788730580 #yiv5788730580ygrp-sponsor #yiv5788730580ygrp-lc {font-family:Arial;}#yiv5788730580 #yiv5788730580ygrp-sponsor #yiv5788730580ygrp-lc #yiv5788730580hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5788730580 #yiv5788730580ygrp-sponsor #yiv5788730580ygrp-lc .yiv5788730580ad {margin-bottom:10px;padding:0 0;}#yiv5788730580 #yiv5788730580actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5788730580 #yiv5788730580activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5788730580 #yiv5788730580activity span {font-weight:700;}#yiv5788730580 #yiv5788730580activity span:first-child {text-transform:uppercase;}#yiv5788730580 #yiv5788730580activity span a {color:#5085b6;text-decoration:none;}#yiv5788730580 #yiv5788730580activity span span {color:#ff7900;}#yiv5788730580 #yiv5788730580activity span .yiv5788730580underline {text-decoration:underline;}#yiv5788730580 .yiv5788730580attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv5788730580 .yiv5788730580attach div a {text-decoration:none;}#yiv5788730580 .yiv5788730580attach img {border:none;padding-right:5px;}#yiv5788730580 .yiv5788730580attach label {display:block;margin-bottom:5px;}#yiv5788730580 .yiv5788730580attach label a {text-decoration:none;}#yiv5788730580 blockquote {margin:0 0 0 4px;}#yiv5788730580 .yiv5788730580bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv5788730580 .yiv5788730580bold a {text-decoration:none;}#yiv5788730580 dd.yiv5788730580last p a {font-family:Verdana;font-weight:700;}#yiv5788730580 dd.yiv5788730580last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5788730580 dd.yiv5788730580last p span.yiv5788730580yshortcuts {margin-right:0;}#yiv5788730580 div.yiv5788730580attach-table div div a {text-decoration:none;}#yiv5788730580 div.yiv5788730580attach-table {width:400px;}#yiv5788730580 div.yiv5788730580file-title a, #yiv5788730580 div.yiv5788730580file-title a:active, #yiv5788730580 div.yiv5788730580file-title a:hover, #yiv5788730580 div.yiv5788730580file-title a:visited {text-decoration:none;}#yiv5788730580 div.yiv5788730580photo-title a, #yiv5788730580 div.yiv5788730580photo-title a:active, #yiv5788730580 div.yiv5788730580photo-title a:hover, #yiv5788730580 div.yiv5788730580photo-title a:visited {text-decoration:none;}#yiv5788730580 div#yiv5788730580ygrp-mlmsg #yiv5788730580ygrp-msg p a span.yiv5788730580yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5788730580 .yiv5788730580green {color:#628c2a;}#yiv5788730580 .yiv5788730580MsoNormal {margin:0 0 0 0;}#yiv5788730580 o {font-size:0;}#yiv5788730580 #yiv5788730580photos div {float:left;width:72px;}#yiv5788730580 #yiv5788730580photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv5788730580 #yiv5788730580photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5788730580 #yiv5788730580reco-category {font-size:77%;}#yiv5788730580 #yiv5788730580reco-desc {font-size:77%;}#yiv5788730580 .yiv5788730580replbq {margin:4px;}#yiv5788730580 #yiv5788730580ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv5788730580 #yiv5788730580ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5788730580 #yiv5788730580ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5788730580 #yiv5788730580ygrp-mlmsg select, #yiv5788730580 input, #yiv5788730580 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv5788730580 #yiv5788730580ygrp-mlmsg pre, #yiv5788730580 code {font:115% monospace;}#yiv5788730580 #yiv5788730580ygrp-mlmsg * {line-height:1.22em;}#yiv5788730580 #yiv5788730580ygrp-mlmsg #yiv5788730580logo {padding-bottom:10px;}#yiv5788730580 #yiv5788730580ygrp-msg p a {font-family:Verdana;}#yiv5788730580 #yiv5788730580ygrp-msg p#yiv5788730580attach-count span {color:#1E66AE;font-weight:700;}#yiv5788730580 #yiv5788730580ygrp-reco #yiv5788730580reco-head {color:#ff7900;font-weight:700;}#yiv5788730580 #yiv5788730580ygrp-reco {margin-bottom:20px;padding:0px;}#yiv5788730580 #yiv5788730580ygrp-sponsor #yiv5788730580ov li a {font-size:130%;text-decoration:none;}#yiv5788730580 #yiv5788730580ygrp-sponsor #yiv5788730580ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv5788730580 #yiv5788730580ygrp-sponsor #yiv5788730580ov ul {margin:0;padding:0 0 0 8px;}#yiv5788730580 #yiv5788730580ygrp-text {font-family:Georgia;}#yiv5788730580 #yiv5788730580ygrp-text p {margin:0 0 1em 0;}#yiv5788730580 #yiv5788730580ygrp-text tt {font-size:120%;}#yiv5788730580 #yiv5788730580ygrp-vital ul li:last-child {border-right:none !important;}#yiv5788730580
On Thursday, December 14, 2017, 3:05:02 PM GMT+7, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Hai Tommy,
Anda sudah jelas menyatakan bahwa data yang akan diberi format adalah bertipe text. Untuk data bertipe text, bisa langsung dengan CF Use formula (seperti kolom Produk di contoh lampiran lalu), lalu CF bisa di-copy ke area range lain (data atau tabel lain yang membutuhkan gradasi).CF Use formula bisa memberi format berdasar isi cells lain.
Jika Anda menggunakan CF color scales (seperti kolom Data di contoh lampiran lalu), maka tipe data yang akan diberi warna harus bertipe numerik, karena CF color scales memformat berdasar isi cells dirinya sendiri. CF ini bisa di-copy ke range lain yang berisi nilai bertipe numerik (tabel lain atau data lain yang membutuhkan gradasi).
CF yang pas untuk kasus Anda sebenarnya yang CF Use Formula, tetapi memang ribet membuat CF yang banyak mengikuti keinginan Anda untuk tampak membuat gradasi. Tapi ya seperti itulah batasannya.CF yang Anda buat dalam file lampiran Anda adalah CF color scales yang TIDAK AKAN bisa dipakai oleh cells bertipe text (seperti data di kolom B pada file lampiran Anda).Demikianlah batasan CF pada .xlsx file
Jika dengan VBA, format hasil CF color scales bisa di-copy ke range lain. Untuk kasus Anda, yang digunakan adalah event Change milik Worksheet yang diisi dengan baris kode berikut :'CF di letakkan di kolom A, object sheet bernama Sheet1 (bukan nama sheet di tab sheet, tetapi nama object sheet di VBE), lokasi range yang akan diwarnai adalah 1 kolom dikanan kolom A (kolom B)'jika isi kolom A di area range dalam sheet1 yang terpakai mengalami perubahan isi, maka dilakukan penyalinan warna cells
dim rng as rangeif not intersect( target, range("a:a") , sheet1.usedrange.resize(,1) ) is nothing then for each rng in intersect( target, range("a:a") , sheet1.usedrange.resize(,1) ) rng.offset(0,1).interior.color=rng.displayformat.interior.color
next rng
endif
Regards,Kid
2017-12-14 7:59 GMT+07:00 Tommy Kurniawan master_tommy25@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
kalau datanya seperti ini om, apa bisa di copy paste formatting di kolom sebelahnya ? Saya sudah mencoba tapi tidak bisa
On Tuesday, December 12, 2017, 3:06:04 PM GMT+7, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
Hai Tommy,
Tentang :
Untuk kasus saya ini bukan numerik isinya tetapi text.
> Pada file lampiran lalu, kolom Produk juga bertipe text. So what ?
Tentang :
Pada intinya yg saya inginkan memberikan warna pada Kriteria berdasarkan nilai min dan max yg sudah ditentukan.
> Pada file lampiran lalu, warna juga ditentukan berdasar nilai min dan max nya> Dari nilai min dan max yang menjadi kriteria, maka di dapatkan angka di kolom Kode yang menunjukkan kode warna. Pada contoh, ada 5 kode setiap warna, berarti setiap warna akan tergradasi dalam 5 varian gradasi.> Jadi, kriteria min dan max diterjemahkan dulu menjadi kode-kode bertipe numerik pada sebuah kolom. Setiap kode akan dibuatkan sebuah CF dengan format warna yang sesuai untuk kode tersebut.> Toh andai ada nilai rgb dari 0 sampai 1000 lalu mau dipasang ke 4 cells saja, Anda perlu memilih cells pertama mau rgb berapa, cells kedua berapa, dst> Nah, kolom kode itu adalah mewakili nilai rgb yang dapat digunakan. Kode itu bisa Anda dapatkan dengan formula dan sebagainya.> Jadi, kalau warna gradasi hijau sampai hijau muda ingin ada 50 warna gradasi untuk 50 cells, maka buat 50 CF. Kalau ada warna gradasi biru sebanyak 30 gradasi, buat 30 CF
Tentang :
Kalau misalnya di copy paste formattingnya saja apa bisa ?
> CF yang sudah terbuat bisa di-copy ke range lain dan merujuk ke kolom kode yang ada di range lain. Copy saja range yang punya CF, lalu Paste Special Format.
> Tinggal bagaimana mengatur formula dalam CF agar bisa mengikuti lokasi paste special format bukan ?
Ribet kan....
walau bikin CF yang banyak itu bisa jadi hanya butuh sekali bikin lalu copy paste format ke tempat lain.
Trus kalau pakai VBA gak ribet gitu ?1. Kalau pakai VBA UDF (prosedur function yang dipakai seperti pakai formula di sebuah cells) untuk set interior color sebuah cells, maka langsung ditolak oleh VBA, karena UDF TIDAK BOLEH mengubah object. Interior Color itu properti punyanya si Range2. Kalau pakai VBA prosedur sub, berarti harus merespon perubahan saat terjadi kalkulasi Excel, mungkin event SheetCalculate milik thisworkbook atau event Calculate milik si sheet masing-masing bisa dipakai3. Lalu harus menentukan range mana saja yang se-grup (misal yang awalnya S2 seperti milik Anda itu), kalau pakai loop, bakalan dibaca berulang-ulang tuh area range di setiap warna. Lalu, dengan enaknya bilang Excel kerjanya lamban... (langkah ini mungkin jadi tidak erlu, kalau user sendiri yang memilih setiap blok yang akan diberi gradasi sama. Kalau emang begono, warnain sendiri manual atau pakai VBA akan sama lamanya kok).
btw,kalau mau dicoba pakai VBA, maka langkah 2 dan 3 di atas yang perlu dilakukan.yang dibutuhkan :1. bisa membuat prosedur event
2. bisa proses nested loop
Contoh baris kode untuk mewarnai range A1 di sheet aktif dengan nilai rgb tertenturange("a1").interior.color= rgb( 200 , 100 , 150 ) '200 : red; 100 : green; 150 : blue -> ini harus Anda ganti dengan variabel tertentu yang nilainya berubah setiap range agar terbentuk gradasi
Selamat mencoba...
Regards,Kid
On Tue, Dec 12, 2017 at 2:10 PM, Tommy Kurniawan master_tommy25@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
Terima kasih atas bantuannya. Untuk kasus saya ini bukan numerik isinya tetapi text. Pada intinya yg saya inginkan memberikan warna pada Kriteria berdasarkan nilai min dan max yg sudah ditentukan. Kalau misalnya di copy paste formattingnya saja apa bisa ? Terima kasih
On Tuesday, December 12, 2017, 8:05:34 AM GMT+7, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
Hai Tommy,
Conditional Formatting (CF) memiliki batasan.
CF 2 color scale untuk berdasar nilai numerik di cells yang diberi CF
CF Use Formula bisa lebih luwes, tetapi akan cukup banyak CF yang perlu dibuat untuk pembuatan gradasi warna.
Regards,
Kid
2017-12-11 17:46 GMT+07:00 Tommy Kurniawan master_tommy25@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com >:
Mohon bantuannya milis excel, saya ingin membuat warna gradasi berdasarkan kriteria tertentu. Misal dalam contoh gambar ada kriteria S2, itu saya ingin jadikan warna gradasi dari kuning cerah ke kuning agak gelap. Saya sudah punya panduannya nilai min dan max dari RGB nya. Begitu pula kriteria S3 dan N ingin saya ganti menjadi warna gradasi.
Terima kasih
#yiv5788730580 #yiv5788730580 -- #yiv5788730580ygrp-
Thu Dec 14, 2017 7:58 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Tommy,
Di internet ada banyak chart rgb color. Sila di search. Salah satunya disini
<http://www.perbang.dk/rgbgradient/>.
Regards,
Kid
2017-12-15 9:46 GMT+07:00 Tommy Kurniawan master_tommy25@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Kalau membuat CF tersebut saya paham yg manualnya, tetapi untuk range nya
> kan berbeda karena datanya berbeda juga jumlahnya. Kalau misalnya seperti
> itu bagaimana cara mengetahui RGB warna masing-masing CF ?
>
> On Thursday, December 14, 2017, 3:05:02 PM GMT+7, 'Mr. Kid'
> mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
>
> Hai Tommy,
>
> Anda sudah jelas menyatakan bahwa data yang akan diberi format adalah
> bertipe text. Untuk data bertipe text, bisa langsung dengan CF Use formula
> (seperti kolom Produk di contoh lampiran lalu), lalu CF bisa di-copy ke
> area range lain (data atau tabel lain yang membutuhkan gradasi).
> CF Use formula bisa memberi *format berdasar isi cells lain*.
>
> Jika Anda menggunakan CF color scales (seperti kolom Data di contoh
> lampiran lalu), maka tipe data yang akan diberi warna harus bertipe
> numerik, karena CF color scales memformat berdasar isi cells dirinya
> sendiri. CF ini bisa di-copy ke range lain yang berisi nilai bertipe
> numerik (tabel lain atau data lain yang membutuhkan gradasi).
>
> CF yang pas untuk kasus Anda sebenarnya yang CF Use Formula, tetapi memang
> ribet membuat CF yang banyak mengikuti keinginan Anda untuk tampak membuat
> gradasi. Tapi ya seperti itulah batasannya.
> CF yang Anda buat dalam file lampiran Anda adalah CF color scales yang
> TIDAK AKAN bisa dipakai oleh cells bertipe text (seperti data di kolom B
> pada file lampiran Anda).
> Demikianlah batasan CF pada .xlsx file
>
>
> Jika dengan VBA, format hasil CF color scales bisa di-copy ke range lain.
> Untuk kasus Anda, yang digunakan adalah event Change milik Worksheet yang
> diisi dengan baris kode berikut :
> 'CF di letakkan di kolom A, object sheet bernama Sheet1 (bukan nama sheet
> di tab sheet, tetapi nama object sheet di VBE), lokasi range yang akan
> diwarnai adalah 1 kolom dikanan kolom A (kolom B)
> 'jika isi kolom A di area range dalam sheet1 yang terpakai mengalami
> perubahan isi, maka dilakukan penyalinan warna cells
> dim rng as range
> if not intersect( target, range("a:a") , sheet1.usedrange.resize(,1) ) is
> nothing then
> for each rng in intersect( target, range("a:a") ,
> sheet1.usedrange.resize(,1) )
> rng.offset(0,1).interior.color=rng.displayformat.
> interior.color
> next rng
> endif
>
>
> Regards,
> Kid
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> 2017-12-14 7:59 GMT+07:00 Tommy Kurniawan master_tommy25@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> kalau datanya seperti ini om, apa bisa di copy paste formatting di kolom
> sebelahnya ? Saya sudah mencoba tapi tidak bisa
>
> On Tuesday, December 12, 2017, 3:06:04 PM GMT+7, 'Mr. Kid'
> mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com >
> wrote:
>
>
>
>
> Hai Tommy,
>
> Tentang :
>
> Untuk kasus saya ini bukan numerik isinya tetapi text.
>
> > Pada file lampiran lalu, kolom Produk juga bertipe text. So what ?
>
> Tentang :
>
> Pada intinya yg saya inginkan memberikan warna pada Kriteria berdasarkan
> nilai min dan max yg sudah ditentukan.
>
> > Pada file lampiran lalu, warna juga ditentukan berdasar nilai min dan
> max nya
> > Dari nilai min dan max yang menjadi kriteria, maka di dapatkan angka di
> kolom Kode yang menunjukkan kode warna. Pada contoh, ada 5 kode setiap
> warna, berarti setiap warna akan tergradasi dalam 5 varian gradasi.
> > Jadi, kriteria min dan max diterjemahkan dulu menjadi kode-kode bertipe
> numerik pada sebuah kolom. Setiap kode akan dibuatkan sebuah CF dengan
> format warna yang sesuai untuk kode tersebut.
> > Toh andai ada nilai rgb dari 0 sampai 1000 lalu mau dipasang ke 4 cells
> saja, Anda perlu memilih cells pertama mau rgb berapa, cells kedua berapa,
> dst
> > Nah, kolom kode itu adalah mewakili nilai rgb yang dapat digunakan. Kode
> itu bisa Anda dapatkan dengan formula dan sebagainya.
> > Jadi, kalau warna gradasi hijau sampai hijau muda ingin ada 50 warna
> gradasi untuk 50 cells, maka buat 50 CF. Kalau ada warna gradasi biru
> sebanyak 30 gradasi, buat 30 CF
>
> Tentang :
>
> Kalau misalnya di copy paste formattingnya saja apa bisa ?
>
> > CF yang sudah terbuat bisa di-copy ke range lain dan merujuk ke kolom
> kode yang ada di range lain. Copy saja range yang punya CF, lalu Paste
> Special Format.
> > Tinggal bagaimana mengatur formula dalam CF agar bisa mengikuti lokasi
> paste special format bukan ?
>
>
> Ribet kan....
> walau bikin CF yang banyak itu bisa jadi hanya butuh sekali bikin lalu
> copy paste format ke tempat lain.
>
> Trus kalau pakai VBA gak ribet gitu ?
> 1. Kalau pakai VBA UDF (prosedur function yang dipakai seperti pakai
> formula di sebuah cells) untuk set interior color sebuah cells, maka
> langsung ditolak oleh VBA, karena UDF TIDAK BOLEH mengubah object. Interior
> Color itu properti punyanya si Range
> 2. Kalau pakai VBA prosedur sub, berarti harus merespon perubahan saat
> terjadi kalkulasi Excel, mungkin event SheetCalculate milik thisworkbook
> atau event Calculate milik si sheet masing-masing bisa dipakai
> 3. Lalu harus menentukan range mana saja yang se-grup (misal yang awalnya
> S2 seperti milik Anda itu), kalau pakai loop, bakalan dibaca berulang-ulang
> tuh area range di setiap warna. Lalu, dengan enaknya bilang Excel kerjanya
> lamban... (langkah ini mungkin jadi tidak erlu, kalau user sendiri yang
> memilih setiap blok yang akan diberi gradasi sama. Kalau emang begono,
> warnain sendiri manual atau pakai VBA akan sama lamanya kok).
>
> btw,
> kalau mau dicoba pakai VBA, maka langkah 2 dan 3 di atas yang perlu
> dilakukan.
> yang dibutuhkan :
> 1. bisa membuat prosedur event
> 2. bisa proses nested loop
>
> Contoh baris kode untuk mewarnai range A1 di sheet aktif dengan nilai rgb
> tertentu
> range("a1").interior.color= rgb( 200 , 100 , 150 ) '200 : red; 100 :
> green; 150 : blue -> ini harus Anda ganti dengan variabel tertentu yang
> nilainya berubah setiap range agar terbentuk gradasi
>
> Selamat mencoba...
>
> Regards,
> Kid
>
>
>
>
>
>
>
>
>
>
>
>
> On Tue, Dec 12, 2017 at 2:10 PM, Tommy Kurniawan master_tommy25@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
>
>
>
> Terima kasih atas bantuannya. Untuk kasus saya ini bukan numerik isinya
> tetapi text. Pada intinya yg saya inginkan memberikan warna pada Kriteria
> berdasarkan nilai min dan max yg sudah ditentukan. Kalau misalnya di copy
> paste formattingnya saja apa bisa ? Terima kasih
>
> On Tuesday, December 12, 2017, 8:05:34 AM GMT+7, 'Mr. Kid'
> mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com >
> wrote:
>
>
>
>
> Hai Tommy,
>
> Conditional Formatting (CF) memiliki batasan.
> CF 2 color scale untuk berdasar nilai numerik di cells yang diberi CF
> CF Use Formula bisa lebih luwes, tetapi akan cukup banyak CF yang perlu
> dibuat untuk pembuatan gradasi warna.
>
> Regards,
> Kid
>
>
>
>
>
>
>
>
> 2017-12-11 17:46 GMT+07:00 Tommy Kurniawan master_tommy25@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com >:
>
>
>
> Mohon bantuannya milis excel, saya ingin membuat warna gradasi berdasarkan
> kriteria tertentu. Misal dalam contoh gambar ada kriteria S2, itu saya
> ingin jadikan warna gradasi dari kuning cerah ke kuning agak gelap. Saya
> sudah punya panduannya nilai min dan max dari RGB nya. Begitu pula kriteria
> S3 dan N ingin saya ganti menjadi warna gradasi.
> Terima kasih
>
>
>
>
>
>
Di internet ada banyak chart rgb color. Sila di search. Salah satunya disini
<http://www.perbang.dk/rgbgradient/>.
Regards,
Kid
2017-12-15 9:46 GMT+07:00 Tommy Kurniawan master_tommy25@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Kalau membuat CF tersebut saya paham yg manualnya, tetapi untuk range nya
> kan berbeda karena datanya berbeda juga jumlahnya. Kalau misalnya seperti
> itu bagaimana cara mengetahui RGB warna masing-masing CF ?
>
> On Thursday, December 14, 2017, 3:05:02 PM GMT+7, 'Mr. Kid'
> mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
>
> Hai Tommy,
>
> Anda sudah jelas menyatakan bahwa data yang akan diberi format adalah
> bertipe text. Untuk data bertipe text, bisa langsung dengan CF Use formula
> (seperti kolom Produk di contoh lampiran lalu), lalu CF bisa di-copy ke
> area range lain (data atau tabel lain yang membutuhkan gradasi).
> CF Use formula bisa memberi *format berdasar isi cells lain*.
>
> Jika Anda menggunakan CF color scales (seperti kolom Data di contoh
> lampiran lalu), maka tipe data yang akan diberi warna harus bertipe
> numerik, karena CF color scales memformat berdasar isi cells dirinya
> sendiri. CF ini bisa di-copy ke range lain yang berisi nilai bertipe
> numerik (tabel lain atau data lain yang membutuhkan gradasi).
>
> CF yang pas untuk kasus Anda sebenarnya yang CF Use Formula, tetapi memang
> ribet membuat CF yang banyak mengikuti keinginan Anda untuk tampak membuat
> gradasi. Tapi ya seperti itulah batasannya.
> CF yang Anda buat dalam file lampiran Anda adalah CF color scales yang
> TIDAK AKAN bisa dipakai oleh cells bertipe text (seperti data di kolom B
> pada file lampiran Anda).
> Demikianlah batasan CF pada .xlsx file
>
>
> Jika dengan VBA, format hasil CF color scales bisa di-copy ke range lain.
> Untuk kasus Anda, yang digunakan adalah event Change milik Worksheet yang
> diisi dengan baris kode berikut :
> 'CF di letakkan di kolom A, object sheet bernama Sheet1 (bukan nama sheet
> di tab sheet, tetapi nama object sheet di VBE), lokasi range yang akan
> diwarnai adalah 1 kolom dikanan kolom A (kolom B)
> 'jika isi kolom A di area range dalam sheet1 yang terpakai mengalami
> perubahan isi, maka dilakukan penyalinan warna cells
> dim rng as range
> if not intersect( target, range("a:a") , sheet1.usedrange.resize(,1) ) is
> nothing then
> for each rng in intersect( target, range("a:a") ,
> sheet1.usedrange.resize(,1) )
> rng.offset(0,1).interior.color=rng.displayformat.
> interior.color
> next rng
> endif
>
>
> Regards,
> Kid
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> 2017-12-14 7:59 GMT+07:00 Tommy Kurniawan master_tommy25@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> kalau datanya seperti ini om, apa bisa di copy paste formatting di kolom
> sebelahnya ? Saya sudah mencoba tapi tidak bisa
>
> On Tuesday, December 12, 2017, 3:06:04 PM GMT+7, 'Mr. Kid'
> mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com >
> wrote:
>
>
>
>
> Hai Tommy,
>
> Tentang :
>
> Untuk kasus saya ini bukan numerik isinya tetapi text.
>
> > Pada file lampiran lalu, kolom Produk juga bertipe text. So what ?
>
> Tentang :
>
> Pada intinya yg saya inginkan memberikan warna pada Kriteria berdasarkan
> nilai min dan max yg sudah ditentukan.
>
> > Pada file lampiran lalu, warna juga ditentukan berdasar nilai min dan
> max nya
> > Dari nilai min dan max yang menjadi kriteria, maka di dapatkan angka di
> kolom Kode yang menunjukkan kode warna. Pada contoh, ada 5 kode setiap
> warna, berarti setiap warna akan tergradasi dalam 5 varian gradasi.
> > Jadi, kriteria min dan max diterjemahkan dulu menjadi kode-kode bertipe
> numerik pada sebuah kolom. Setiap kode akan dibuatkan sebuah CF dengan
> format warna yang sesuai untuk kode tersebut.
> > Toh andai ada nilai rgb dari 0 sampai 1000 lalu mau dipasang ke 4 cells
> saja, Anda perlu memilih cells pertama mau rgb berapa, cells kedua berapa,
> dst
> > Nah, kolom kode itu adalah mewakili nilai rgb yang dapat digunakan. Kode
> itu bisa Anda dapatkan dengan formula dan sebagainya.
> > Jadi, kalau warna gradasi hijau sampai hijau muda ingin ada 50 warna
> gradasi untuk 50 cells, maka buat 50 CF. Kalau ada warna gradasi biru
> sebanyak 30 gradasi, buat 30 CF
>
> Tentang :
>
> Kalau misalnya di copy paste formattingnya saja apa bisa ?
>
> > CF yang sudah terbuat bisa di-copy ke range lain dan merujuk ke kolom
> kode yang ada di range lain. Copy saja range yang punya CF, lalu Paste
> Special Format.
> > Tinggal bagaimana mengatur formula dalam CF agar bisa mengikuti lokasi
> paste special format bukan ?
>
>
> Ribet kan....
> walau bikin CF yang banyak itu bisa jadi hanya butuh sekali bikin lalu
> copy paste format ke tempat lain.
>
> Trus kalau pakai VBA gak ribet gitu ?
> 1. Kalau pakai VBA UDF (prosedur function yang dipakai seperti pakai
> formula di sebuah cells) untuk set interior color sebuah cells, maka
> langsung ditolak oleh VBA, karena UDF TIDAK BOLEH mengubah object. Interior
> Color itu properti punyanya si Range
> 2. Kalau pakai VBA prosedur sub, berarti harus merespon perubahan saat
> terjadi kalkulasi Excel, mungkin event SheetCalculate milik thisworkbook
> atau event Calculate milik si sheet masing-masing bisa dipakai
> 3. Lalu harus menentukan range mana saja yang se-grup (misal yang awalnya
> S2 seperti milik Anda itu), kalau pakai loop, bakalan dibaca berulang-ulang
> tuh area range di setiap warna. Lalu, dengan enaknya bilang Excel kerjanya
> lamban... (langkah ini mungkin jadi tidak erlu, kalau user sendiri yang
> memilih setiap blok yang akan diberi gradasi sama. Kalau emang begono,
> warnain sendiri manual atau pakai VBA akan sama lamanya kok).
>
> btw,
> kalau mau dicoba pakai VBA, maka langkah 2 dan 3 di atas yang perlu
> dilakukan.
> yang dibutuhkan :
> 1. bisa membuat prosedur event
> 2. bisa proses nested loop
>
> Contoh baris kode untuk mewarnai range A1 di sheet aktif dengan nilai rgb
> tertentu
> range("a1").interior.color= rgb( 200 , 100 , 150 ) '200 : red; 100 :
> green; 150 : blue -> ini harus Anda ganti dengan variabel tertentu yang
> nilainya berubah setiap range agar terbentuk gradasi
>
> Selamat mencoba...
>
> Regards,
> Kid
>
>
>
>
>
>
>
>
>
>
>
>
> On Tue, Dec 12, 2017 at 2:10 PM, Tommy Kurniawan master_tommy25@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
>
>
>
> Terima kasih atas bantuannya. Untuk kasus saya ini bukan numerik isinya
> tetapi text. Pada intinya yg saya inginkan memberikan warna pada Kriteria
> berdasarkan nilai min dan max yg sudah ditentukan. Kalau misalnya di copy
> paste formattingnya saja apa bisa ? Terima kasih
>
> On Tuesday, December 12, 2017, 8:05:34 AM GMT+7, 'Mr. Kid'
> mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com >
> wrote:
>
>
>
>
> Hai Tommy,
>
> Conditional Formatting (CF) memiliki batasan.
> CF 2 color scale untuk berdasar nilai numerik di cells yang diberi CF
> CF Use Formula bisa lebih luwes, tetapi akan cukup banyak CF yang perlu
> dibuat untuk pembuatan gradasi warna.
>
> Regards,
> Kid
>
>
>
>
>
>
>
>
> 2017-12-11 17:46 GMT+07:00 Tommy Kurniawan master_tommy25@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com >:
>
>
>
> Mohon bantuannya milis excel, saya ingin membuat warna gradasi berdasarkan
> kriteria tertentu. Misal dalam contoh gambar ada kriteria S2, itu saya
> ingin jadikan warna gradasi dari kuning cerah ke kuning agak gelap. Saya
> sudah punya panduannya nilai min dan max dari RGB nya. Begitu pula kriteria
> S3 dan N ingin saya ganti menjadi warna gradasi.
> Terima kasih
>
>
>
>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar