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 <[email protected]> wrote: From: kid <[email protected]> Subject: Re: [belajar-excel] Kuispemutarangka To: [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> 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~ .
