kalau variable not defined, coba hilangkan option explicit. 2009/9/1 suyono suyono <[email protected]>
> > > Terima kasih mbak Siti. > untuk yang "Gelas Arisan" kemarin itu karena message nya "Run-time error > 16: ... dst (sama dengan "Kuispemutarangka" yang diberikan sama mbak Siti > sebelum ada modif dari mas Kid), untuk "Kuispemutarangka" yang sekarang > (dari mbak Siti) error message nya menjadi "compile error", "variable not > defined". > Demikian mbak, terima kasih. > Syn. > > --- On *Tue, 9/1/09, siti Vi <[email protected]>* wrote: > > > From: siti Vi <[email protected]> > Subject: Re: [belajar-excel] Kuispemutarangka > To: [email protected] > Date: Tuesday, September 1, 2009, 7:12 AM > > > > > seandainya "Gelas Arisan" dapat dijalankan di pc pak suyono > hal yg diinginkan itu sudah ada di sana. > > untuk file ex Bp Opi, (KuisPemutarAngka) > kita memang perlu memberi sedikit modifikasi sedikit di prosedur > Sub cmdStartStop_ Click, dibagian "ELSE" sebelum statement > menuliskan nama terundi > > '--------modif 1 sep 2009 / ctv ----- > Dicatat = MsgBox("Oke dicatat ? " & vbCrLf & vbCrLf & _ > "Yes = Pemenang dicatat" & vbCrLf & _ > "No = Pemenang ditunda dulu ", cbquestion + vbYesNo, "Pengundian") > If Dicatat = vbNo Then Exit Sub > '------------ --------- --------- --------- > > > > > 2009/8/31 suyono suyono <onoyus2...@yahoo. > com<http://mc/[email protected]> > > > >> >> >> Mas Kid dan mbak Siti, seperti yang dikatakan oleh mas Irvan Maulana, saya >> memang bermaksud hendak membuat program untuk dorprize di kantor. >> Permasalahan pertama sudah terpecahkan yaitu tidak adak record yang >> berulang. Timbul masalah berikutnya yaitu seandainya muncul undian yang >> tidak ada orangnya (pemiliknya) maka hasilnya dibatalkan, kemudian >> pengacakan diulang lagi, demikian seterusnya sampai semuanya habis.Bagaimana >> ini ? bisa minta tolong lagi mas Kid ? mbak Siti ? .. Makasiiiihh. >> >> --- On *Mon, 8/31/09, kid <nmkid.family@ >> gmail.com<http://mc/[email protected]> >> >* wrote: >> >> >> From: kid <nmkid.family@ >> gmail.com<http://mc/[email protected]> >> > >> Subject: Re: [belajar-excel] Kuispemutarangka >> To: belajar-excel@ yahoogroups. >> com<http://mc/[email protected]> >> Date: Monday, August 31, 2009, 12:08 PM >> >> >> >> aku dapet file-nya yang *KuisPemutarAngka_ ctv_Modified. zip *dari mbak >> Siti tanggal 28 Agustus. >> Terus di run dan kadang oke kadang nggak. treat running test nya, pertama >> langsung mulai dan stop hasil error. Kedua (sama-sama buka baru lagi lho) >> reset dulu lalu mulai dan stop hasil oke. >> >> Setelah ditelusur menggunakan debug. >> Pada prosedur (aslinya) : >> >> Sub RelistDaftar( RecordNumber As Long) >> ' winner di hilangkan daftar pengundian (duplikat data) >> DupData(RecordNumbe r + 1, 1).Resize(1, 3).ClearContents >> ' duplikat data di sort >> DupData.Sort _ >> Key1:=DupData( 1, 1), _ >> Order1:=xlAscending , Header:=xlYes, _ >> OrderCustom: =1, MatchCase:=False, _ >> Orientation: =xlTopToBottom, _ >> DataOption1: =xlSortTextAsNum bers >> End Sub >> >> jadi : >> >> Sub RelistDaftar( RecordNumber As Long) >> ' winner di hilangkan daftar pengundian (duplikat data) >> Set DupData = Sheets("Master Karyawan").Range("A1").CurrentRegion >> DupData(RecordNumbe r + 1, 1).Resize(1, 3).ClearContents >> ' duplikat data di sort >> DupData.Sort _ >> Key1:=DupData( 1, 1), _ >> Order1:=xlAscending , Header:=xlYes, _ >> OrderCustom: =1, MatchCase:=False, _ >> Orientation: =xlTopToBottom, _ >> DataOption1: =xlSortTextAsNum bers >> End Sub >> >> mestinya, penambahan itu tidak mempengaruhi output, karena sebagai >> inisialisasi pada range yang akan di-sort di bawahnya sana (dengan >> DupData.Sort ) >> Tapi, entah kenapa coba running test lagi.... sapa tahu nanti ketemu yang >> output dobel misalnya. sapa tahu lho. >> >> Nah, kalau yang gelas acak atau apa itu ya, >> karena komputer ku udah uzur, maka runningnya too slow... jadi aku cuekin >> aja. >> Tapi, kalau gak salah, bagian yang error tentang kondisi batas loop itu >> bisa diubah dari : >> *loop until i >= val ([E18]) + 1 >> >> jadi >> >> **loop until i >= Range("E18") + 1* >> >> atau >> >> *loop until i > Range("E18") * >> >> hehehe... ternyata keleru masukannya. >> maap ya... >> Kid. >> >> >> >> 2009/8/31 siti Vi <setiyowati.devi@ >> gmail.com<http://mc/[email protected]> >> > >> >>> >>> >>> sebentar,... aku kok sekarang malah yang jadi bingung >>> >>> semula, pak suyono bilang file tidak jalan (28 Agu) >>> yg tidak jalan itu harusnya file yg saat itu dikirim yaitu "Gelas Arisan" >>> di keluhanya kan juga mengenai kode *loop until i >= val ([E18]) + 1.* >>> yg adanya di file "Gelas Arisan" >>> >>> lalu sekarang dikatakan "file modif dari mas kid alhamdulillah jalan" >>> Setahu saya mas kid mengirim ke milis = file "re_KuisPemutar. .." bukan >>> "Gelas Arisan..") >>> (yg artinya, dulu, "KuisPemutar" (tanpa "re") sebelum di modif, pernah >>> dikeluhkan = Ndak jalan, >>> padahal kan ndak pernah ada keluhan) >>> >>> Dan juga modif dari mas kid itu yg mana ya, aku agak kehilangan jejak nih >>> (mas kid tolong. di beri tanda baris-baris yg modifikasi dari mas kid) >>> Atau aku belum terima mailnya, barangkali.. >>> >>> he he he.. ini bukan ngeyel lho, tetapi aku benar benar belum dapat >>> menangkap >>> adanya benang merah email di pak suyono yg ke 2 (28 Agu) dengan yg >>> terakhir (31Agu) >>> >>> tolong dong... >>> ~ctv~ >>> >>> >>> >>> >>> . >>> >>> >> >> > > >
