Toplamı sabit rasgele sayılar

[mkozlum]

Arkadaşlar bir hücreye bir sayı değeri girmek istiyorum ve bu girdiğim değer başka 10 hücrenin toplamı olsun. Bu 10 hücreye de değerler rasgele atansın.
Yani kısaca toplamları sabit olan 10 hücreye rasgele değerler. atansın. Sabit olan toplamı da ben başka hücrede gireyim.

 

[alicimri]

Toplamı bulunacak sayıyı C1 hücresine yazın, ancak bu sayı 6 ya bölündüğünde 10 dan büyük olmalı.
İşlem uzun sürebilir, sıkılırsanız, Esc tuşuna basın

Sub makro()
dön:
Columns(1).Clear
i = 1
Do While i < 11
sayi = Application.RandBetween(1, Range("C1") \ 6)
If Application.CountIf(Columns(1), sayi) = 0 Then
Cells(i, 1).Value = sayi
i = i + 1
End If
Loop
If Application.Sum(Range("A1:A10")) <> Range("C1").Value Then GoTo dön
End Sub

 

[alicimri]

Yanlış olmuş C3 deki sayının 6 bölümü 10 dan değil, 55 den büyük olmalı

 

[mkozlum]

Amacım performans notu vermek ve 10 kriter var, toplamı 10 kritere rasgele dağıtmak. Mesela öğrenciye 70 verdim diyelim performans notu, kriterlerin altında bulunan hücrelere toplam 70 olacak şekilde dağıtmasını sağlamak. Yani C3 e en büyük 100 yazabilirim. Teşekkür ederim Ali Bey uğraştığınız için. Makro bilmiyorum ben, bu kodları nereye yazacağım?

 

[haliliyas]

Işin mantığını anlamadım! Öğrenci hakettiğinı değil de rastgele mi aliyor puanı?

 

[mkozlum]

yok 70 vereceğim ama kriterlere rasgele dağıtsın istiyorum. @haliliyas

 

[alicimri]

Ekteki dosyayı inceleyin

deneme1.xlsm dosyasını indir - download

deneme1.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[mkozlum]

teşekkür ederim