توليد ارقام عشوائية

[زهرة122]

السلام عليكم اساتذتى الكرام ... أرجو التكرم والتعطف على مساعدتى فى الأتى :

هل يمكن توليد ارقم عشوائية فى الخلايا a3 b3 c3 d3 لتساوى مجموعها المجموع فى الخلية e3

8888888.xlsx

[سليم حاصبيا]

جربي هذا الملف

كلما نريدين مجموعة اضغطي عل الزر Run

code

Option Explicit

Sub Arkam_3ashwa3iat()
Dim Formule$
 Range("A3:C6").Formula = _
 "=RANDBETWEEN(1,$E3/3)"

 Range("A3:C6").Value = _
 Range("A3:C6").Value

 Formule = "=IF(SUM($A3:$C3)>$E3,SUM($A3:$C3)-E3,"
 Formule = Formule & "IF(SUM($A3:$C3)<"
 Formule = Formule & "$E3,$E3-SUM($A3:$C3),0))"
 
 Range("D3").Resize(4).Formula = Formule

 Range("D3").Resize(4).Value = _
 Range("D3").Resize(4).Value
End Sub

Zahra.xlsm

[زهرة122]

 جميل جزاكم الله خيرا استاذنا وربنا يعطيك الصحة والعافية