جمع خلية محددة من كل الصفحات ماعدا صفحتين محددتين بالاسم

[أبو أنس حاجب]

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

أساتذتي الكرام حفظكم الله جميعاً

المطلوب حلين منفصلين أحدهما بالكود والأخر بالمعادلات (على أن لاتكون معادلة صفيف وبدون اعمدة مساعدة - ان امكن- أكسيل 2003).

الصفحتين المستثنيتين من العمل اسمهما Main و Total الصفحة الهدف للنتيجة (أي التي سوف تكون بها المعادلة ويعمل اليها الكود) هي Main والخلية الهدف هي I1 (ملونة بالاصفر) الخلية المطلوب جمعها من كل الصفحات باستثناء الصفحتين المذكورتين أعلاه هي G2 (أسماء الصفحات متغيرة دائماً وباستمرار وعددها متغير وأسمائها قد تحتوي على أعداد او تكون كلها أعداد او من كلمتين مركبتين وبينهما فراغ أو تحتوي على علامة - ).

أرجو التكرم بالحلين كي أجربهم كلاهما على ملفي الاصلي واخذ الذي لا يتعارض مع ما فيه من معادلات واكواد.

والله خير معين.

المرفق

جمع خلية من عدة صفحات.rar

أبو أنس

أرجو الاستفادة من هذا الكود الجميل اسفل للعلامة عبد الله باقشير حفظه الله

فقط وضعت معادلة تقريبية غير صحيحة (فقط كي اقرب الفكرة المطلوبة) وحددتها بعلامة التنصيص وهنالك اظن سيكون شرط عمل الكود.

Sub add()

Dim Sh As Worksheet

For Each Sh In ActiveWorkbook.Worksheets

Select Case Sh.Name

''''''''''''''''''''''''''''

Case "Main", "Totals"

'''''''''''''''''''''''

Case Else

'Sheets("Main").[i1] = Sh.Range("g2").value

End Select

Next

End Sub

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

[الـعيدروس]

السلام عليكم

تفضل جرب هذا التعديل

Private Const S_Ali As String = "$G$2"

Sub Sum_A()

Dim Sh As Worksheet

Dim A As Double

For Each Sh In ActiveWorkbook.Worksheets

Select Case Sh.Name

''''''''''''''''''''''''''''

Case "Main", "Totals"

'''''''''''''''''''''''

Case Else

A = A + Sh.Range(S_Ali).Value

End Select

Next

Sheets("Main").[I1] = A

End Sub

تم تعديل نوفمبر 8, 2012 بواسطه عباد

[أبو أنس حاجب]

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

ياسيدي وأستاذي الفاضل أبا نصار حفظكم الله

كفيت ووفيت جزاك الله كل الخير وجنبك كل الشكر

وتعجز الكلمات عن وصف مدى احترامي لكم جميعاً.

أبو أنس ناصر حاجب

[جمال عبد السميع]

أخي العزيز ( أبو أنس ) يمكن عمل ذلك أيضا عن طريق المعادلات

كالأتي:

[جمال عبد السميع]

أخي العزيز ( أبو أنس ) يمكن عمل ذلك أيضا عن طريق المعادلات

كالأتي:

جمع خلية محددة من كل الصفحات.rar

[جمال عبد السميع]

أخي العزيز ( أبو أنس ) يمكن عمل ذلك أيضا عن طريق المعادلات

كالأتي:

جمع خلية محددة من كل الصفحات.rar

[أبو أنس حاجب]

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

أستاذي وسيدي الشريف(عضو الشرف)/ محمد (أبا محمود) حفظكم الله

جزاك الله كل خير وجنبك كل الشر وبارك بك وفيك.

أبو أنس