Terimakasih sudah dilengkapi dengan lampiran file kasus..
MUNGKIN YG DIINGINKEN oleh pak Bachelor SEPERTI INI..
Tombol Entri harus dapat memindahkan nilai di TextBox1 (biru muda) ke salah satu cell
di Tabel C3:V15; yaitu satu cell yg tepat berada di :
> salah satu Ruang (Sub-Tabel) yg di tentukan oleh OptionButton (HRN / PR / PRK)
> seBARIS dengan Nama Siswa, yg kriterianya sedang muncul di Combobox1 (putih)
> posisi KOLOM-nya (relatif pada Ruang ybs) ditentukan oleh nilai ScrollBar1
(maaf ScrollBar1 terlanjur saya ganti SpinButton /alasan: rentang nilai tidak terlalu luas dan
ScrollBar itu sering menampakkan "Blinking" yg mengganggu pemandangan)
Agar mudah mengurus-nya, di dalam Tabel C3:V15 kita anggap ada 3 Ruang (SubTabel)
yaitu
Range C3:L15 = Ruang HRN (10 kolom)
Range M3:Q15 = Ruang PR ( 5 kolom)
Range R3:V15 = Ruang PRK ( 5 kolom)
(tiap Ruang hanya perlu diwakili oleh satu baris ter-atas saja)
Ke-3 Ruang (tiap Ruang cukup diwakili Satu Baris Pertama saja) itu dlm VBA kita ingat
hanya dlm 1(satu) variable saja (variable Ruang); tetapi satu Variable itu akan sering
di-set -ulang / berubah-ubah sesuai OptionButton-mana yg sedang dipilih (yg sedang
bernilai TRUE) !
Dengan demikian Cell yg dituju menjadi lebih gampang ditentukan yaitu:
Range Ruang(Baris, Kolom) / lengkapnya: Ruang.Cells(Baris,Kolom)
dimana Baris adalah nilai (ListIndex pada ComboBox) + 1
dan Kolom adalah nilai ScrollBar (yg sudah diganti dgn SpinButton)
(pada code VBA nya, variable Baris dan Kolom siti beri nama = R dan C )
Jadi untuk merujuk ke cell dalam suatu ruang dapat di expressikan dgn : Ruang(R, C)
ListIndex (properti milik ComboBox) perlu di-adjust dgn plus 1 karena penomoran
ListIndex pada ComboBox dimulai dari angka 0 (kalau ComboBox sedang kosong
malah Listindex bernilai = -1); sedangkan IndexBaris pada Range dimulai dari angka 1
Di sheet 1 diaplikasikan conditional format (untuk menunjukkan cell yg akan diisi).
Conditional formatting dibuat per Ruang / tiap Ruang punya kondisi sendiri
Ketiganya memerlukan nilai OptionButton (True / False yg ada di A11, A12, A13, ex
LinkedCell dari 3 object tsb.)
oiya, dlm codingnya ditambahkan sedikit "DEMO", agar programnya terkesan "kelihatan
lebih cerdas !", (ada tanda kutip-ya lho....)
Jika tabel sudah ada isinya, dengan trick kecil kita dapat memilih CellPertama yg kosong
Misal: untuk Opsi Ruang PR, ComboBox Siswa = Muh Khairuddin
Berhubung di kolom 1 dan 2 di ruang PR untuk nama tsb sudah ada nilainya, Spinbutton
secara otomatis akan memilih nilai = 3 , yg mengakibatkan cell O5 menjadi highlighted.
Ini menandakan cell siap diisi nilai. Walaupun begitu, SpinButton masih dapat anda
Spin Up/Down untuk mengubah kolom (maju / mundur) posisi cell yg sebenarnya akan
anda isi.
satu cataan lagi:
bahwa mengubah VALUE di Combobox tidak harus dengan Mouse Klik ke DropDownButton
lalu memilih Item di List yg muncul; tetapi dapat pula dengan Panah Atas / Panah Bawah
(tentu selelah ComboBox diberi fokus (dipilih / aktifkan)
Dengan Tombol Panah Atas/Bawah pemilihan lebih cepat, serasa meluncur, tanpa harus
memunculkan DropDownList milik si Combo; sementara kita dapat melihat apa yg terjadi
di sheets..
bluewater, 13 Febru 2011
siti Vi
2011/2/12 Bachelor Ard <bachelor_ard@yahoo.com>
>
> Untuk semua para XL-mania !!!
> Saya memohon Sudilah kiranya membantu !!!
> Problemnya' bagaimana membahasakan di Macro, kalau bahsa manusianya seperti ini:
> Dari acuan gambar di bawah ini
> "Jika Muh.Hasyim yang di sorot di Cmbox
> Opt PKT yang aktif
> ScrolBar (Index 1 link dng colom R3), (Indx 2 link colom S3), (Indx 3 link colom T3)... seterusnya
> sehingga nilai yang ada di texbox terInput pd sel yg sesuai ketika diclik Kontrol ENTRI"
>
> Atas bantuannya sebelumnya saya sangat berterima kasih
> "sekali lagi saya sangat mengharap!!!!!!
>
| buku terbaru XL mania: insipartif dan unik, gabungan antara buku |
| aplikasi bisnis dan buku komputer. isinya tidak biasa! |
| http://www.xl-mania.com/2011/02/mengapa-boss-benci-chart-anda.html|
| 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 |
+-------------------------------------------------------------------+
Nenhum comentário:
Postar um comentário