Random Sayı Üretme

[muendiss]

İstenilen Ortalamada Random Sayı Türetme

Merhaba Arkadaşlar,

Benim sorum belirli alt ve üst limit arasında belirli bir ortalama değerini sağlayacak rastgele sayı üretilmesine dair. Daha önce de böyle bir konu açılmış fakat cevap alınamamış. Yardımcı olabilecek olursanız çok sevinirim..

 

[Korhan Ayhan]

Merhaba,

Bir örnek dosya ekleyerek basit olarak nasıl bir işlem yapmak istediğinizi açıklar mısınız?

 

[muendiss]

Merhaba;
Ekteki dosyada ben 48 ve 50 arasında virgülden sonra iki basamak olacak şekilde sayı türettirdim. Ama ortalamalrının da 49 olmasını istiyorum örneğin.

 

[muendiss]

Arkadaşlar yok mu fikri olan?

 

[Muhammet Okumuş]

Merhaba,
A28 hücresine,
=49*28-TOPLA(A1:A27) formülünü uygulayınız.

 

[muendiss]

çok çok teşekkür ederim gerçekten..

 

[Muhammet Okumuş]

Ama bulunan sayı 48-50 arasında olmayabilir. Onun için makro yazmak gerekir.

 

[Muhammet Okumuş]

48-50 arası için

Sub Rastgele()
Application.ScreenUpdating = False
Range("A28:AC28") = "=49*28-SUM(A1:A27)"
For i = 1 To 29
10
Range(Cells(1, i), Cells(27, i)) = "=ROUND(RAND()*2+48,2)"
If Cells(28, i) < 48 Or Cells(28, i) > 50 Then GoTo 10
Range(Cells(1, i), Cells(28, i)) = Range(Cells(1, i), Cells(28, i)).Value
Next
End Sub

Kodu kullanınız.

 

[Korhan Ayhan]

Üretilen sayıların ortalamasının 49 olması şartıda vardı. Bunun için makrolu çözüm gereklidir. Aşağıdaki kod ile bu işlemi yapabilirsiniz.

Sub Rastgele_Sayi_Uret()
    Dim X As Integer
    
    Range("A1:AC28").ClearContents
    
    For X = 1 To 29
10      Range(Cells(1, X), Cells(28, X)).Formula = "=ROUND(RAND()*(50-48)+48,2)"
        Range(Cells(1, X), Cells(28, X)).Value = Range(Cells(1, X), Cells(28, X)).Value
        If WorksheetFunction.Average(Range(Cells(1, X), Cells(28, X))) <> 49 Then GoTo 10
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Muhammet Okumuş]

Sn Korhan Bey,
Yazmış olduğunuz kod uzun sürebilir. Onun yerine bir tane sayısı gelebilecek sayı olarak çözmek daha kullanışlı olacaktır.

 

[muendiss]

Her ikinize de çok teşekkür ederim, elinize sağlık..

 

[Korhan Ayhan]

Muhammet Bey,

Elbetteki kodun hızlı çalışması için tek hücreye yönelmek avantajlıdır. Fakat işin içine koşullar girince durum değişiyor. Üyemiz mesajında ayrıca "virgülden sonra iki basamak olacak şekilde" ifadesinide kullanmış. Benim önerdiğim kodda bu koşul yok. Eğer bunu da eklersek çözüme ulaşmak için excel epey uğraşacaktır. Ben alternatif çözüm sundum. Üyelerimiz hangisini isterse onu kullanabilirler.