di sheet1 itu ada berapa data ? katakan misalnya ada sejuta data susunannya sudah terstruktur kah ? kalau blum, baeknya di atur dulu menjadi tabel yg baek. kalo tabel sudah baek, tiap data otomatis punya nomor index yg urut (indexnya ndak nyata kelihatan, tapi berdasarkan nomor index itu tiap cell data dapat di akses.)
saat ini anda sedang berurusan dengan sebuah larik data bilangan 1 s/d 1000000 berupa index cell data Anda. tiap angka index itu menunjukkan lokasi cell data anda * lalu kita membuat gerak-gerik seperti ini:* (1) buat angka random yg bulat (integer) dan yg terkendali (yaitu yg hanya bernilai di dalam rentang 1 s/d 1juta (2) angka random yang muncul kita jadikan index untuk memanggil data di sheet1 (3) lalu VALUE data tsb di isikan ke textbox tiga jurus tsb kita *ulang ulang *dalam *loop yg tiada akhir *( bukan selingkuh tiada akhir (disingkat = setia) lho)* *(hanya berakhir kalau suatu variable tertentu diberi nilai tententu misal variable Stopped bernilai TRUE diatur agar menghentikan loop) ya hanya begitu lah kira-kira, jalan ceritaknya, standar-standar saja (yg kemudian di codekan ke VBA) oiya bilangan random dapat di generate diworksheet dengan fungsi RAND() atau fungsi RND() di VBA mengatur agar bilangan random berupa bilangan integer ? ya dengan memasukkan bilangan random tsb ke fungsi INT. (sebelumnya boleh dikalikan dengan bilangan besar tertentu) mengatur agar nilainya terbatas hanya pada rentang 1 s/d 100000, ada kok rumusnya ! semuanya pernah dibahas, kayaknya cukup tuntas... tas... tas... kalo ndak salah malah sampai dua kali (kurang kerjaan tuh yang nulis postingnya) coba deh di lihat lihat di message list di web milis kita ini. atau kalau anda member lama mungkin sudah terarsip di POP mail anda. atau bisa juga dicari di mail.archive.com (ada 'kan petunjuknya di file "Rules & Tips")... 2008/5/27 anthon suranthon <[EMAIL PROTECTED]>: > dear milister, > ada yang tahu code buat nampilin data secara random yang ada di sheet1 > (Excell) terus ditampilkan di Label/textbox Visual basic. gimana sih? > terimakasih > > *> +-:: XL-mania ::::::::::::::::::::----------------------------------+ > | Kumpulan jurus unik Excel: "50 Jurus Rahasia Excel" | > | Temukan segera di toko buku terdekat! www.XL-mania.com | > +-------------------------------------------------------------------+ > | http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] | > | http://www.mail-archive.com/[email protected] | > +-------------------------------------------------------------------+ *
