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

إخواني في الله
في أحد الجروبات على الفيس بوك ، صادفت السؤال التالي
طريقة بالاكسل .. عايز بالصفحة الاولى بخلية معينة يجمعلي الخلية A2 بكل صفحات الملف

والأمر يمكن عمله بمنتهى السهولة باستخدام دالة معرفة ، وللدالة المعرفة سيكون هناك بارامتر واحد وهو الخلية المراد جمعها في كل أوراق العمل بالمصنف ، وفي الدالة المعرفة يتم عمل حلقة تكرارية لكل أوراق العمل بالمصنف وفي كل مرة ( أي مع كل ورقة عمل ) يتم جمع القيمة الموجودة في الخلية وهكذا إلى أن يتم تخزين القيمة النهائية لكل القيم

وأخيراً إليكم الدالة المعرفة ، مع كود لاختبار عمل الدالة

Sub Test_SumAcrossSheets_UDF()
    Debug.Print SumAcrossSheets(Range("A2"))
End Sub

Function SumAcrossSheets(rng As Range)
    Dim ws As Worksheet
    Application.Volatile True
    For Each ws In Worksheets
        SumAcrossSheets = SumAcrossSheets + Val(ws.Range(rng.Address))
    Next ws
End Function