الزباري قام بنشر نوفمبر 20, 2016 مشاركة قام بنشر نوفمبر 20, 2016 أخواني في المنتدى.. محاولة بسيطة مني في تبسيط عمل الكود وجعله مرن مع خيار التراجع. إليكم المرفق: sub total loop.rar 4 رابط هذا التعليق شارك More sharing options...
جلال الجمال_ابو أدهم قام بنشر نوفمبر 20, 2016 مشاركة قام بنشر نوفمبر 20, 2016 الزباري الله ينور عليك تحياتى رابط هذا التعليق شارك More sharing options...
الزباري قام بنشر نوفمبر 20, 2016 الكاتب مشاركة قام بنشر نوفمبر 20, 2016 جلال الجمال_ابو أدهم وينور على قلبك تحياتي رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر نوفمبر 20, 2016 مشاركة قام بنشر نوفمبر 20, 2016 اخى الزباري اكرمك الله وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الزباري قام بنشر نوفمبر 20, 2016 الكاتب مشاركة قام بنشر نوفمبر 20, 2016 أخي سعد عابد بارك الله فيك وأثابك من فضله رابط هذا التعليق شارك More sharing options...
طلعت محمد حسن قام بنشر نوفمبر 20, 2016 مشاركة قام بنشر نوفمبر 20, 2016 استاذ الزباري انت انسان رائع اشكرك من كل قلبي بارك الله فيك 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 20, 2016 مشاركة قام بنشر نوفمبر 20, 2016 For i = rowdiv To lastRow Step rowdiv 'اكتب هنا الكود المناسب Next اخي الزباري لماذا المرور على كل العامود خلية خلية في حين يمكنك استعمال هذه For Netx في الكود ملاحظة اخرى يمكنك استعمال هذا الكود البسيط للتراجع Sub salim_way() On Error Resume Next lastRow = Range("b1").End(xlDown).Row Range("a2:a" & lastRow).SpecialCells(4).EntireRow.Delete Range("c2:c" & lastRow).SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete End Sub ارجو تقبل هذه الملاحظات و ذلك من اجل كود اسرع و متكامل وخدمة للاخرين حيث بمكن ان يكون هناك بيانات كبيرة مما يوفر الوقت 3 رابط هذا التعليق شارك More sharing options...
محمد ممتاز قام بنشر نوفمبر 20, 2016 مشاركة قام بنشر نوفمبر 20, 2016 السلام عليكم اخى الفاضل / الزباري اشكرك على هذة الفكرة الممتازة وهذا الكود الجميل بارك الله فيك وذادك من علمة 1 رابط هذا التعليق شارك More sharing options...
الزباري قام بنشر نوفمبر 20, 2016 الكاتب مشاركة قام بنشر نوفمبر 20, 2016 أخي سليم حاصبيا عين الصواب، والصواب أنت.. أكواد ولا أروع. تحياتي رابط هذا التعليق شارك More sharing options...
الزباري قام بنشر نوفمبر 20, 2016 الكاتب مشاركة قام بنشر نوفمبر 20, 2016 1 ساعه مضت, سليم حاصبيا said: For i = rowdiv To lastRow Step rowdiv 'اكتب هنا الكود المناسب Next اخي الزباري لماذا المرور على كل العامود خلية خلية في حين يمكنك استعمال هذه For Netx في الكود ملاحظة اخرى يمكنك استعمال هذا الكود البسيط للتراجع Sub salim_way() On Error Resume Next lastRow = Range("b1").End(xlDown).Row Range("a2:a" & lastRow).SpecialCells(4).EntireRow.Delete Range("c2:c" & lastRow).SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete End Sub ارجو تقبل هذه الملاحظات و ذلك من اجل كود اسرع و متكامل وخدمة للاخرين حيث بمكن ان يكون هناك بيانات كبيرة مما يوفر الوقت أخي سليم حاولت أن أطبق الكود باستخدام for next إلا أنه واجهتني مشكلة التعرف على آخر السطر، حيث أنه يتغير عند إدراج سطر جديد، فمثلا لو كان لدينا جدول يتكون من 100 سطر فإن الكود يتوقف عند السطر 100، لكن فعلياً وبعد إضافة سطر المجموع وسطر العنوان فيجب أن يكون نهاية السطر هو 120. وتقبل تحياتي. رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 20, 2016 مشاركة قام بنشر نوفمبر 20, 2016 50 دقائق مضت, الزباري said: أخي سليم حاولت أن أطبق الكود باستخدام for next إلا أنه واجهتني مشكلة التعرف على آخر السطر، حيث أنه يتغير عند إدراج سطر جديد، فمثلا لو كان لدينا جدول يتكون من 100 سطر فإن الكود يتوقف عند السطر 100، لكن فعلياً وبعد إضافة سطر المجموع وسطر العنوان فيجب أن يكون نهاية السطر هو 120. وتقبل تحياتي. يمكن استعمال هذا العبارة التي تأخذ في حسابها زيادة الصفوف For i = rowdiv To lastRow + (lastRow \ rowdiv) * 2 Step rowdiv رابط هذا التعليق شارك More sharing options...
الزباري قام بنشر نوفمبر 21, 2016 الكاتب مشاركة قام بنشر نوفمبر 21, 2016 جاري التجربة وسنوافيكم بالنتيجة رابط هذا التعليق شارك More sharing options...
الزباري قام بنشر نوفمبر 21, 2016 الكاتب مشاركة قام بنشر نوفمبر 21, 2016 تم التعديل بطريقة الأستاذ سليم حاصبيا sub total loop.rar وأتمنى أن يوافق صوابكم 3 رابط هذا التعليق شارك More sharing options...
محمد لؤي قام بنشر نوفمبر 21, 2016 مشاركة قام بنشر نوفمبر 21, 2016 السلام عليكم - جزيت خيرا - بارك الله في جهودكم ممكن التعديل على الملف ليوافق عملي وكما مبين بالملف المرفق الله يرضى عليكم تقسيم.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 21, 2016 مشاركة قام بنشر نوفمبر 21, 2016 5 ساعات مضت, الزباري said: تم التعديل بطريقة الأستاذ سليم حاصبيا sub total loop.rar وأتمنى أن يوافق صوابكم بين الملفات القديمة وجدت هذا الملف عن نفس الموضوع عسى ان ينال اعجابك اخي الزباري auto_sum.rar 5 رابط هذا التعليق شارك More sharing options...
جلال الجمال_ابو أدهم قام بنشر نوفمبر 21, 2016 مشاركة قام بنشر نوفمبر 21, 2016 سليم حاصبيا اخى الفاضل جزاك الله خيرا تحياتى رابط هذا التعليق شارك More sharing options...
محمد ممتاز قام بنشر نوفمبر 21, 2016 مشاركة قام بنشر نوفمبر 21, 2016 ماشاء الله على هذا الابداع للاستاذ / سليم حاصبيا فعلا كثرة الافكار من قبل الخبراء تجعل الصغار يحتارون بين الحكم على ايهم افضل طريقة بس هل ممكن دمج العمل الاول مع العمل الثانى بحيث الصف الاول يظهر فى طباعة كل صفحة وكذلك ربطة على كود الطباعة . اظهار اجمالى كل صفحة عند الطباعة.rar 1 رابط هذا التعليق شارك More sharing options...
الزباري قام بنشر نوفمبر 21, 2016 الكاتب مشاركة قام بنشر نوفمبر 21, 2016 قمة الإبداع والديناميكية.. جزلك الله خيراً. 1 رابط هذا التعليق شارك More sharing options...
محمد ممتاز قام بنشر نوفمبر 21, 2016 مشاركة قام بنشر نوفمبر 21, 2016 السلام عليكم لو سمحت مكن سليم حاصبيا يتفضل بس يشرح لى الكود وطريقة عملة شرح مبسط واكون شاكر لة . 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 21, 2016 مشاركة قام بنشر نوفمبر 21, 2016 تلبية لرغبة الاخ محمد ممتاز تم التعديل على الكود ليظهر الصف الاول عند الطباعة مع الاحتفاظ بعدد الصفوف المطلوبة لكل صفحة طباعة ما عدا اخر صفحة اذا كان عدد الاسطر اقل من المطلوب تظهر البيانات المتبقية مع الاجمالي طباعة أول سطر في كل صفحة مفعلة تستطيع ان تراها من خلال Print Preview (لكن لا يظهر اول سطر على الشاشة العادية) auto_sum advanced.rar 3 رابط هذا التعليق شارك More sharing options...
محمد ممتاز قام بنشر نوفمبر 23, 2016 مشاركة قام بنشر نوفمبر 23, 2016 السلام عليكم جزاك الله كل خير اخي العزيز / سليم حاصبيا ودائما نستفاد من علمكم الوفير واسأل الله ان يجعل كل مجهوداتك في ميزان حسناتك . 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان