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

 

"Ufortunately"... Jika kita berfikir lebih kedepan lagi...   object CheckBox tidak 

harus diberi nama sebagai  "CheckBox1",  "CheckBox2",  "CheckBox3" dst.

Banyak sekali VBA Project menggunaan checkbox yg diberinama sesuai tugasnya

(demi kemudhan penulisan codenya)  dan tidak ada pola nomor yg bisa di LOOP

dan.... 

statement seperti yg disarankan Hachi itupun 

Checkbox & i &.value = false

tidak dikenal oleh VBA

Demikian juga setelah diganti-ganti antara lain  menjadi sbb

"Checkbox" & i &".value" = false

karena ruas kiri itu tidak bakalan menghasilkan OBJECT

(sudahkah Mr. Hatchi men-test di lembar modul sebelum di siarkan di sini ?

(saya sudah mencobanya dan sudah mencoba mengganti-ganti dengan tujuan

merujuk Object CheckBox yg ber-Index i, dan karena goblog-ku = tidak berhasil

Akhirnya kembali ke project lawas....   (walaupun tetap mengandalkan bahwa 

nama control Check masih berupa nama generik Checkbox1, 2,3 dst...

'--- Procedure dalam Userform Module ---

' Note index object control dimuli dengan 0 (nol) bukan 1 !

Dim i As Integer

On Error Resume Next

For i = 0 To Controls.Count

If LCase(Controls(i).Name) Like "checkbox*" Then

Controls(i).Value = False

End If

Next i

"KALAU MENURUT SAYA"

diberi nama apapun suatu  object CheckBox tetap punya sesuatu yg pasti

yaitu TypeName nya, seperti yg telah diimplementasikan oleh indri Hapsari dlm thread ini.

If TypeName(oCtrx) = "CheckBox" Then

Oleh karen itu saya lebih prefer memilih / meniru trick yg iHaps pakai tsb.

o'Seno

2012/1/26 Hachi Rizki <hachiuz_ld27@yahoo.co.id>

Kalau menurut saya error karena format untuk textBox tidak pakai tanda kurung,

Coba ditulisnya

Checkbox & i &.value=false

---

Dari: "taufikef@ipb.ac.id" <taufikef@ipb.ac.id>
Dikirim: Jumat, 20 Januari 2012 10:47 

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 (6)

Recent Activity:

• New Members 55

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

.

__,_._,___