Jadi taufikef van ipb bogor, hanya berkenan tetap datang sebagai "pendekar
bertangan kosong" saja nih...!? gak bawa secarik kertas pun ? berisi gambar
userform yb ada checkboxnya ? (agar calon penanggap gak usah kerja bakti dulu ??)
Baiklah kalau begggggitu. Tidak ada bahan dari anda; kita-lah yg akan buatkan bahan nya.
Userform berisi: 120 buah CheckBox + 2 TextBox dan 2 Option Button
4 controls selain CheckBox itu dimaksudkan ntuk membuktikan bahwa dia tidak
ikut terpengaruh (valuenya tidak berubah); karena memang makro hanya DISURUH
mengurusi para CHECKBOX dan CheckBox saja... Makhluq lain : cuekin ajah !!
Bagiamana mendeteksi tiap controls bahwa dia adalah CheckBox ?
Ini memang yg sedang dijadikan bahan pembicaraannya / topiknya
Private Sub UbahProChkBox(Cmd As Byte)
' coded by : iHaps
' XL-mania cse # 19872 - 19897
'-----------------------------
Dim oCtrx As MSForms.Control
Dim Rng As Range, n As Integer, i As Integer
Set Rng = Sheet1.Cells(1).CurrentRegion
For Each oCtrx In Controls
If TypeName(oCtrx) = "CheckBox" Then
Select Case Cmd
Case 1 ' (event Init, ganti Captions)
n = n + 1
oCtrx.Caption = "Chk_0" & Rng(n)
Case 2 ' (Check All)
oCtrx.Value = True
Case 3 ' (UnCheck All)
oCtrx.Value = False
Case 4 ' (Check Acak)
Randomize
i = 1 + Int(Rnd * 300)
oCtrx.Value = False
If i > 120 Then oCtrx.Value = True
End Select
End If
Next
End Sub
Untuk lengkapnya anda HARUS ( eh salah yaa.? ) > "sebaiknya" lihat workbook dan
isinya; karena prosedur yg iHaps pamerkan itu memerlukan 1 ARGUMENT dimana
argumentnya disediakan oleh Prosedur² pemanggilnya (ada beberapa).
1 Prosedur tsb direkayasa agar bisa melayani 4 PERINTAH (3 berupa perintah datang
dari 3 Tombol; 1 perintah berupa perintah dari Event Intialize )
Pada blok Select Case; lihat Case 4 ( = jika variable cmd bernilai 4) di situ ada
"Check Acak", maksudnya 120 checkbox kita berikan contreng secara acak,
maksudku untuk memberi gambaran yg lebih luas dari sekedar "Check ALL" dan
"UnCheck ALL" (kalau mau..)
kindest regards,
- i -
2012/1/24 <taufikef@ipb.ac.id>
> Dear Xl-mania
> Terimakasih buat sahabat2 XL-mania, khususnya i Haps, yang telah
> memberikan pencerahan dan solusi mengenai perintah For..Next pada Checkbox
> (macro).
>
> Benar apa yg disampaikan i Haps, bahwa organisasi dan hierarki Control di
> sheet agak "rada-rada ginama gitu..." (pinjam bahasanya i Haps). Oleh
> karena itu sy cenderung menggunakan UseForm. Oh ya..sebelum sy lupa,
> checkbox dimaksud (email sy terdahulu), sy tanamkan di UseForm (bukan
> ActiveX-Control di sheet). Tapi contoh2 yg i Haps berikan itu sangat
> bermanfaat lho (Sy jadi tambah pengetahuan).
>
> Nah utk checkbox di UseForm, perintahnya seperti apa ya ?
>
> Trims buat semua kawan2 di XL-mania.
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| Gong Xi Fat Choi! Mana angpaonya... wkwkwkwkwk... |
+-------------------------------------------------------------------+
| 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 |
+-------------------------------------------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| Gong Xi Fat Choi! Mana angpaonya... wkwkwkwkwk... |
+-------------------------------------------------------------------+
| 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