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
>
> 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~
>
>
>
>
> .
>
>
>
