دالة جمع

[محمود محمود احمد]

السلام عليكم احبتي الكرام دالة جمع عندي شيت بة مكافاة للموظفين وبقوم بالجمع بدالة sum نقوم بالجمع الاسم الاول بيكون صح اقوم بنسخ الدالة الي الاسم الثاني بتجمع خطا لازم اقوم بعمل الدالة  من جديد وقوم بالجمع عاوز دالة جمع تقوم بجمع الصحيح لكل اسم اول مجمع وقوم بالنسخ تجمع صح لاي اسم اخر يعني مش عاوز اعمل الدالة لكل اسم لازم اكتب المعادلة ولكن اعمل نسخ وللصق تجمع المكافاة الخاصة بالاسم بارك الله فيكم وجعلة في ميزان حسناتكم وحشركم مع النبين والصدقين والشهداء انا وانتم انشاء الله ..................... امين يارب العالمين اليكم الشيت

دالة الجمع نسخ ولصق.xlsx

تم تعديل فبراير 19, 2019 بواسطه محمود محمود احمد

[بن علية حاجي]

السلام عليكم ورحمة الله

تم عمل المطلوب باستعمال الدالة SUMPRODUCT مع استعمال الرمز $ لتثبيت العمود أو السطر حسب الحالات (مهم جدا للعملية)... وتُنسخ المعادلات وتُلصق في السطر الذي يلي مباشرة الاسم الذي تريد حساب المجاميع له...

بن علية حاجي

دالة الجمع نسخ ولصق.xlsx

[محمود محمود احمد]

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

[محمود محمود احمد]

يارب احشر اعضاء ومشرفين منتدي اوفسينا مع النبين والشهداء واكتب لنا حج بيت الحرام ونصافحهم علي جبل عرفة امين يارب العالمين انهم صادقين الكلمة رائعين الصفة عطاء بلا حدود دون مجاملة بارك الله لكم وعليكم وسقاكم شربة ماء من حوض الكوثر امين يارب العالمين

تم تعديل فبراير 19, 2019 بواسطه محمود محمود احمد

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

بعد اذن أخي بن علية

هذا الماكرو يقوم بالعمل

Option Explicit

Sub salim_sum()
If ActiveSheet.Name <> "ورقة1" Then Exit Sub
Dim lar%: lar = Cells(Rows.Count, 1).End(3).Row
Dim i%, k%: k = 2
Dim arr()
ReDim Preserve arr(1 To 1): arr(1) = 2
 For i = 1 To lar + 1
  If Cells(i, 1) = vbNullString Then
   ReDim Preserve arr(1 To k): arr(k) = Cells(i, 1).Row
   k = k + 1
   Dim x, y
   End If
  Next
For i = LBound(arr) To UBound(arr) - 1
 If i = 1 Then
 x = arr(i + 1) - 1: y = arr(i)
 Else
 x = arr(i + 1) - 1: y = arr(i) + 1
 End If
 Cells(arr(i + 1), 3).Formula = "=SUM(C" & y & ":C" & x & ")"
 Cells(arr(i + 1), 3).AutoFill Cells(arr(i + 1), 3).Resize(1, 10)
 Cells(arr(i + 1), 3).Resize(1, 10).Value = _
 Cells(arr(i + 1), 3).Resize(1, 10).Value
Next
End Sub

الملف مرفق

salim_summation .xlsm

[محمود محمود احمد]

اخي الكريم بارك الله فيك بخدها نسخ وعملها لصق بيكون الجمع خطا لانها لا تغير رقم العمود هو هو ارقام العمود الاول

بتديني مكافاة العمود الاول مفيش تغير للاسم الثاني

الزي اخي سليم استخدم الكود معلش ممكن تقلي الزي اطبق الكود بارك الله فيك

[بن علية حاجي]

السلام عليكم ورحمة الله

24 دقائق مضت, محمود محمود احمد said:

اخي الكريم بارك الله فيك بخدها نسخ وعملها لصق بيكون الجمع خطا لانها لا تغير رقم العمود هو هو ارقام العمود الاول

بتديني مكافاة العمود الاول مفيش تغير للاسم الثاني

الزي اخي سليم استخدم الكود معلش ممكن تقلي الزي اطبق الكود بارك الله فيك

المعادلات التي وضعتها تقوم بالمجاميع في كل الأعمدة حسب كل اسم بداية من الصف 2 (بداية الجدول)... إذا كان الاسم في 7 صفوف المعادلات تجمع الصفوف السبعة التي تحوي هذا الاسم، وإذا كان الاسم في 3 صفوف فهي تجمع قيم هذه الصفوف وهكذا... ولا يهم تمدد نطاقات هذه المجاميع باعتبار ان المعادلات تجمع حسب كل اسم... راقب مجاميع كل عمود لكل اسم وستجد أن هذه المجاميع لا تخص إلا الصفوف التي تحوي هذا الاسم... والله اعلم

وقد قمت آنفا بنسخ ولصق هذه المعادلات في الصفوف التي وضعتَها لهذه المجاميع (أسفل كل اسم)...

بن علية حاجي 

[محمود محمود احمد]

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

الملف الاصلي دالة الجمع.xlsx

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

[بن علية حاجي]

السلام عليكم ورحمة الله

تم تطبيق المعادلات في الملف الأصلي... 

بن علية حاجي 

الملف الاصلي دالة الجمع.xlsx

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

2 ساعات مضت, محمود محمود احمد said:

اخي الكريم بارك الله فيك بخدها نسخ وعملها لصق بيكون الجمع خطا لانها لا تغير رقم العمود هو هو ارقام العمود الاول

بتديني مكافاة العمود الاول مفيش تغير للاسم الثاني

الزي اخي سليم استخدم الكود معلش ممكن تقلي الزي اطبق الكود بارك الله فيك

اضغط فقط على الزر الاحمر في الورقة

[محمود محمود احمد]

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