السلام عليكم احبتى واخوانى الكرام اود اليوم توضيح كيفية عمل تجميع لقيم عمود به عدة خلايا وكل
خلية بها ارقام عديدة على
اكثر من سطر
وصراحة انا مش عارف هل تم عرض هذا الموضوع من قبل هنا ام لا ؟
واذا قد تم عرضه من قبل فرجاءا بعد اذن اساتذتنا المشرفين الهمام وضع الرابط الموجود سابقا هنا فى هذا الموضوع ايضا أو نقل هذا للرابط القديم لكى تعم الإفادة وتسهيل عملية البحث مستقبلا وبارك الله فيكم جميعا جهود ممتازة لكل القائمين على هذا المنتدى الكريم وفقكم الله جميعا وسدد خطاكم
والأن وقت الشرح :
فاذا كان لدينا مثلا عمود به مبالغ وارقام نريد معرفة مجموع هذه الأرقام -ولكن بالطريقى العادية لا يمكن ذلك
وذلك لأن كما تلاحظ ان كل خلية من خلايا هذا العمود تحتوى وتتضمن اكثر من رقم على اكثر من سطر
ولكن قد يتم هذا بدالة معرفة تسمى
SumCells ,وهذا هو كود الدالة الذى سيوضع فى مديول جديد
Function SumCells(Rng As Range)
Application.Volatile
Dim Cell As Range
On Error Resume Next
For Each Cell In Rng.Cells
SumCells = SumCells + Evaluate(Replace(Replace(Cell.Text, vbLf, "+"), "$", vbNullString))
Next Cell
End Function
وعليك بعد ذلك بوضع هذه المعادلة فى الخلية المفروض ايجاد مجموع الأرقام بها وهى
وتفضلوا هذا هو الملف
بارك الله فيكم جميعا ووسع الله فى أرزاقكم وزادكم من فضله وكرمه لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب م | المبلغ | 1 | 1700
400 | 2 | 1300
500
100 | 3 | 1700
400 | 4 | 1500
100 | 5 | 500
500
500
500 | 6 | 1300
300
300 | 7 | 1500
100 | | |