Belli özelliklere sahip random veri seti oluşturma

[onuroz1456]

Merhaba, ortalama, ortanca, basıklık, çarpıklık gibi özelliklerini kendim belirleyeceğim, rastgele veri seti oluşturmak istiyorum. Nasıl yapabilirim. Teşekkürler...
Örneğin; Ortanca değer, ortalama değerden büyük olacak
Çarpıklık pozitif olacak,
10 ile 100.000 arasında,
25.000 random veri

 

[Asri]

İstediğiniz işlem bunun gibi birşey ancak ben matematik işlemlerinden pek anlamam. Kırmızı alandaki hesaplamaların yapılması gerekiyor.

Denemeenfazla değeri de önemli, eğer her bir sayı üretilirken 25000 deneme yapıp hala kurallara uygun bir sayı bulunanamış ise işlemi yarıda keser. Sonsuz döngüye girmemesi için yazıldı.

Sub karistir()
   Application.ScreenUpdating = False
   ustsayi = 100000
   altsayi = 10
   adet = 25000
   denemeenfazla = 10000
   denemesay = 0
   adetsay = 0
   Range("C:C").Clear
   For i = 1 To adet
    denemesay = 0
basla:
     DoEvents
     Randomize
     sayi = Int((ustsayi - altsayi + 1) * Rnd + altsayi)
     denemesay = denemesay + 1
     If denemesay > denemeenfazla Then
        MsgBox ("En fazla deneme sayısı aşıldı. Kurallara uygun sayılar üretilemedi.")
        Exit For
     End If
     
[COLOR=Red]     'burayı siz hesapyalan formülü yazın
     ortancadeger = hesapla + 2
     'buraya siz ortalama hesaplayan formülü yazın
     ortalamadeger = hesapla + 1
     'buraya siz ortalama hesaplayan formülü yazın
     carpiklik = hesapla + 1[/COLOR]
     
     If ortancadeger > ortalamadeger And carpiklik >= 0 Then
       Cells(i, "A").Value = sayi
     Else
       GoTo basla
     End If
   Next i
   Application.ScreenUpdating = True
End Sub

 

[onuroz1456]

Asri, teşekkür ederim, ancak makro hata veriyor.

 

[Asri]

Asri, teşekkür ederim, ancak makro hata veriyor.

Bu mesajı şu şekilde yazsaydınız bir anlam ifade ederdi.;
Makro şu satırda hata veriyor, yada makro hata verdi ekran görüntüsü budur.