İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

İş səhifəsini çap edərkən boş satırlar dayandırmaq necə?

Çalışma sayfanıza birdən çox boş satır varsa, normal olaraq, hesabatı yazdırdığınızda boş satırlar da yazdırılacaktır. Boş satırları yox sayan iş səhifəsini çap etmək bizim üçün kağızları saxlaya bilər, bu halda, bir iş səhifəsini çap edərkən necə boş sətirləri dayandırmaq olar?

VBA kodu ilə iş səhifəsini çap edərkən boş sətirləri dayandırın

Boş satırları bir seferde silməklə iş səhifəsini çap edərkən boş satırları dayandırın


arrow mavi sağ bubble VBA kodu ilə iş səhifəsini çap edərkən boş sətirləri dayandırın


Aşağıdakı VBA kodu ilə, iş səhifəsini boş satırlar olmadan çap edə bilərsiniz, belə edin:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: çap edərkən boş sətirləri dayandırın:

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. Sonra basın F5 bu kodu çalıştırmak üçün açar düyməsini basın və yazdırmaq istədiyiniz məlumatların aralığını seçməyi xatırlatmaq üçün bir əmr qutusu açılır, ekran görüntüsünə baxın:

3 boş satır olmadan doc çap

4. Və sonra basın OKvə seçdiyiniz aralık bir dəfə boş satır olmadan çap edilmişdir.


arrow mavi sağ bubble Boş satırları bir seferde silməklə iş səhifəsini çap edərkən boş satırları dayandırın

Boş satırlar sizin üçün yararsızdırsa, əvvəlcə bütün boş satırları silə və sonra lazım olan iş səhifəsini çap edə bilərsiniz. Ilə Excel üçün Kutools'S Boş Satırları Sil xüsusiyyətə ehtiyac duyduğunuz halda bir seçim, iş və ya iş kitabında boş satırları tez silə bilərsiniz.

Excel üçün Kutools : 300-dən daha çox 60-dən istifadə etməklə, Excel-in əlavələri, XNUMX gündə heç bir məhdudiyyət yox idi.

Quraşdırıldıqdan sonra Excel üçün Kutoolsxahiş edirəm:

1. Boş satırları silmək istədiyiniz veri aralığını seçin və sonra da basın Kutools > Sil > Boş Satırları Sil > Seçilən aralıda, bax ekran görüntüsü:

1 boş satır olmadan doc çap

2. Və bir seçim qutusu bir seçimdə neçə boşluq silindiğini xatırlatmaq üçün açılır.

2 boş satır olmadan doc çap

3. Boş satırları sildikdən sonra iş səhifəsini çap edə bilərsiniz.

Excel İndi Free Download Kutools üçün tıklayın!



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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.