Toplamı sabit olan rastgele sayılar

[akaytay]

Değerli arkadaşlar, toplamları sabit örneğin benim problemim için 40 olan, 2, 3 veya 4 tane rastgele sayı üretecek bir makro konusunda yardımcı olabililir misiniz? Örnek vermek gerekirse makro çıktı olarak aşağıdaki satırlardan birini verecek veya belli sayıdaki satırı dolduracak bu şekilde;

18 - 27

veya

8 - 27 - 5

veya

3 - 8 - 17 - 12

 

[leumruk]

Merhaba,
Aşağıdaki örneği inceleyiniz:

Sub Toplam()
Döngü:
[a1:a4].ClearContents
Sat = 1
Randomize
For x = 1 To 4
Tekrar:
sayi = Int(Rnd * 39) + 1
If WorksheetFunction.CountIf(Range("a1:a" & [a65536].End(3).Row), sayi) > 0 Then GoTo Tekrar
Cells(Sat, "a") = sayi
Sat = Sat + 1
If WorksheetFunction.Sum([a1:a4]) = 40 Then Exit Sub
Next
If WorksheetFunction.Sum([a1:a4]) <> 40 Then GoTo Döngü
End Sub

 

[akaytay]

sayın leumruk, çok teşekkürler, gerçekten çok yardımcı oldun, eline sağlık.