makasyiih... oh ternyata ada satu baris tambahan yg waktu itu siti terlewat bacanya terima kasih...
"Gelas arisan" memang pengacakannya bukan dengan FORMULA seperti dari pak Opi, melainkan dengan code, teoritis, makanya loop nya bertingkat. mungkin itu yg menyebabkan agak lamban (di P4-ku sudah tidak terasa lamban sekaleee) men-Stop-nya juga dengan cara sengaja membuat error kalau terjadi error loop di loncatkan keluar dari loop Memang sudah waktunya di modif lagi... (dlm versi lain, dengan menggunakan FORM, pengacakan terasa lebih ngebut) 2009/8/31 kid <[email protected]> > > > 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(RecordNumber + 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:=xlSortTextAsNumbers > End Sub > > jadi : > > Sub RelistDaftar(RecordNumber As Long) > ' winner di hilangkan daftar pengundian (duplikat data) > * > Set DupData = Sheets("Master Karyawan").Range("A1").CurrentRegion* > DupData(RecordNumber + 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:=xlSortTextAsNumbers > 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 <[email protected]> > >> >> >> sebentar,... aku kok sekarang malah yang jadi bingung >> >
