Di Kolom B (kolom sebelum tabel data), pada cell B5 tuliskan rumus *=RAND()* Double-klik FILL-HANDLE-nya (berakibat rumus tercopy di B5:B34) BLOK lah range B5:G4, kedian klik tombol SORT (boleh ascending maupun descending)
Data sudah teracak urutannya, sekarang dari 30 records itu anda tinggal membagi 3 kelompok. Tentukan 3 bilangan sembarang dengan syarat kalau dijumlah = 30 3 bilangan itu pakailah sebagai jumlah records yg akan dipisah perkelompok Jika anda merasa "randomnya dipengaruhi oleh ORANG) maka penentuan 3 bilangan itu dapat anda lakukan dengan formula Cell K1 : formula 1 *= 1+int(rand()*30)* Cell L1 : formula 2 *= 1+int(rand()*30)* Cell M1 : formula 3 *= 30-K1-L1* Pencetlah kunci F9 beberapa kali dan 3 bilangan yg muncul SYAH sebagai bilangan untuk menentukan besarnya tiap kelompok. Untuk mendapatkan code VBA nya tinggal merekam semua tindakan anda tsb. Barangkali harus ada sedikit editing, biar enak dibacanya 2011/11/18 Warda Arofah makmun <[email protected]> > > teman-teman XL-Mania saya minta tolong untuk coding VBA dibawah ini : > jika saya punya data seperti terlampir, bagaimana untuk coding VBAnya ketika data itu mau dibagi secara random menjadi misal 3 kelompok? > disana ada 30 data, misal dibagi menjadi 3 kelompok dan masing2 kelompok tidak dibatasi banyaknya anggota,bagaimanakah coding VBAnya?terimakasih untuk bantuannya.
