نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية إيقاف الصفوف الفارغة عند طباعة ورقة العمل؟

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

أوقف الصفوف الفارغة عند طباعة ورقة العمل باستخدام التعليمات البرمجية ل فبا

أوقف الصفوف الفارغة عند طباعة ورقة العمل عن طريق حذف الصفوف الفارغة مرة واحدة


السهم الأزرق الفقاعة اليمنى أوقف الصفوف الفارغة عند طباعة ورقة العمل باستخدام التعليمات البرمجية ل فبا


باستخدام رمز فبا التالي، يمكنك طباعة ورقة العمل بدون صفوف فارغة، يرجى القيام بذلك كالتالي:

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

2. انقر إدراج > وحدة، ولصق التعليمة البرمجية التالية في وحدة نافذة او شباك.

رمز فبا: إيقاف الصفوف الفارغة عند الطباعة:

Sub Print_NonBlank_Rows()
'Updateby Extendoffice 20160704
Dim xStr As String
    Dim xRg As Range
    Dim xHideRg As Range
    Dim xTxt As String
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
            If xHideRg Is Nothing Then
                Set xHideRg = xRg.Rows(I)
            Else
                Set xHideRg = Union(xHideRg, xRg.Rows(I))
            End If
        End If
    Next
    xHideRg.EntireRow.Hidden = True
    ActiveSheet.PrintOut Copies:=1
    xHideRg.EntireRow.Hidden = False
    Application.ScreenUpdating = True
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز، وسوف مربع موجه يخرج لتذكيرك تحديد مجموعة البيانات التي تريد طباعتها، انظر قطة:

دوك طباعة دون الصفوف فارغة شنومكس

4. ثم انقر فوق OK، وتمت طباعة النطاق الذي اخترته مرة واحدة بدون الصفوف الفارغة.


السهم الأزرق الفقاعة اليمنى أوقف الصفوف الفارغة عند طباعة ورقة العمل عن طريق حذف الصفوف الفارغة مرة واحدة

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

كوتولس ل إكسيل : مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومك.

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بما يلي:

1. حدد نطاق البيانات الذي تريد حذف الصفوف الفارغة، ثم انقر فوق Kutools > حذف > حذف الصفوف الفارغة > في النطاق المحدد، انظر الصورة:

دوك طباعة دون الصفوف فارغة شنومكس

2. وسيظهر مربع موجه لتذكيرك بعدد الصفوف الفارغة المحذوفة في التحديد.

دوك طباعة دون الصفوف فارغة شنومكس

3. بعد حذف الصفوف الفارغة، يمكنك طباعة ورقة العمل.

انقر مجانا تحميل كوتولس فور إكسيل الآن!



أدوات الإنتاجية الموصى بها لبرنامج Excel

Kutools for Excel يساعدك دائمًا في إنهاء العمل قبل الوقت ، وتبرز من الحشد

  • أكثر من الميزات المتقدمة القوية 300 ، المصممة لسيناريوهات عمل 1500 ، مما يزيد الإنتاجية بنسبة 70 ، يمنحك المزيد من الوقت لرعاية الأسرة والاستمتاع بالحياة.
  • لم تعد بحاجة إلى حفظ الصيغ ورموز VBA ، امنح عقلك قسطًا من الراحة من الآن فصاعدًا.
  • كن خبيرًا في Excel في دقائق 3 ، يمكن إجراء العمليات المعقدة والمتكررة في ثوانٍ ،
  • قلل من آلاف عمليات لوحة المفاتيح والماوس كل يوم ، قل وداعًا للأمراض المهنية الآن.
  • 110,000 من الأشخاص المؤثرين للغاية واختيار 300 + للشركات ذات الشهرة العالمية.
  • 60-day ميزات كاملة تجريبية مجانية. 60 يوم استعادة الاموال الضمانات. سنوات 2 من الترقية المجانية والدعم.

يجلب الاستعراض المبوب والتحرير إلى Microsoft Office ، أقوى بكثير من علامات تبويب المتصفح

  • تم تصميم Office Tab لتطبيقات Word و Excel و PowerPoint وتطبيقات Office الأخرى: Publisher و Access و Visio و Project.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.