rastgeleleştirme yönteminde kombinasyonun kullanımı ile ilgili makro

[oktobır]

Çözmek istediğim soru şu:

Bir torbada üzerinde rakam yazılı toplar bulunmaktadır. Bir tane 1 yazılı, iki tane 2 yazılı, üç tane 3 yazılı, dört tane 4 yazılı ve beş tane 5 yazılı olmak üzere toplam 15 tane top vardır.
Torbadan rastgele bir top çekip, bu çekilişi çok sayıda tekrarlarsak (çekilen top tekrar torbaya konuyor) her bir topun kaç defa geleceğini (gelme oranını) teorik olarak söyleyebiliriz. Ben bu sayıları 500 çekiliş için somut olarak belirlemek istiyorum. ve aynı işlemi 500 defa daha uygulayıp sayıların gelme oranlarını karşılaştırmak istiyorum.

Yukarıdaki torbadaki rakamlardan rastgele 500 tane rakam belirleyip, hangi rakamdan kaç tane geldiğini belirtebilecek bir makro yazmak mümkün müdür?
Bu konuda bana yardımcı olabilirseniz sevinirim. Şimdiden teşekkürler...

 

[leumruk]

Merhaba,
Ekteki düğmeye basın.

Sub Sec()
deg = Array("", 1, 2, 2, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 5)
Range("a1:g500").ClearContents
Randomize
Application.ScreenUpdating = False
For x = 1 To 500
sayi = Int((15 * Rnd) + 1)
Cells(x, 1) = deg(sayi)
Next
For y = 1 To 5
Say = WorksheetFunction.CountIf(Range("a1:a500"), y)
Cells(1, y + 2) = y & " gelme sayısı"
Cells(2, y + 2) = Say
Next
MsgBox "Çekiliş tamamlanmıştır.", vbInformation, "DURUM"
End Sub

 

[oktobır]

teşekkür

ilginiz için teşekkürler, çok işime yarayacak ...