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

 

Karena anda tidak mau menjelaskan, maka Control CheckBoxes itu kita  anggap

ActiveX Control yg anda tanamkan ke suatu SHEET (bukan di UserForm)

Di sheet organisasi dan hierarki Control memang agak "rada-rada ginama gitu..."

tidak sesederhana jika di tanamkan di Userform.

Kesalahan bukan pada tv anda, tetapi pada penyebutan object yg TIDAK ADA.

Jika ditanam di Sheet;  object Control adalah object yg termasuk KOLEKSI OBJECT bernama SHAPES.

Tiap Object juga bisa dianggap Shape

Maka itu kita harus merunutnya dari  titik itu, bukan langsung TIBA-TIBA BILANG: "CheckBox !"

yg tentunya tidak dikenal oleh organisasi objects yg ada di sheet itu.

Contoh 1: 

Mengubah nama 11 CheckBox menjadi menjadi CheckBox1001 s/d CheckBox1011

(object-nya harus sudah dibuat lebih dulu)

Sub BlaBla_Caption()

   Dim oShp As Shape, n As Integer

   n = 1000

   For Each oShp In Me.Shapes

      If oShp.Name Like "CheckBox*" Then

         n = n + 1

         oShp.OLEFormat.Object.Object.Caption = "CheckBox" & n

      End If

   Next

End Sub

Contoh 2:

Memberi Value semua CheckBox menjadi  = FALSE

Sub BlaBla_Value()

   Dim oShp As Shape

   For Each oShp In Me.Shapes

      If oShp.Name Like "CheckBox*" Then

         oShp.OLEFormat.Object.Object.Value = False

      End If

   Next

End Sub

Jika nama Object sudah tidak seragam lagi (contoh di atas seragam pada 8 huruf petama = CheckBox*) 

maka kita dapat mengidentifikasi dengan cara lain yg seragam (mirip) bagi 11 checkbox itu.

Misalnya = Letak-nya (propeti LEFT & TOP nya), BackColor-nya,  atau propety lain.

Oleh karena itu pemberian properties kepada BANYAK object CONTROS yg akan diproses secara sekaligus

hendaknya sambil difikirkan "ada suatu keseragamannya"

Kalau perlu kita memberi property GroupName yg seragam khusus bagi sekelompok object controls yg akan diolah secara sekaligus itu

CMIIW...

- i -

2012/1/20 <taufikef@ipb.ac.id>
>
> Dear XL-mania,
> Sy punya 10 control checkbox yang akan sy definisikan ke dalam perintah
> For-Next. Jelasnya seperti berikut :
>
> Checkbox1.Value=False
> Checkbox2.Value=False
> Checkbox3.Value=False
> Checkbox4.Value=False
> Checkbox5.Value=False...dst sampai Checkbox10
>
> perintah diatas sy sederhanakan ke dalam perintah For-Next, yaitu :
>
> Dim Checkbox(10) As Boolean
> For i=1 to 10
> Checkbox(i).Value=False
> Next i
>
> Masalahnya adalah : Saat perintah di atas dieksekusi (run), terjadi
> kesalahan (error) pada baris ke 3 (Checkbox(i).Value).
>
> Mohon saran dan solusinya. Trims

__._,_.___

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

Messages in this topic (2)

Recent Activity:

• New Members 64

Visit Your Group

+-:: 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              |
+-------------------------------------------------------------------+

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

.

__,_._,___