سلطان العبدالله قام بنشر سبتمبر 1, 2015 مشاركة قام بنشر سبتمبر 1, 2015 احتاج لطريقة جمع خلايا محددة بنطاق معين بين اوراق العمل جمع خلايا محددة بنطاق بين اوراق العمل.zip رابط هذا التعليق شارك More sharing options...
خالد الرشيدى قام بنشر سبتمبر 1, 2015 مشاركة قام بنشر سبتمبر 1, 2015 (معدل) اخى الكريم استخدم المعادلة التالية لاحتساب اجمالى الكمية =SUMPRODUCT(SUM(INDIRECT("'"&$F$2:$H$2&"'!A2"))) ولاجمالى المبيعات =SUMPRODUCT(SUM(INDIRECT("'"&$F$2:$H$2&"'!B2"))) sum el rashedy.zip تم تعديل سبتمبر 1, 2015 بواسطه خالد الرشيدى 1 رابط هذا التعليق شارك More sharing options...
سلطان العبدالله قام بنشر سبتمبر 1, 2015 الكاتب مشاركة قام بنشر سبتمبر 1, 2015 الله يبيض وجهك اخوي خالد على الرد لكن اللي احتاجه انا حقيقة انه النطاق يكون بين رقمين فقط يعني لو وضعت الرقم من 1 الى 3 يجمع جميع القيم اللي في الخلية A1 مثلا في الصفحات 1 و 2 و 3 اوضح اكثر لو كان عندي 30 ورقة احتاج اني اضع رقمين فقط بين مثلا الصفحة 10 الى 20 يعطيني المجموع اتمنى فهمت قصدي وشاكر ومقدر اهتمامك . رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر سبتمبر 1, 2015 مشاركة قام بنشر سبتمبر 1, 2015 (معدل) أخي الكريم جرب الكود التالي Sub SUMSpecificSheets() Dim I As Long, Counter1 As Double, Counter2 As Double Dim lStart As Long, lEnd As Long If Not IsNumeric(Range("F2")) Or Not IsNumeric(Range("H2")) Or IsEmpty(Range("F2")) Or IsEmpty(Range("H2")) Then MsgBox "Invalid Input", 64: Exit Sub Application.ScreenUpdating = False With Sheets("total") .Range("A2:B2").ClearContents lStart = Application.Min(.Range("F2"), .Range("H2")) lEnd = Application.Max(.Range("F2"), .Range("H2")) For I = lStart To lEnd If Evaluate("=ISREF('" & I & "'!A1)") Then Counter1 = Application.Sum(Counter1, Sheets(I).Range("A2")) Counter2 = Application.Sum(Counter2, Sheets(I).Range("B2")) .Range("A2") = Counter1: .Range("B2") = Counter2 Else MsgBox "The Sheet " & I & " Is Not Existed", 64 End If Next I End With Application.ScreenUpdating = True End Sub تم تعديل سبتمبر 1, 2015 بواسطه ياسر خليل أبو البراء 3 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 1, 2015 مشاركة قام بنشر سبتمبر 1, 2015 جرب هذا الملف مجموغ صفحات.zip 2 رابط هذا التعليق شارك More sharing options...
خالد الرشيدى قام بنشر سبتمبر 1, 2015 مشاركة قام بنشر سبتمبر 1, 2015 اخى الكريم وبعد اذن اساتذتى جزاهم الله خيراً اليك المطلوب ضع صفحة البداية بالخلية F2 وصفحة النهاية ب H2 (يمكن تغيير تلك الخلايا طبعاً ) ولاحظ النتائج لجمع الكمية =SUMPRODUCT(SUM(INDIRECT("'"&ROW(INDIRECT($F$2&":"&$H$2))&"'!A2"))) لجمع المبيعات =SUMPRODUCT(SUM(INDIRECT("'"&ROW(INDIRECT($F$2&":"&$H$2))&"'!B2"))) sum el rashedy_2.zip تقبلوا خالص تحياتى 1 رابط هذا التعليق شارك More sharing options...
سلطان العبدالله قام بنشر سبتمبر 1, 2015 الكاتب مشاركة قام بنشر سبتمبر 1, 2015 أخي الكريم جرب الكود التالي Sub SUMSpecificSheets() Dim I As Long, Counter1 As Double, Counter2 As Double Dim lStart As Long, lEnd As Long If Not IsNumeric(Range("F2")) Or Not IsNumeric(Range("H2")) Or IsEmpty(Range("F2")) Or IsEmpty(Range("H2")) Then MsgBox "Invalid Input", 64: Exit Sub Application.ScreenUpdating = False With Sheets("total") .Range("A2:B2").ClearContents lStart = Application.Min(.Range("F2"), .Range("H2")) lEnd = Application.Max(.Range("F2"), .Range("H2")) For I = lStart To lEnd If Evaluate("=ISREF('" & I & "'!A1)") Then Counter1 = Application.Sum(Counter1, Sheets(I).Range("A2")) Counter2 = Application.Sum(Counter2, Sheets(I).Range("B2")) .Range("A2") = Counter1: .Range("B2") = Counter2 Else MsgBox "The Sheet " & I & " Is Not Existed", 64 End If Next I End With Application.ScreenUpdating = True End Sub الله يعطيك العافية استاذي ياسر شاكر ومقدر اهتمامك ولكني حبيتها معادلة فقط الله يخليك جرب هذا الملف مجموغ صفحات.zip الله يخليك استاذي سليم شاكر ومقدر اهتمامك ممتاز جدا طريقة الملف ولكني افضل المعادلة لاني سوف استخدمها لاكثر من خليه اخى الكريم وبعد اذن اساتذتى جزاهم الله خيراً اليك المطلوب ضع صفحة البداية بالخلية F2 وصفحة النهاية ب H2 (يمكن تغيير تلك الخلايا طبعاً ) ولاحظ النتائج لجمع الكمية =SUMPRODUCT(SUM(INDIRECT("'"&ROW(INDIRECT($F$2&":"&$H$2))&"'!A2"))) لجمع المبيعات =SUMPRODUCT(SUM(INDIRECT("'"&ROW(INDIRECT($F$2&":"&$H$2))&"'!B2"))) sum el rashedy_2.zip تقبلوا خالص تحياتى استاذي خالد شاكر ومقدر اهتمامك وسرعة استجابتك فعلا هذا هو المطلوب بيض الله وجهك رابط هذا التعليق شارك More sharing options...
سلطان العبدالله قام بنشر سبتمبر 2, 2015 الكاتب مشاركة قام بنشر سبتمبر 2, 2015 اخى الكريم وبعد اذن اساتذتى جزاهم الله خيراً اليك المطلوب ضع صفحة البداية بالخلية F2 وصفحة النهاية ب H2 (يمكن تغيير تلك الخلايا طبعاً ) ولاحظ النتائج لجمع الكمية =SUMPRODUCT(SUM(INDIRECT("'"&ROW(INDIRECT($F$2&":"&$H$2))&"'!A2"))) لجمع المبيعات =SUMPRODUCT(SUM(INDIRECT("'"&ROW(INDIRECT($F$2&":"&$H$2))&"'!B2"))) sum el rashedy_2.zip تقبلوا خالص تحياتى صباح الخير للجميع .. الحقيقة لا اعلم سبب ان المعادلة تعمل على اكسل 2010 و 2013 ولا تعمل على 2007 هل هناك اختلاف في المعادلة او الفواصل رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر سبتمبر 2, 2015 مشاركة قام بنشر سبتمبر 2, 2015 أخي الكريم جرب المعادلة التالية في الخلية A2 =SUM(N(INDIRECT("'"&ROW(INDIRECT($F$2&":"&$H$2))&"'!A2"))) المعادلة معادلة صفيف أي أنه يتم الضغط على Ctrl + Shift + Enter معاً بعد إدخال المعادلة في الخلية المجاورة ضع نفس المعادلة وغير فقط A2 إلى B2 (ولا تنسى أنها معادلة صفيف) رابط هذا التعليق شارك More sharing options...
سلطان العبدالله قام بنشر سبتمبر 2, 2015 الكاتب مشاركة قام بنشر سبتمبر 2, 2015 أخي الكريم جرب المعادلة التالية في الخلية A2 =SUM(N(INDIRECT("'"&ROW(INDIRECT($F$2&":"&$H$2))&"'!A2"))) المعادلة معادلة صفيف أي أنه يتم الضغط على Ctrl + Shift + Enter معاً بعد إدخال المعادلة في الخلية المجاورة ضع نفس المعادلة وغير فقط A2 إلى B2 (ولا تنسى أنها معادلة صفيف) lممتاز جدا استاذي ياسر الله يخليك ويجزاك خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان