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

Sub Test()

    'متغير سنقوم باستخدامه لعمل حلقة تكرارية عبر الصفوف

    Dim r           As Long



    'متغير سنقوم باستخدامه لتخزين أسماء أوراق العمل من العمود الأول

    Dim s           As String



    'متغير لمعرفة آخر صف في العمود الثالث في الورقة الهدف

    Dim lr          As Long



    'إيقاف اهتزاز الشاشة أثناء تنفيذ الكود لتسريع الكود

    Application.ScreenUpdating = False



        'حلقة تكرارية بدايةً من الصف الثاني في ورقة العمل المسماة البيان وحتى آخر صف به بيانات

        For r = 2 To Sheet1.Cells(Rows.Count, 1).End(xlUp).Row

    

            'تخزين القيمة الموجودة في الخلية في متغير نصي

            s = CStr(Sheet1.Cells(r, 1))

    

            'جملة شرطية لاختبار ما إذا كانت ورقة العمل موجودة أو غير موجودة

            'فإذا كانت ورقة العمل موجود يتم تنفيذ الأسطر بين جملتي الشرط

            If Evaluate("ISREF('" & s & "'!A1)") Then

    

                'رقم آخر صف به بيانات في العمود الثالث في الورقة الهدف

                lr = Sheets(s).Columns(3).Find("*", , xlValues, , xlByRows, xlPrevious).Row

    

                'وضع قيمة آخر خلية في العمود الثالث في الورقة الهدف في العمود الثاني

                Sheet1.Cells(r, 2).Value = Sheets(s).Cells(lr, 3).Value

            End If

        Next r



    'إعادة خاصية اهتزاز الشاشة بعد تنفيذ الكود

    Application.ScreenUpdating = True

End Sub