Rassal sayı türetme

[safak_deniz]

ortalaması 300 olan 20 tane rassal sayı türetmek istiyorum nasıl yapabilirim?

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod (sayılar A1:A20 aralığına yazılır) şimdilik işinizi görecektir.
Alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılan
VBA ekranının sağ tarafındaki boş alana yapıştırın ve çalıştırın.

Kod'daki 250 ve 350 sayıları hücrelere yazılacak rastlantısal sayılar için öngürdüğüm
alt ve üst sınır oluyor, bu aralığı genişlettikçe çözüm için daha fazla beklersiniz.
.

[B]Sub HEDEF_300()[/B]
10: For satır = 1 To 20
        Cells(satır, 1) = WorksheetFunction.RandBetween([B][COLOR="Blue"]250[/COLOR][/B], [B][COLOR="Red"]350[/COLOR][/B])
    Next
If WorksheetFunction.Average(Range("A1:A20")) <> 300 Then GoTo 10
    MsgBox "İŞLEM TAMAMLANDI"
[B]End Sub[/B]

 

[sakman26]

mesaj tarafımdan silinmiştir..