أبو وليد قام بنشر يناير 27, 2015 مشاركة قام بنشر يناير 27, 2015 السلام عليكم ورحمة الله وبركاته صباح الخير لدي ملف به مجموعة من الاوراق واريد تطبيق معادله في عمود C لتك الاوراق مره واحده فهل يوجد طريقة لذلكك الشرح مضاف في المرفق Microsoft Office Excel Worksheet جديد.rar رابط هذا التعليق شارك More sharing options...
طارق_نادر قام بنشر يناير 28, 2015 مشاركة قام بنشر يناير 28, 2015 تفضل اخي المرفق اظنه المطلوب بدون اكواد Microsoft Office Excel Worksheet جديد.rar رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر يناير 28, 2015 الكاتب مشاركة قام بنشر يناير 28, 2015 الف شكرا لك ولكن ليس هذا مااقصد اريد تنفيد معادلة في عمود تنفذ في كل صفحة على حده ابغى ماكرو يقوم بإضافة المكعادلة في عمود محدد لكل الصفحات مره واحده اختصارا للوقت رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر يناير 28, 2015 الكاتب مشاركة قام بنشر يناير 28, 2015 الحمد لله سبحان الله رابط هذا التعليق شارك More sharing options...
طارق_نادر قام بنشر يناير 28, 2015 مشاركة قام بنشر يناير 28, 2015 ماهي المعادلة ممكن توضح اخي الكريم رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر يناير 28, 2015 الكاتب مشاركة قام بنشر يناير 28, 2015 لنفرض العمود c المعادلة C=A+B شاكر لك تجاوبك رابط هذا التعليق شارك More sharing options...
GasserReda قام بنشر يناير 28, 2015 مشاركة قام بنشر يناير 28, 2015 جرب هذا الكود 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 رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر يناير 28, 2015 الكاتب مشاركة قام بنشر يناير 28, 2015 جرب هذا الكود 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 بارك الله فيك اخي ممكن شرح للكود لان الملف المرفق للشرح فقط رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر يناير 28, 2015 الكاتب مشاركة قام بنشر يناير 28, 2015 جرب هذا الكود 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 وهل تنفذ على كامل الشريط رابط هذا التعليق شارك More sharing options...
GasserReda قام بنشر يناير 28, 2015 مشاركة قام بنشر يناير 28, 2015 If sh.Name <> "ورقة1" And sh.Name <> "أي ورقة" Then يمكنك التغيير في هذا السطر وزيادة عدد الأوراق التي تريد عدم تطبيق الكود بها ، كلمة أي ورقة مثال فقط استبدلها باسم الورقة التي تريد عدم تطبيق الكود بها ما المقصود بكلمة كامل الشريط رابط هذا التعليق شارك More sharing options...
أبو وليد قام بنشر يناير 28, 2015 الكاتب مشاركة قام بنشر يناير 28, 2015 بارك الله فيك وكثر من أمثالك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.