excelde belli aralıktaki sayıları nasıl dağılır ?

[semira_]

Excelde A1 den başlayıp F12 ye kadar olan kısıma rassal olarak (5-10) arasında düzgün dağılıma uyacak sekilde rassal sayı atamak istiyorum bunu nasıl yapabilirim , bana yardımcı olur musunuz ?

 

[ÖmerBey]

Düzgün dağılım derken kastettiğiniz şeyi tam anladım mı bilemiyorum ama aşağıdaki kodu deneyebilirsiniz.

Sub KOD()
Dim alan As Range, hcr As Range, sayı As Integer
Set alan = Range("A1:F12")
Randomize
alan.ClearContents
For Each hcr In alan
1
    sayı = Int(Rnd * 6) + 5
    If WorksheetFunction.CountIf(alan, sayı) < alan.Cells.Count / 6 Then
        hcr.Value = sayı
    Else
        GoTo 1
    End If
Next
End Sub

 

[ÖmerBey]

Formülle yapacaksanız aşağıdaki formülleri kullanabilirsiniz.

=RASTGELEARADA(5;10)

=NSAT(S_SAYI_ÜRET() * 6) + 5

 

[semira_]

düzgun dagılıma uygun olarak sayı uretmesını ıstıyorum bunu makro yazmadan yapmak istıyorum makroyla kafam karısır