Re: [belajar-excel] VBA Conditional Formatting Warna Gradasi
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.nm...@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_tomm...@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.nm...@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
Re: [belajar-excel] VBA Conditional Formatting Warna Gradasi
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.nm...@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_tomm...@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.nm...@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_tomm...@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
#yiv8729567674 #yiv8729567674 -- #yiv8729567674ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv8729567674
Re: [belajar-excel] VBA Conditional Formatting Warna Gradasi
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.nm...@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_tomm...@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
#yiv2877490518 #yiv2877490518 -- #yiv2877490518ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2877490518
#yiv2877490518ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2877490518
#yiv2877490518ygrp-mkp #yiv2877490518hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv2877490518 #yiv2877490518ygrp-mkp #yiv2877490518ads
{margin-bottom:10px;}#yiv2877490518 #yiv2877490518ygrp-mkp .yiv2877490518ad
{padding:0 0;}#yiv2877490518 #yiv2877490518ygrp-mkp .yiv2877490518ad p
{margin:0;}#yiv2877490518 #yiv2877490518ygrp-mkp .yiv2877490518ad a
{color:#ff;text-decoration:none;}#yiv2877490518 #yiv2877490518ygrp-sponsor
#yiv2877490518ygrp-lc {font-family:Arial;}#yiv2877490518
#yiv2877490518ygrp-sponsor #yiv2877490518ygrp-lc #yiv2877490518hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2877490518
#yiv2877490518ygrp-sponsor #yiv2877490518ygrp-lc .yiv2877490518ad
{margin-bottom:10px;padding:0 0;}#yiv2877490518 #yiv2877490518actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2877490518
#yiv2877490518activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2877490518
#yiv2877490518activity span {font-weight:700;}#yiv2877490518
#yiv2877490518activity span:first-child
{text-transform:uppercase;}#yiv2877490518 #yiv2877490518activity span a
{color:#5085b6;text-decoration:none;}#yiv2877490518 #yiv2877490518activity span
span {color:#ff7900;}#yiv2877490518 #yiv2877490518activity span
.yiv2877490518underline {text-decoration:underline;}#yiv2877490518
.yiv2877490518attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv2877490518 .yiv2877490518attach div a
{text-decoration:none;}#yiv2877490518 .yiv2877490518attach img
{border:none;padding-right:5px;}#yiv2877490518 .yiv2877490518attach label
{display:block;margin-bottom:5px;}#yiv2877490518 .yiv2877490518attach label a
{text-decoration:none;}#yiv2877490518 blockquote {margin:0 0 0
4px;}#yiv2877490518 .yiv2877490518bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv2877490518
.yiv2877490518bold a {text-decoration:none;}#yiv2877490518 dd.yiv2877490518last
p a {font-family:Verdana;font-weight:700;}#yiv2877490518 dd.yiv2877490518last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2877490518
dd.yiv2877490518last p span.yiv2877490518yshortcuts
{margin-right:0;}#yiv2877490518 div.yiv2877490518attach-table div div a
{text-decoration:none;}#yiv2877490518 div.yiv2877490518attach-table
{width:400px;}#yiv2877490518 div.yiv2877490518file-title a, #yiv2877490518
div.yiv2877490518file-title a:active, #yiv2877490518
div.yiv2877490518file-title a:hover, #yiv2877490518 div.yiv2877490518file-title
a:visited {text-decoration:none;}#yiv2877490518 div.yiv2877490518photo-title a,
#yiv2877490518 div.yiv2877490518photo-title a:active, #yiv2877490518
div.yiv2877490518photo-title a:hover, #yiv2877490518
div.yiv2877490518photo-title a:visited {text-decoration:none;}#yiv2877490518
div#yiv2877490518ygrp-mlmsg #yiv2877490518ygrp-msg p a
span.yiv2877490518yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2877490518
.yiv2877490518green {color:#628c2a;}#yiv2877490518 .yiv2877490518MsoNormal
{margin:0 0 0 0;}#yiv2877490518 o {font-size:0;}#yiv2877490518
#yiv2877490518photos div {float:left;width:72px;}#yiv2877490518
#yiv2877490518photos div div {border:1px solid
#66;min-height:62px;overflow:hidden;width:62px;}#yiv2877490518
#yiv2877490518photos div label
{color:#66;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2877490518
#yiv2877490518reco-category {font-size:77%;}#yiv2877490518
#yiv2877490518reco-desc {font-size:77%;}#y
[belajar-excel] VBA Conditional Formatting Warna Gradasi
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
