]] XL-mania [[ Seri Nanya Macro : Memilih data acak

 

Rekans,

kembali nubie mau nanya tentang macro
kali ini, kasus yang saya hadapi adalah, saya ingin memilih sample secara acak dari sekumpulan data yang sudah tersusun. dalam contoh ini, jumlah datanya adalah 10, dan saya ingin mengambil 3 sample, secara acak

Script macro yang baru saya pahami adalah sbb :

Sub random_lagi()

Dim acak, x

'Dicari jumlah data dikurangi headernya
x = WorksheetFunction.CountA(range("A:A")) - 1
[B1].Select

For i = 1 To 3
          
    acak = Int((Rnd * x))
    ActiveCell.Offset(acak, 0).Value = "Pilih"
   
Next i

End Sub

Data terletak di kolom A, dan data yang terpilih akan diberi label di sebelahnya dengan label "Pilih"
berikut adalah datanya :

Name

Kaya

Akiko

Maiya

Akemi

Hana

Kami

Aneko

Kaori

Miya

Tanabe

Mohon maap banget nggak bisa kasih dalam bentuk Excel, internet nebeng kantor ndak bisa upload attachment (~___~)"

Masalahnya :
saya sudah coba script tersebut, setelah running beberapa kali, ada kalanya data yang sudah terpilih kembali terpilih. Padahal yang saya mau, data yang sudah terpilih tidak akan dipilih lagi

Mohon petunjuknya

salam
-Priel-

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (1)

Recent Activity:

• New Members 94

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| silakan klik... ada buku nih.... dijamin bukan "bom buku"...      |
| http://goo.gl/iQauc... btw kalau ada kerjaan enak kabarin momods  |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| 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              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___