Toplamları Sabit Rastgele 10 Sayı

[mrwarrior]

Sorum biraz karışık.

1şart: Toplamlarını ben vereceğim.(0 ile 100 arası)
2.sart. bilgisayar 10 sayı seçecek.
3. sart: bu sayıların her biri 0-10 arası olacak.


Mesela örnek vermem gerekirse.

70 yazdığımda bilgisayar bazen 7-7-7-7-7-7-7-7-7-7
bazen 8-7-6-3-9-6-7-9-6-6 şeklinde bana 10 sayı verecek.

Tabii bu her sayı için geçerli olmasını istiyorum

Şimdiden teşekkür ederim hepinize....

 

[Muhammet Okumuş]

Merhaba, dosyayı deneyiniz.

Sub Sırala()
Application.ScreenUpdating = False
Randomize
Range("B4:K4") = Range("A2").Value
Do Until WorksheetFunction.Sum(Range("B4:K4")) = Range("A1")
10
a = Int(Rnd() * 10 + 1)
If Cells(4, a + 1) = 0 Then GoTo 10
Cells(4, a + 1) = Cells(4, a + 1) - 1
Loop
End Sub

 

[mrwarrior]

Kardeş çok teşekkür ederim. Tam istediğim gibi. Ama ben bunu biraz daha geliştirmeni istesem çok mu şey istemiş olurum?

Şu şekilde istiyorum.

Ben öğretmenim. Sözlü notu veriyorum. çocuklara 100 üzerinden not veriyorum. Ama MEB bize bunları hangi şartlarda verdiğimi söylememi istiyor. Yani senin anlayacağın bunu aynı anda 30 kişinin sözlü notlarını vererek hepsini aynı anda rastgele 10 çeşit puan vermesini istiyorum. Şimdiden çok teşekkür ederim

 

[Muhammet Okumuş]

Merhaba,
Dosyayı inceleyiniz.

 

[Muhammet Okumuş]

Merhaba,
Bu dosyada maksimum ve minumum ölçütler ile sayı aralığı eklenmiştir.