كيفية طباعة ورقة العمل بدون صفوف فارغة في إكسيل؟
عند طباعة ورقة العمل ، ستتم طباعة الصفوف الفارغة أيضًا. بالنسبة لبعض مستخدمي 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 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!