احتاج لطريقة جمع خلايا محددة بنطاق معين بين اوراق العمل

[سلطان العبدالله]

احتاج لطريقة جمع خلايا محددة بنطاق معين بين اوراق العمل

جمع خلايا محددة بنطاق بين اوراق العمل.zip

[خالد الرشيدى]

اخى الكريم

استخدم المعادلة التالية لاحتساب اجمالى الكمية

=SUMPRODUCT(SUM(INDIRECT("'"&$F$2:$H$2&"'!A2")))

ولاجمالى المبيعات

=SUMPRODUCT(SUM(INDIRECT("'"&$F$2:$H$2&"'!B2")))

   sum el rashedy.zip

 

 

تم تعديل سبتمبر 1, 2015 بواسطه خالد الرشيدى

[سلطان العبدالله]

الله يبيض وجهك اخوي خالد على الرد

لكن اللي احتاجه انا حقيقة انه النطاق يكون بين رقمين فقط

يعني لو وضعت الرقم من 1 الى 3 يجمع جميع القيم اللي في الخلية A1 مثلا في الصفحات 1 و 2 و 3

اوضح اكثر لو كان عندي 30 ورقة احتاج اني اضع رقمين فقط بين مثلا الصفحة 10 الى 20 يعطيني المجموع

اتمنى فهمت قصدي وشاكر ومقدر اهتمامك .

[ياسر خليل أبو البراء]

أخي الكريم جرب الكود التالي

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 بواسطه ياسر خليل أبو البراء

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

جرب هذا الملف

مجموغ صفحات.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

تقبلوا خالص تحياتى

[سلطان العبدالله]

أخي الكريم جرب الكود التالي

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

تقبلوا خالص تحياتى

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

[سلطان العبدالله]

اخى الكريم

وبعد اذن اساتذتى جزاهم الله خيراً

اليك المطلوب ضع صفحة البداية بالخلية 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 هل هناك اختلاف في المعادلة او الفواصل

[ياسر خليل أبو البراء]

أخي الكريم

جرب المعادلة التالية في الخلية A2

=SUM(N(INDIRECT("'"&ROW(INDIRECT($F$2&":"&$H$2))&"'!A2")))

المعادلة معادلة صفيف أي أنه يتم الضغط على Ctrl + Shift + Enter معاً بعد إدخال المعادلة

 

في الخلية المجاورة ضع نفس المعادلة وغير فقط A2 إلى B2 (ولا تنسى أنها معادلة صفيف)

[سلطان العبدالله]

أخي الكريم

جرب المعادلة التالية في الخلية A2

=SUM(N(INDIRECT("'"&ROW(INDIRECT($F$2&":"&$H$2))&"'!A2")))

المعادلة معادلة صفيف أي أنه يتم الضغط على Ctrl + Shift + Enter معاً بعد إدخال المعادلة

 

في الخلية المجاورة ضع نفس المعادلة وغير فقط A2 إلى B2 (ولا تنسى أنها معادلة صفيف)

lممتاز جدا استاذي ياسر الله يخليك ويجزاك خير