تجميع أكثر من رقم فى خلية واحدة مكونة من عدة سطور

السلام عليكم احبتى واخوانى الكرام اود اليوم توضيح كيفية عمل تجميع لقيم عمود به عدة خلايا وكل خلية بها ارقام عديدة على اكثر من سطر
وصراحة انا مش عارف هل تم عرض هذا الموضوع من قبل هنا ام لا ؟
واذا قد تم عرضه من قبل فرجاءا بعد اذن اساتذتنا المشرفين الهمام وضع الرابط الموجود سابقا هنا فى هذا الموضوع ايضا أو نقل هذا للرابط القديم  لكى تعم الإفادة وتسهيل عملية البحث مستقبلا وبارك الله فيكم جميعا جهود ممتازة لكل القائمين على هذا المنتدى الكريم وفقكم الله جميعا وسدد خطاكم
والأن وقت الشرح :
فاذا كان لدينا مثلا عمود به مبالغ وارقام نريد معرفة مجموع هذه الأرقام -ولكن بالطريقى العادية لا يمكن ذلك 
وذلك لأن كما تلاحظ ان كل خلية من خلايا هذا العمود تحتوى وتتضمن اكثر من رقم على اكثر من سطر

ولكن قد يتم هذا بدالة معرفة تسمى 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

وعليك بعد ذلك بوضع  هذه المعادلة  فى الخلية المفروض ايجاد مجموع الأرقام بها وهى

=SumCells(D2:D8)

وتفضلوا هذا هو الملف 
بارك الله فيكم جميعا ووسع الله فى أرزاقكم وزادكم من فضله وكرمه
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


​

م المبلغ  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