انتقل إلى المحتوى الرئيسي

كيفية إدراج فاصل صفحة كل س الصفوف في إكسيل؟

قد يكون من السهل والبسيط إدراج فاصل صفحات في ورقة العمل. في بعض الأحيان ، يلزم إدخال فواصل صفحات في كل صفوف X للطباعة بشكل مرتب ، كيف يمكنك أن تفعل؟ أقدم هنا طريقتين لحل هذه المشكلة في Excel.


قم بإدراج فاصل صفحة في كل صف X باستخدام VBA في Excel

ربما لم تكن معتادًا على تشغيل VBA من قبل ، ولكن من خلال الخطوات التالية ، قد تعرف كيفية تشغيل VBA لإدراج فاصل صفحة في كل صفوف X. هنا سأدرج فاصل صفحة في كل 3 صفوف.

1. صحافة ALT + F11 لعرض ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في النافذة ، انقر فوق إدراج > وحدة لإظهار نافذة وحدة جديدة ، ثم انسخ رمز فبا التالي في نافذة الوحدة النمطية.

فبا: إدراج فاصل صفحات في كل صفوف X في ورقة العمل.

Sub InsertPageBreaks()
'Updateby20140618
Dim xLastrow As Long
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
xRow = Application.InputBox("Row", xTitleId, "", Type:=1)
xWs.ResetAllPageBreaks
xLastrow = xWs.Range("A1").SpecialCells(xlCellTypeLastCell).Row
For i = xRow + 1 To xLastrow Step xRow
    xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1)
Next
End Sub

3. انقر يجري زر وينبثق لك مربع حوار لتحديد كل صفوف X تريد إدراج فاصل صفحة فيها. هنا أقوم بإدراج فاصل صفحة في كل 3 صفوف. انظر لقطة الشاشة:
وثيقة-إدراج-فاصل-الصفحة-x-الصفوف-1

4. انقر OK، وبعد ذلك سيتم إدراج فاصل صفحات في كل صف X.

قم بإدراج فاصل صفحة بسرعة كل صف (nth) في ورقة العمل النشطة

عادة نقوم بإدراج فاصل صفحة واحد مع النقر تخطيط الصفحة > فواصل > إدراج فاصل صفحات. ولكن بهذه الطريقة ، من الممل جدًا إدراج فواصل صفحات متعددة في ورقة عمل دفعة واحدة ، مثل أنك تحتاج إلى إدراج فاصل صفحة واحد في كل صف لطباعة كل صف في صفحة منفصلة. لا تقلق! كوتولس ل إكسيل إدراج فاصل صفحة في كل صف يمكن أن تساعدك الأداة في أرشفتها بسهولة!


إدراج فاصل صفحة كل صف 3

فواصل إدراج دفعة واحدة بعد كل صفوف x مع Kutools for Excel

إذا كان لديك Kutools for Excel مثبتًا ، فإن ملف انقسام إلى أعمدة يمكن أن تساعدك الأداة المساعدة في إدراج فواصل صفحات متعددة بعد كل صفوف x مع الاحتفاظ بالعنوان في كل صفحة بسهولة في Excel.

كوتولس ل إكسيل - مزود بأكثر من 300 أداة أساسية لبرنامج Excel. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! التحميل الان!

1. انقر انقسام إلى أعمدة على كوتولس بلس علامة التبويب.

2. في مربع الحوار فتح تقسيم إلى أعمدة ، تحتاج إلى:

(1) انقر فوق الزر "استعراض"  في ال نطاق العناوين مربع ، وحدد صف العنوان في النطاق المحدد الذي ستقوم بإدراج فواصل الصفحات دفعة واحدة.
(2) انقر فوق الزر "استعراض" في ال نطاق الموعد ، وحدد النطاق الذي ستقوم بإدراج فواصل الصفحات دفعة واحدة.
(3) في عدد الصفوف لكل صفحة مطبوعة المربع ، أدخل رقمًا. (معلومه- سرية: على سبيل المثال ، إذا كنت بحاجة إلى إدراج فواصل صفحات بعد كل 3 صفوف ، يرجى إدخال 3 في المربع ؛ إذا كنت بحاجة إلى تثبيط فواصل الصفحات بعد كل صف ، فيرجى إدخال 1.)
(4) أدخل 1 في عدد القطاعات مربع.

3. انقر على Ok .

سترى الآن أن النطاق قد تم نسخه في ورقة عمل جديدة ، وتتم إضافة فواصل الصفحات بعد كل صفوف x مع الاحتفاظ بعنوان النطاق. يمكنك أيضًا التبديل إلى عرض معاينة فاصل الصفحة بالنقر فوق المزيد > معاينة فاصل الصفحة لرؤية فواصل الصفحات هذه. انظر أدناه لقطة الشاشة.

كوتولس ل إكسيل - شحن برنامج Excel بأكثر من 300 أداة أساسية. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! احصل عليه الآن


أدخل فواصل الصفحات بعد كل صفوف x باستخدام Kutools for Excel

يطور Kutools for Excel أداة مساعدة أخرى لإدراج فاصل صفحة كل صف متخصصة في إدراج فواصل الصفحات بعد كل س صفوف بسهولة.

كوتولس ل إكسيل - مزود بأكثر من 300 أداة أساسية لبرنامج Excel. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! التحميل الان!

1. حدد النطاق الذي ستقوم بإدراج فواصل الصفحات بعد كل x من الصفوف ، وانقر فوق الطباعة > إدراج فاصل صفحة في كل صف على كوتولس بلس علامة التبويب.

2. في مربع الحوار "إدراج فاصل صفحة كل صف" ، حدد الفاصل الزمني للصفوف التي ستقوم بإدراج فواصل الصفحات فيها ، وانقر فوق Ok .

ثم سترى فواصل الصفحات مدرجة في الفاصل الزمني المحدد للصفوف مرة واحدة.

كوتولس ل إكسيل - شحن برنامج Excel بأكثر من 300 أداة أساسية. استمتع بتجربة مجانية كاملة المواصفات لمدة 30 يومًا دون الحاجة إلى بطاقة ائتمان! احصل عليه الآن


عرض توضيحي: أدخل فاصل صفحة في كل x من الصفوف في Excel


كوتولس ل إكسيل: أكثر من 300 أداة مفيدة في متناول يدك! ابدأ تجربتك المجانية لمدة 30 يومًا دون أي قيود على الميزات اليوم. تحميل الآن!

مقالات ذات صلة:

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Dear extendoffice.com
I would like to send feedback about feature: Print > Insert Page Break Every Row.

VBA Code:
Sub InsertPageBreaks()
'Updateby20140618
Dim xLastrow As Long
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
xRow = Application.InputBox("Row", xTitleId, "", Type:=1)
xWs.ResetAllPageBreaks
xLastrow = xWs.Range("A1").SpecialCells(xlCellTypeLastCell).Row
For i = xRow + 1 To xLastrow Step xRow
xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1)
Next
End Sub


When you use this function, you can only enter one variables is xRow.
So this feature will be almost useless because it is not flexible. Not all data start from Row 1, not to mention data usually is table and has Header row.

I think this feature should have another variable is xFirstRow, so that you can define the first row of data:
xFirstRow = Application.InputBox("First Row", xTitleId, "", Type:=1)

And the formula should be:
For i = xFirstRow + xRow + 1 To xLastrow Step xRow

Hopefully this feature will be upgraded in later versions.
Thanks,
Tuyen
This comment was minimized by the moderator on the site
Hi, Thanks a lot for the code. But when I press Cancel or x on the input box; the excel file crashes. Can you please help to resolve this issue.
This comment was minimized by the moderator on the site
Thanks a lot from Istanbul / Turkey :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations