Re: ]] XL-mania [[ For-Next

 

Berhubung "banyak" pemirsa yg menanyakan 'lampiran', by "Jupri"..

Lampiran workbook dapat diunduh di  http://www.box.com/s/my7vrmcvghvvlo4cl88i

(menghandel control CheckBox di UserForm)

Maapf.. sebenarnya kasus ini sudah terlalu lama  (11 hari y.l.), sudah ndak seru lagi...

dan tidak menarikhati pemilik kasus-nya sendiri

»»» semoga masih ada manfaatnya ..

- i - 

bonus: 

"menghandel control CheckBox  yg di-embeded di Sheet" 

http://www.box.com/s/s27oo8849vl6uykajs63

2012/1/27 i Haps <hapsari.stlizbeth@gmail.com>

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

         '------- |

      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 -

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (7)

Recent Activity:

• New Members 62

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Delay pada posting disebabkan sibuknya momods dan leletnya        |
| koneksi dengan ind***t. bwakakakaka....
+-------------------------------------------------------------------+
| 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              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___