Bir hücredeki sayıyı diğer hücrelere dağıtma

[mehmetaltin]

Arkadaşlar mesela A11 hücresine yazdığım sayıyı A1-A10 arasındaki 10 hücreye en büyüğü 10 olacak şekilde rastgele olarak ve her seferinde değişen nasıl dağıtabilirim?

 

[mehmetaltin]

Aşağı yuvarlandı,yukarı yuvarlandı ile yaptım ama her sayıda doğru dağıtıyor,ayrıca rastgele dagitmiyor

 

[Merhum İdris SERDAR]

.

Buradaki dosyayı inceleyin.


http://www.excelgurusu.com/toplami-olusturan-sayilari-bulmak/


.

 

[mehmetaltin]

İdris hocam ekte verdiğim dosyanızda dağılımı 10'a çıkarınca sayı toplamları tutmuyor,nasıl düzeltebilirim acaba...Birde her hücredeki sayı en fazla 10 olmalı...

 

[mehmetaltin]

İdris hocam zahmet olmazsa dağılımı 10'a çıkarıp her hücrede en fazla 10 gelecek şekilde ayarlayabilir misiniz lütfen!

 

[Muhammet Okumuş]

Merhaba,

Sub Dağıt()
Range("A1:A10") = 10
5
If WorksheetFunction.Sum(Range("A1:A10")) = Range("A11") Then Exit Sub
10
a = WorksheetFunction.RandBetween(1, 10)
If Cells(a, 1) = 0 Then GoTo 10
Cells(a, 1) = Cells(a, 1) - 1
GoTo 5
End Sub

Kodu deneyiniz.

 

[Muhammet Okumuş]

Homojene yakın dağılım için şart eklenebilir.

 

[mehmetaltin]

Hocam yukarıdaki verdiğim dosyada bunu formülle yapabilir miyiz?

 

[Muhammet Okumuş]

Formül ile tam sayı şeklinde sürekli değişen bir dağıtımı ben yapamam.