كيفية طباعة ورقة العمل بدون صفوف فارغة في إكسيل؟
عند طباعة ورقة العمل ، ستتم طباعة الصفوف الفارغة أيضًا. بالنسبة لبعض مستخدمي Excel ، فإنهم يميلون إلى طباعة ورقة العمل بدون صفوف فارغة لضغط البيانات وحفظ الأوراق. ولكن كيفية طباعة ورقة العمل بدون صفوف فارغة في Excel. توفر هذه المقالة طريقتين لك.
قم بإخفاء الصفوف الفارغة قبل الطباعة برمز VBA
احذف الصفوف الفارغة قبل الطباعة باستخدام Kutools for Excel
قم بإخفاء الصفوف الفارغة قبل الطباعة برمز VBA
قبل طباعة ورقة العمل ، يمكنك تشغيل رمز VBA أدناه لإخفاء الصفوف الفارغة في نطاق محدد. الرجاء القيام بما يلي.
1. اضغط على قديم + F11 مفاتيح لفتح Microsoft Visual Basic للتطبيق نافذة.
2. في ال Microsoft Visual Basic للتطبيق الإطار، انقر فوق إدراج > وحدة. ثم انسخ والصق رمز فبا أدناه في نافذة الوحدة النمطية.
كود فبا: إخفاء الصفوف الفارغة في النطاق المحدد
Sub HideBlankRows()
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
Dim I As Long
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "Don't support multiple ranges", , "Kutools for Excel"
Exit Sub
End If
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xRg.Rows.Count
xRg.Rows(I).EntireRow.Hidden = (Application.CountA(xRg.Rows(I)) = 0)
Next
Application.ScreenUpdating = xUpdate
End Sub
3. اضغط على F5 مفتاح لتشغيل الكود ، ثم أ كوتولس ل إكسيل ينبثق مربع الحوار ، يرجى تحديد النطاق الذي يحتوي على صفوف فارغة لا تريد طباعتها ، ثم انقر فوق OK .
ثم يتم إخفاء جميع الصفوف الفارغة في النطاق المحدد على الفور. بعد ذلك يمكنك البدء في طباعة ورقة العمل بدون صفوف فارغة.
ملاحظة: بعد الطباعة ، يمكنك إظهار هذه الصفوف الفارغة برمز VBA التالي.
كود فبا: إظهار كافة الصفوف الفارغة في النطاق المحدد
Sub UnhideRows()
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range to unhide the blank rows", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
xRg.EntireRow.Hidden = False
Application.ScreenUpdating = xUpdate
End Sub
احذف الصفوف الفارغة قبل الطباعة باستخدام Kutools for Excel
إذا كنت تريد طباعة ورقة العمل بدون صفوف فارغة ، فننصحك بحذف جميع الصفوف الفارغة بملحق حذف الصفوف الفارغة فائدة كوتولس ل إكسيل، وبعد ذلك يمكنك طباعة ورقة العمل يدويًا.
قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.
1. انقر كوتولس > حذف > حذف الصفوف الفارغة > في النطاق المحدد/في الورقة النشطة/في أوراق مختارة/في جميع الأوراق بناءً على احتياجاتك. انظر لقطة الشاشة:
ملاحظة: لحذف الصفوف الفارغة في النطاق ، يرجى تحديد هذا النطاق أولاً ثم تطبيق الوظيفة.
2. ثم ينبثق مربع حوار لإخبارك بعدد الصفوف التي تم حذفها ، يرجى النقر فوق OK .
الآن يتم حذف جميع الصفوف الفارغة. يمكنك البدء في طباعة ورقة العمل الخاصة بك.
ملاحظة: هذه الأداة تدعم التراجع CTRL + Z.
إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30-يوم) من هذه الأداة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
- إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
- سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
- دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
- حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
- نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
- استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
- سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
- اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
- أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
