تطبيق معادلة في عمود لمجموعة صفحات

[أبو وليد]

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

Microsoft Office Excel Worksheet جديد.rar

[طارق_نادر]

تفضل اخي المرفق اظنه المطلوب بدون اكواد

Microsoft Office Excel Worksheet جديد.rar

[أبو وليد]

الف شكرا لك

 

ولكن ليس هذا مااقصد اريد تنفيد معادلة في عمود تنفذ في كل صفحة على حده

 

ابغى ماكرو يقوم بإضافة المكعادلة في عمود محدد لكل الصفحات مره واحده اختصارا للوقت

[أبو وليد]

الحمد لله سبحان الله

[طارق_نادر]

ماهي المعادلة ممكن توضح اخي الكريم

[أبو وليد]

لنفرض العمود c

 

المعادلة

C=A+B

 

شاكر لك تجاوبك

[GasserReda]

جرب هذا الكود

Sub sumall()
    Dim lastr As Long
    Dim sh As Worksheet
    For Each sh In Worksheets
        If sh.Name <> "ورقة1" Then
            lastr = sh.Cells(Rows.Count, 1).End(xlUp).Row
            With sh.Range("C1:C" & lastr)
                .Formula = "=SUM(A1:B1)"
            End With
        End If
    Next sh
End Sub

[أبو وليد]

 

جرب هذا الكود

Sub sumall()
    Dim lastr As Long
    Dim sh As Worksheet
    For Each sh In Worksheets
        If sh.Name <> "ورقة1" Then
            lastr = sh.Cells(Rows.Count, 1).End(xlUp).Row
            With sh.Range("C1:C" & lastr)
                .Formula = "=SUM(A1:B1)"
            End With
        End If
    Next sh
End Sub

بارك الله فيك

 

اخي ممكن شرح للكود

لان الملف المرفق للشرح فقط

[أبو وليد]

 

 

جرب هذا الكود

Sub sumall()
    Dim lastr As Long
    Dim sh As Worksheet
    For Each sh In Worksheets
        If sh.Name <> "ورقة1" Then
            lastr = sh.Cells(Rows.Count, 1).End(xlUp).Row
            With sh.Range("C1:C" & lastr)
                .Formula = "=SUM(A1:B1)"
            End With
        End If
    Next sh
End Sub

بارك الله فيك

 

اخي ممكن شرح للكود

لان الملف المرفق للشرح فقط

 

بارك الله فيك فهمت الكثير من الكود

 

استفسار لو عندي غير ورقة1 لا أرغب في إضافة المعادلة لها

 

لو كتبت المعادلة كما في شريط الصيغ

=A+B

وهل تنفذ على كامل الشريط

[GasserReda]

If sh.Name <> "ورقة1" And sh.Name <> "أي ورقة" Then

يمكنك التغيير في هذا السطر وزيادة عدد الأوراق التي تريد عدم تطبيق الكود بها ، كلمة أي ورقة مثال فقط استبدلها باسم الورقة التي تريد عدم تطبيق الكود بها

ما المقصود بكلمة كامل الشريط

[أبو وليد]

بارك الله فيك

 

وكثر من أمثالك