Di Kolom B (kolom sebelum tabel data), pada cell B5 tuliskan rumus
=RAND()
2011/11/18 Warda Arofah makmun <warda.amakmun@yahoo.com>
>
> 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.
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 <warda.amakmun@yahoo.com>
>
> 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.
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| momods kebanyakan e-mail :(... unread di kantor 6 ribu lebih :( |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| momods kebanyakan e-mail :(... unread di kantor 6 ribu lebih :( |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário