تجميع الأرقام من عمود في آخر الجدول (العمود)

[Ghoneim 82]

السلام عليكم 
يارب يكون الجميع بأفضل حال إن شاء الله 
لو سمحتوا ياشباب عندى ملف في الاكسل مكتوب فيه ارقام (مبالغ) والارقام دى مكتوبة علي سطرين في نفس الخلية 

المطلوب مني تجميع الارقام دى في اخر الجدول

جيت اجمعها بالطريقة العادية بيجمع اخر رقمين فقط ..إيه الحل 

زى ماهو موجود في الصورة 

[أحمد يوسف]

أهلا بك اخ كريم فى المنتدى

عليك برفع الملف نفسه وليس صورة منه

بارك الله فيك

[Ghoneim 82]

تفضل اخي 

تجربة.xlsx

[Ali Mohamed Ali]

تفضل أخى الكريم

 

تجربة.xlsm

[Emad Sabry]

ممكن تستخدم الكود دا فى مديول 

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(D4:D10)

 

 

تجربة.xlsm

تم تعديل نوفمبر 25, 2018 بواسطه Emad Sabry

[Ghoneim 82]

اخي العزيز محمد 
بجد اشكرك علي مجهودك المحترم 

بس طريقتك إنك تجمع برا بدالة ويتم تجميعهم في مكان تاني 

مافيش حاجة مباشرة غير الطريقة دى ؟؟؟

 

بجد شاكر جدا لتعبك معايا 

 

[Ali Mohamed Ali]

يمكنك بذلك استخدام ملف الأستاذ عماد بارك الله فيه

 

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

جرب هذا الكود

Option Explicit

Sub Give_sum()
Dim My_val
Dim i%, s, t#
Dim x%: x = Cells(Rows.Count, "d").End(3).Row
 For i = 4 To x
 
  My_val = Split(Range("D" & i), vbLf)
  My_val = Join(My_val, "+")
  On Error Resume Next
    s = Evaluate(My_val)
  If Err.Number <> 0 Then s = 0
  If s = 0 Then
    Range("D" & i).Offset(, -1) = "Text"
  Else
    Range("D" & i).Offset(, -1) = s
  End If
   t = t + s
  Next
 Range("c" & x + 1) = t
End Sub

الملف مرفق

_salimتجربة.xlsm

[جمعة العوامي]

استفدت كثيرا من مواضيع هذا الموقع .. بارك الله فيكم ولكم ...