مجاميع كليه

[ابو اسامة العينبوسي]

السلام عليكم

اخواني هل ممكن داله او كود لجمع ( جميع خلايا A1) في جميع اوراق العمل 1 الى 256 في نفس المستند

مثال

sheet(1).A1= sum(A1 in sheet (2) + A1 in sheet (3) + A1 in sheet(4))

هذا طبعا مثال و ليس كود او داله

شكرا بعد ان ادرجت المشاركه و جدت الحل

=SUM('Sheet2:Sheet5'!A1)

تم تعديل أبريل 2, 2007 بواسطه ابو اسامة العينبوسي

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

و هذه طريقه اخرى لجمع قيم الخلايا A1 فى اوراق العمل من الورقه الثانيه الى اى عدد من اوراق العمل سواء حذفت أو أضفت ورقه عمل و وضع النتيجه فى الخليهA1 بالورقه الاولى

Sub mCount()
    Sheet1.Range("A1").ClearContents
    For i = 2 To Sheets.Count
        h = Sheets(i).Cells(1, 1)
        Sheet1.Range("A1") = Sheet1.Range("A1") + h
    Next
End Sub

مرفق ملف

السلام عليكم

Count.rar

[ابو اسامة العينبوسي]

السلام عليكم

مشكوور

و هذا ما اصبو اليه

اذا اضفت ورقه يتم احتساب خلاياها