ربما لم تكن معتادًا على تشغيل 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 صفوف. انظر لقطة الشاشة:

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

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

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

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

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

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

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

3. انقر على Ok .

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

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

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

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

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