توزيع مبلغ على هيئه فئات بمجرد كتابه المبلغ

[حسام مصطفي]

استاذتي الافاضل 

عذرا بدايه لعدم إرفاق ملف حيث انني بالعمل واحتاج هذه المعادله او الكود ضروري واكتب موضوعي على الهاتف 

=========

احتاج لان اقوم بكتابه ( مبلغ) في خليه 

ويتم توزيعها بشكل عشوائي على فئات العمله ليصبح الاجمالي سليم 

=======

مثال لذلك 

المبلغ المراد توزيعه ( ٣٤١٥٦) 

الفئات :

فئه ٢٠٠ x عدد ..... =...... 

فئه ١٠٠ xعدد ..... =...... 

فئه  ٥٠ xعدد ..... =...... 

فئه  ٢٠ x عدد ..... =...... 

فئه  ١٠ x عدد ..... =...... 

فئه   ٥ xعدد  ..... =...... 

فئه   ١ x عدد ..... =...... 

الاجمالي              = ٣٤١٥٦

في انتظار رد حضراتكم وعذرا ضروري 

خالص تحياتي 

 

 

[lionheart]

Here's a file

File.xlsx

[حسام مصطفي]

جزيل الشكر لسيادتكم 

بالفعل هذه هي الطريقه التي احتاجها ولكن عذرا يقوم الملف بوضع القيمه الأكبر من العدد في فئه ٢٠٠ ويضع في الباقي صفر او رقم ١ 

احتاج التعديل لان تصبح أرقام متفاوته كما في الصوره الأولى 

احتاجه كما في الصوره التانيه 

 

[lionheart]

Here's a nother file (Although there is no clear logic)

Note that the code sometimes may take some time

 

File.xlsm

[lionheart]

Here's another file by formulas only. Select any empty cell and press DELETE button from the keyboard to get different results

File.xlsx

[lionheart]

You can clear the coulmns D and column E and use the code to get the desired results

Sub Test()
    Const t As Double = 50
    With Range("E5")
        .Formula = "=C5*D5"
        .Offset(1).Resize(6).Formula = "=C6*D6+E5"
    End With
    With Range("D5")
        .Formula = "=RANDBETWEEN(1,INT(($A$1-SUM(C6:$C$11))/C5))"
        .Offset(1).Resize(4).Formula = "=RANDBETWEEN(1,INT(($A$1-SUM(C7:$C$11)-E5)/C6))"
        .Offset(5).Formula = "=RANDBETWEEN(IF($A$1-E9>" & t & "+(C10+C11),INT(($A$1-SUM(C11:$C$11)-E9-(" & t & "-C10))/C10),1),INT(($A$1-SUM(C11:$C$11)-E9)/C10))"
        .Offset(6).Formula = "=(A1-E10)/C11"
    End With
    With Range("D5:E11")
        .Value = .Value
    End With
End Sub