Note: The other languages of the website are Google-translated. Back to English

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

قد يكون من السهل والبسيط إدراج فاصل صفحات في ورقة العمل. في بعض الأحيان ، يلزم إدخال فواصل صفحات في كل صفوف 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 صفوف. انظر لقطة الشاشة:
doc-insert-page-break-x-rows-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 مع الاحتفاظ بعنوان النطاق. يمكنك أيضًا التبديل إلى عرض معاينة فاصل الصفحة بالنقر فوق مشاهدة > معاينة فاصل الصفحة لرؤية فواصل الصفحات هذه. انظر أدناه لقطة الشاشة.

كوتولس ل إكسيل - يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات 30اليوم ، لا حاجة لبطاقة ائتمان! احصل عليه الآن


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

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

كوتولس ل إكسيل - يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات 30اليوم ، لا حاجة لبطاقة ائتمان! تجربة مجانية الآن!

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

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

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

كوتولس ل إكسيل - يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. نسخة تجريبية مجانية كاملة الميزات 30اليوم ، لا حاجة لبطاقة ائتمان! احصل عليه الآن


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


كوتولس ل إكسيل يتضمن أكثر من 300 أداة يدوية لبرنامج Excel ، يمكن تجربتها مجانًا دون قيود في غضون 30 يومًا. تنزيل وتجربة مجانية الآن!

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


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (3)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا من اسطنبول / تركيا :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، شكرًا جزيلاً على الرمز. ولكن عندما أضغط على "إلغاء الأمر" أو "x" في مربع الإدخال ؛ تعطل ملف Excel. هل يمكنك المساعدة في حل هذه المشكلة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Dear extendofficeكوم
أود إرسال ملاحظات حول الميزة: طباعة> إدراج فاصل صفحة في كل صف.

كود فبا:
إدراج فرعي في الصفحة
تحديث بحلول20140618
خافت xLastrow وطول
خافت xWs كورقة عمل
تعيين xWs = Application.ActiveSheet
xRow = Application.InputBox ("Row"، xTitleId، "" ، النوع: = 1)
xWs.ResetAllPageBreaks
xLastrow = xWs.Range ("A1"). SpecialCells (xlCellTypeLastCell) .Row
بالنسبة إلى i = xRow + 1 To xLastrow Step xRow
xWs.HPageBreaks.Add: = xWs.Cells (i، 1)
التالى
نهاية الفرعية


عند استخدام هذه الوظيفة ، يمكنك إدخال متغير واحد فقط هو xRow.
لذلك ستكون هذه الميزة عديمة الفائدة تقريبًا لأنها غير مرنة. لا تبدأ جميع البيانات من الصف 1 ، ناهيك عن أن البيانات عادة ما تكون جدول وتحتوي على صف رأس.

أعتقد أن هذه الميزة يجب أن تحتوي على متغير آخر هو xFirstRow ، بحيث يمكنك تحديد الصف الأول من البيانات:
xFirstRow = Application.InputBox ("الصف الأول" ، xTitleId ، "" ، النوع: = 1)

ويجب أن تكون الصيغة:
بالنسبة إلى i = xFirstRow + xRow + 1 To xLastrow Step xRow

نأمل أن تتم ترقية هذه الميزة في الإصدارات الأحدث.
شكر،
تجنيد
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL