Walaupun UDF (fungsi buatan sendiri) maupun fungsi "asli" tidak dapat Dear Para Maha Suhu Excel,
melaksanakan AKSI mewarnai cell, tetapi tentu saja kita masih bisa membuat
makro BUKAN FUNGSI (UDF) yg dapat melakukan keinginan Pak Sukses Klub.
Akal-akalan-
dibuat UDF SetColor(Range1,
fungsi =SetColor(Cel1,
Tetapi karena penulisan FUNGSI tsb = mengubah nilai sebuah cell di sheet, maka ia
telah memicu terjadinya Sheet_Change_
Lalu, Event tsb kita manfaatkan untuk menjalankan makro ACTION (=prosedur Sub).
Nah Makro Action (Prosedur Sub Coloring) inilah yg mengerjakan pewarnaan, sesuai
pesanan Warna di cel1 dan pesanan Tempat di Cel2
Jika rumus (fungsi SetColor) dicopy ke cells di bawahnya dan tidak menghasilkan WARNA
kita masih dapat
>> menselect cell ber-rumus tsb, lalu tekan F2
>> atau di double-Klik cell berisi rumus tsb.
"FungsiPalsu" ini tentu masih banyak kekurangannya jika dibanding dgn "Fungsi beneran".
Maka itu: Kita tunggu idea lain yg lebih mataB dari temans lain..
bluewater, 18 juli 2009
kindest regards
siti Kalau Cell ada warnanya ( interiornya atau FONT-ya)
maka dapat dibuat FUNGSI yg bisia menebak Warna Atau INDEX Warna cell tsb
Dulu pernah ada orang yg membuat fungsi iKolor
=iKolor(B1) hsilya bisa 3 kalau B1 berinterior merah
BISA DIBUAT DAN BERHASIL karena memang fungsi itu untuk mengembalikan DATA
Sekarang, pak Sukses menginginkan FUNGSI untuk melaksanakan AKSI
(memberi warna , atau meng-Kolor-i) cell
Singkat kata Tidak Bisa, Fungsi maupun formula tidak dapat melaksanakan AKSI
dia hana mengembalikan data.
rgds,
siti
Pertanyaan saya sebagai berikut :
1. Bagaimana VBA Codenya untuk membuat fungsi setColor seperti contoh
terlampir diatas dimana rumus ditulis di kolom C, dan jenis warna
tergantung dari input dikolom B, sedangkan hasil ditampilkan di kolom
lain yaitu Kolom D.
( Jika Warna RED, GREEN, YELLOW dll... diatas tidak mewakili pilihan
warna di excel, maka isi kolom B boleh digantikan dengan kode warna
misal 3 untuk RED dll... )
Fungsi: =setColor( [color_code] ; [Destination_
Note: Setahu saya, kalau menggunakan conditional formula hanya bisa max
3 kondisi saja. Jadi mohon bantuan Para Master Excel untuk VBA Codenya.
2. Bagaimana agar rumus "setColor" yang telah dibuat tersebut bisa
Available secara otomatis di file-file Excel yang lain ( Maksudnya
supaya fungsi tersebut menjadi seperti fungsi "Built In" di excel ).
Terima Kasih sebelumnya..
Regards,
Marly
| XL-mania, berjuang untuk rakyat, pancen oyeeee, LANJUTKAN! |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Nenhum comentário:
Postar um comentário