جمع

[أ/حكيم]

الاخوة أعضاء المنتدى الأعزاء أرجو المساعدة في تحويل معادلة الجمع إلى كود وشكراً

جمع.zip

[أبو حنــــين]

استعمل هذا الماكرو

Sub total()

LR = Sheets("ورقة1").Cells(Rows.Count, "a").End(xlUp).Row

Sheets("ورقة1").Range("N12") = Application.WorksheetFunction.Sum(Sheets("ورقة1").Range("D7:D" & LR))

Sheets("ورقة1").Range("N13") = Application.WorksheetFunction.Sum(Sheets("ورقة1").Range("G7:G" & LR))

Sheets("ورقة1").Range("N14") = Application.WorksheetFunction.Sum(Sheets("ورقة1").Range("J7:J" & LR))

Sheets("ورقة1").Range("N15") = Application.WorksheetFunction.Subtotal(9, Sheets("ورقة1").Range("K7:K" & LR))

End Sub

تم تعديل ديسمبر 4, 2012 بواسطه أبو حنين

[أبو حنــــين]

الملف

جمع.rar

[الـعيدروس]

السلام عليكم

تفضل

Sub A_Sum()

Dim x As Double

Dim Rn As Range

For Each Rn In Range(Cells(7, 4), Cells(Cells(Rows.Count, 4).End(xlUp).Row, 4))

x = Val(Rn.Offset(0, -2)) + Val(Rn.Offset(0, -1))

xx = Val(Rn.Offset(0, 1)) + Val(Rn.Offset(0, 2))

xxx = Val(Rn.Offset(0, 4)) + Val(Rn.Offset(0, 5))

Rn.Value = x

Rn.Offset(0, 3) = xx

Rn.Offset(0, 6) = xxx

If WorksheetFunction.CountIf(Range(Cells(Rn.Row, 2), Cells(Rn.Row, 10)), "غ") > 0 Then _

Rn.Offset(0, 7) = "غائب" Else Rn.Offset(0, 7) = WorksheetFunction.Sum(Cells(Rn.Row, 4), _

Cells(Rn.Row, 7), Cells(Rn.Row, 10))

Next

End Sub

[أ/حكيم]

الاخوة الاعزاء شكراً على سرعة الرد المطلوب كما ورد في رد الأخ عباد ولكن عند حذف الجمع وتشغيل الكود لا يتم الجمع إلا في الصف الأول فقط ؟؟؟؟؟؟

تم تعديل ديسمبر 5, 2012 بواسطه أبو حكيم

[الـعيدروس]

السلام عليكم

الكود كان يأخذ اخر صف به بيانات من العمود 4 الذي هو "D"

استبدلنا 4 بـ 1 الذي هو عمود "A"

عندما حذفت خلايا العمود D اصبح اخر صف هو الصف السابع

لاكن عند الاعتماد على العمود A حيكون اخر صف يعتبر اخر صف للبيانات

اذا سيتم تنفيذ الكود لكل الاعمده الى اخر صف موازي للصف الاخير لعمود A

أرجو أن تكون أتضحت الصورة لديك

تفضل جرب المرفق

جمع_A.rar

[أ/حكيم]

شكراً أخي العزيز أتضحت الصورة والف شكر وبارك الله فيك