طريقة مبسطة لتقسيم الصفحة مع تكرار العناوين وإضافة إجمالي لكل صفحة

[الزباري]

أخواني في المنتدى..

محاولة بسيطة مني في تبسيط عمل الكود وجعله مرن مع خيار التراجع.

إليكم المرفق:

sub total loop.rar

[جلال الجمال_ابو أدهم]

الزباري

الله ينور عليك
تحياتى

[الزباري]

جلال الجمال_ابو أدهم

وينور على قلبك

تحياتي

[saad abed]

اخى الزباري

اكرمك الله وجزاك الله خيرا

 

[الزباري]

أخي سعد عابد

بارك الله فيك وأثابك من فضله

[طلعت محمد حسن]

استاذ الزباري انت انسان رائع اشكرك من كل قلبي بارك الله فيك

[سليم حاصبيا]

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

ارجو تقبل هذه الملاحظات و ذلك من اجل كود اسرع و متكامل

وخدمة للاخرين حيث بمكن ان يكون هناك بيانات كبيرة مما يوفر الوقت

[محمد ممتاز]

السلام عليكم 

 

اخى الفاضل / 

الزباري

اشكرك على هذة الفكرة الممتازة وهذا الكود الجميل 

بارك الله فيك وذادك من علمة 

 

[الزباري]

أخي سليم حاصبيا

عين الصواب، والصواب أنت.. أكواد ولا أروع.

تحياتي

[الزباري]

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.

وتقبل تحياتي.

[سليم حاصبيا]

50 دقائق مضت, الزباري said:

أخي سليم

حاولت أن أطبق الكود باستخدام for next

إلا أنه واجهتني مشكلة التعرف على آخر السطر، حيث أنه يتغير عند إدراج سطر جديد، فمثلا لو كان لدينا جدول يتكون من 100 سطر فإن الكود يتوقف عند السطر 100، لكن فعلياً وبعد إضافة سطر المجموع وسطر العنوان فيجب أن يكون نهاية السطر هو 120.

وتقبل تحياتي.

يمكن استعمال هذا العبارة التي تأخذ في حسابها زيادة الصفوف

For i = rowdiv To lastRow + (lastRow \ rowdiv) * 2 Step rowdiv

 

[الزباري]

جاري التجربة وسنوافيكم بالنتيجة

[الزباري]

تم التعديل بطريقة الأستاذ سليم حاصبيا

sub total loop.rar

وأتمنى أن يوافق صوابكم

[محمد لؤي]

السلام عليكم - جزيت خيرا - بارك الله في جهودكم

ممكن التعديل على الملف ليوافق عملي وكما مبين بالملف المرفق

الله يرضى عليكم

تقسيم.rar

[سليم حاصبيا]

5 ساعات مضت, الزباري said:

تم التعديل بطريقة الأستاذ سليم حاصبيا

sub total loop.rar

وأتمنى أن يوافق صوابكم

بين الملفات القديمة وجدت هذا الملف عن نفس الموضوع

عسى ان ينال اعجابك اخي الزباري

auto_sum.rar

[جلال الجمال_ابو أدهم]

سليم حاصبيا

اخى الفاضل جزاك الله خيرا

تحياتى

[محمد ممتاز]

ماشاء الله على هذا الابداع  للاستاذ /

سليم حاصبيا

فعلا كثرة الافكار من قبل الخبراء تجعل الصغار يحتارون بين الحكم على ايهم افضل طريقة 

بس هل ممكن دمج العمل الاول مع العمل الثانى  بحيث الصف الاول يظهر فى طباعة كل صفحة وكذلك ربطة على كود الطباعة  . 

 

اظهار اجمالى كل صفحة عند الطباعة.rar

[الزباري]

قمة الإبداع والديناميكية.. جزلك الله خيراً.

[محمد ممتاز]

السلام عليكم 

 

لو سمحت مكن 

سليم حاصبيا

 يتفضل بس يشرح لى الكود وطريقة عملة شرح مبسط 

واكون شاكر لة .

[سليم حاصبيا]

تلبية لرغبة الاخ محمد ممتاز 

تم التعديل على الكود ليظهر الصف الاول عند الطباعة مع الاحتفاظ بعدد الصفوف المطلوبة لكل صفحة طباعة

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

طباعة أول سطر في كل صفحة مفعلة تستطيع ان تراها من خلال Print Preview (لكن لا يظهر اول سطر على الشاشة العادية)

 

auto_sum advanced.rar

[محمد ممتاز]

السلام عليكم 

 

جزاك الله كل خير اخي العزيز / سليم حاصبيا

ودائما نستفاد من علمكم الوفير واسأل الله ان يجعل كل مجهوداتك في ميزان حسناتك .