محي الدين ابو البشر قام بنشر يناير 18, 2015 قام بنشر يناير 18, 2015 (معدل) في البداية هذه اول مرة اشارك في هذا المنتدى الراقي فعلا والقائمين عليه أناس رائعين وقلوبهم دافئة يذهلني سرعة دودهم وصبرهم وسعة صدرهم على المبتدئين أمثالي عندي الملكرو التالي ولكن كما هو واضح انه غير عملي مع أنه يعمل بشكل او باخر مع وجود خطأ ما المشكلة عند وضع معادلة الجمع ضمن الماكرو لم استطع أ، اجد اي وسيلة لادخال متغير ضمن المعادلة او ضمن حلقة for next loop Sub sumpages() Pages = InputBox("عدد الصفحات", "جمع الصفحات") P = Pages For i = 26 To 34 * P Step 34 Application.Calculation = xlCalculationManual Range("F" & i).Select ActiveCell.FormulaR1C1 = "=SUM(R[-20]C:R[-1]C)" Next i Range("f" & P * 34 - 7).Select ActiveCell.FormulaR1C1 = "=R[-1]C+R[-35]C+R[-69]C+R[-103]C+R[-137]C+R[-171]C+R[-205]C+R[-239]C+R[-273]C+R[-307]C+R[-341]C+R[-375]C+R[-409]C+R[-443]C+R[-477]C+R[-511]C+R[-545]C+R[-579]C+R[-613]C+R[-647]C+R[-681]C+R[-715]C+R[-749]C+R[-783]C+R[-817]C+R[-851]C+R[-885]C+R[-919]C+R[-953]C+R[-987]C+R[-1021]C+R[-1055]C+R[-1089]C+R[-1123]C+R[-1157]C+R[-1191]C+R[-1225]C+R[-1259]C+R[-1293]C+R[-1327]C+R[-1361]C+R[-1395]C+R[-1429]C+R[-1463]C+R[-1497]C+R[-1531]C+R[-1565]C+R[-1599]C+R[-1633]C+R[-1667]C" Application.Calculation = xlCalculationAutomatic End Sub هل هناك طريقة لاختصار الجزء الأحمر في هذا الماكرو وبشكل عام كيف يمكننا استخدام متغير لأو متغيرات في هذه الحالة عدد الصفحات المراد جمع مجموعها اشكركم في جميع الأحوال فقد استفدت منكم الكثير الكثير تم تعديل يناير 18, 2015 بواسطه mohadin
محي الدين ابو البشر قام بنشر يناير 18, 2015 الكاتب قام بنشر يناير 18, 2015 (معدل) Sub sum تم تعديل يناير 18, 2015 بواسطه mohadin
ياسر خليل أبو البراء قام بنشر يناير 18, 2015 قام بنشر يناير 18, 2015 أخي الفاضل منور المنتدى بين إخوانك بالنسبة لوضع الكود يرجى وضعه بين علامتي الكود <> ، حتى يظهر الكود بشكل يمكن التعامل معه هكذا بين الأقواس يظهر النص أمر آخر وارجو ألا تنزعج ارفق ملف به نموذج مبسط للمطلوب حتى يسهل مساعدتك تقبل تحياتي أخوك ياسر خليل
محي الدين ابو البشر قام بنشر يناير 18, 2015 الكاتب قام بنشر يناير 18, 2015 بارك الله بك أخي العزيز وآسف على خطأي إليك المرفق مع ملاحظة أنه مثال 4 صفحات ومجموع الصفحات صحيح ولكن هناك خطأ ما وممكن أن يكون عدد الصفحات متغيراً من وقت لاخرBook.rar
محي الدين ابو البشر قام بنشر يناير 18, 2015 الكاتب قام بنشر يناير 18, 2015 (معدل) <Sub sumpages() Pages = InputBox("عدد الصفحات", "جمع الصفحات") P = Pages For i = 26 To 34 * P Step 34 Application.Calculation = xlCalculationManual Range("F" & i).Select ActiveCell.FormulaR1C1 = "=SUM(R[-20]C:R[-1]C)" Next i Range("f" & P * 34 - 7).Select ActiveCell.FormulaR1C1 = "=R[-1]C+R[-35]C+R[-69]C+R[-103]C+R[-137]C+R[-171]C+R[-205]C+R[-239]C+R[-273]C+R[-307]C+R[-341]C+R[-375]C+R[-409]C+R[-443]C+R[-477]C+R[-511]C+R[-545]C+R[-579]C+R[-613]C+R[-647]C+R[-681]C+R[-715]C+R[-749]C+R[-783]C+R[-817]C+R[-851]C+R[-885]C+R[-919]C+R[-953]C+R[-987]C+R[-1021]C+R[-1055]C+R[-1089]C+R[-1123]C+R[-1157]C+R[-1191]C+R[-1225]C+R[-1259]C+R[-1293]C+R[-1327]C+R[-1361]C+R[-1395]C+R[-1429]C+R[-1463]C+R[-1497]C+R[-1531]C+R[-1565]C+R[-1599]C+R[-1633]C+R[-1667]C" Application.Calculation = xlCalculationAutomatic End Sub> تم تعديل يناير 18, 2015 بواسطه mohadin
محي الدين ابو البشر قام بنشر يناير 19, 2015 الكاتب قام بنشر يناير 19, 2015 سيدي الفاضل ياسر خليل لقت عدلت الماكرو الذي عرضته عليك وحصلت علة النتيجة بطريقة أخرى لكن النتيجة التي يعطيني إياه هي قيمة جمع الصفحات بينما في خلية جمع كل صفحة على حدى تكون النتيجة هي معادلة الجمع لا أدري اذا كان بالامكان الحصور على معادلة في خلية مجموع الصفحات شكراً لك على مساعدتك
أفضل إجابة ياسر خليل أبو البراء قام بنشر يناير 19, 2015 أفضل إجابة قام بنشر يناير 19, 2015 أخي الفاضل إليك الملف المرفق قم بالضغط على Alt + F8 ثم اختر الماكرو المسمى InsertTotal لاحظ أن المجموع العام غير موجود في نهاية الصفحة .. نفذ الكود ولاحظ المجموع العام وراجع النتيجة يرجى عند زيادة صفحات العمل ألا تكون الخلايا الخاصة بالمجموع الفرعي أو المجموع العام مدمجة .. قمت بإلغاء الدمج على الصفحات الموجودة في خلايا المجموع والمجموع العام فقط Book.rar 1
محي الدين ابو البشر قام بنشر يناير 19, 2015 الكاتب قام بنشر يناير 19, 2015 أستاذ ياسر شكراً لك من كل قلبي على مجهودك تعجز الكلمات عن التعبير عن تقديري لك وشكرك جزاك اله كل خير
ياسر خليل أبو البراء قام بنشر يناير 20, 2015 قام بنشر يناير 20, 2015 اخي الكريم وجزاكم الله كل خير الحمد لله أن تم بخير حاول أن تبتعد عن دمج الخلايا فهي تسبب مشاكل لا حصر لها عند التعامل مع الأكواد تقبل تحياتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.