aboesa قام بنشر فبراير 6 مشاركة قام بنشر فبراير 6 السلام عليكم ورحمة الله. كل عام وانتم جميعا بخير. وأعاد الله علينا وعليكم هذه الأيام بتمام الصحة وصلاح الأحوال وكل الخير. وان ينفع بعلمكم. ممكن لو سمحتوا ياكرام. كود عمل فاصل صفحات بعد عدد محدد من الصفوف. مثلا ٢٤ صف. يعني كل ٢٤ صف( تعتبر صفحة مستقله.) بارك الله فيكم. رابط هذا التعليق شارك More sharing options...
بلانك قام بنشر فبراير 6 مشاركة قام بنشر فبراير 6 ياريت نفس الطلب وشكرا مقدما لمن يساعدنا رابط هذا التعليق شارك More sharing options...
أفضل إجابة abouelhassan قام بنشر فبراير 6 أفضل إجابة مشاركة قام بنشر فبراير 6 جرب Sub InsertPageBreaks() Dim ws As Worksheet Dim rowsPerPage As Integer Dim lastRow As Long Dim i As Long ' تعيين عدد الصفوف في كل صفحة rowsPerPage = 24 ' تحديد الورقة التي ترغب في تطبيق الفواصل عليها Set ws = ThisWorkbook.Sheets("Sheet1") ' تغيير "Sheet1" إلى اسم الورقة الخاصة بك ' حذف الفواصل الحالية إن وجدت ws.ResetAllPageBreaks ' الحصول على آخر صف غير فارغ في الورقة lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' إدراج فواصل الصفحات بعد كل rowsPerPage صف For i = rowsPerPage To lastRow Step rowsPerPage ws.Rows(i).PageBreak = xlPageBreakManual Next i End Sub قم بتغيير "Sheet1" في السطر Set ws = ThisWorkbook.Sheets("Sheet1") إلى اسم الورقة التي ترغب في تطبيق الفواصل عليها. قم بتعديل قيمة rowsPerPage إلى العدد المطلوب من الصفوف في كل صفحة. 4 1 رابط هذا التعليق شارك More sharing options...
aboesa قام بنشر فبراير 6 الكاتب مشاركة قام بنشر فبراير 6 بارك الله فيك وجزاك الله خير الجزاء. رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر فبراير 6 مشاركة قام بنشر فبراير 6 3 ساعات مضت, aboesa said: بارك الله فيك وجزاك الله خير الجزاء. اختار افضل اجابه لو تكرمت 1 رابط هذا التعليق شارك More sharing options...
بلانك قام بنشر فبراير 6 مشاركة قام بنشر فبراير 6 بارك الله فيك وجزاك الله خير الجزاء 1 رابط هذا التعليق شارك 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.