İ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

İş kitabını çap edərkən xüsusi bir işi necə çıxarmaq olar?

Çap üçün lazım olan bir çox iş kitabını ehtiva edən bir iş kitabınız varsa, ancaq xüsusi bir istisna istisna olmaqla, Excel-dən başqa hər hansı bir səhifəni çap etmək üçün tez və asan bir üsul varmı?

VBA kodu ilə iş kitabını çap edərkən xüsusi iş səhifəsini istisna et


arrow mavi sağ bubble VBA kodu ilə iş kitabını çap edərkən xüsusi iş səhifəsini istisna et

Bütün iş kitabını xüsusi iş səhifəsindən başqa çap etmək üçün aşağıdakı VBA kodu sizə kömək edə bilər.

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 > Modulesvə Modul Pəncərəsində aşağıdakı kodu yapışdırın.

VBA kodu: İş kitabını çap edərkən xüsusi iş səhifəsini istisna et:

Private Sub Printexclude()
'Updateby Extendoffcie 20161206
    Dim ws As Worksheet
    Dim strShName As String
    On Error Resume Next
    strShName = Application.InputBox("Enter the sheet name you want to exclude:", _
    "Kutools For Excel", , , , , , 2)
    Application.ScreenUpdating = False
    For Each ws In ThisWorkbook.Worksheets
        If ((ws.Visible = xlSheetVisible) And _
         (ws.Name <> strShName)) Then ws.PrintOut
    Next ws
    Application.ScreenUpdating = True
End Sub

3. Və sonra basın F5 bu kodu çalıştırmak üçün düyməsini basın və iş qutusunu çap edərkən istisna etmək istədiyiniz hesabat adını daxil etməyi xatırlatmaq üçün sorğu qutusu açılır, ekran görüntüsünə baxın:

doc çap 1 hesabatı istisna edir

4. Sonra basın OK düyməsini basın və digər iş yerləri eyni anda xüsusi hesabatı istisna etmir.



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.