Tecnologia, programação e muito Visual FoxPro.

segunda-feira, 21 de novembro de 2011

Re: ]] XL-mania [[ pembagian data secara random(VB)

 

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

__._,_.___
Recent Activity:
+-:: 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              |
+-------------------------------------------------------------------+
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

.

__,_._,___

Nenhum comentário:

Arquivo do blog