İ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

Excel faylını açarkən avtomatik olaraq xüsusi iş səhifələri necə gizlədə bilər?

Kimsə iş kitabını açarkən avtomatik olaraq bəzi xüsusi iş səhifələri gizlətmək istəyirsinizsə, Excel-də bu işlə necə məşğul ola bilərsiniz?

VBA kodu ilə iş kitabını açarkən xüsusi iş səhifəsini avtomatik olaraq gizləyin

VBA kodu ilə iş kitabını açarkən avtomatik olaraq bəzi xüsusi işlərin gizlədilməsi


arrow mavi sağ bubbleVBA kodu ilə iş kitabını açarkən xüsusi iş səhifəsini avtomatik olaraq gizləyin

İş kitabını açarkən xüsusi iş səhifəsini gizlətmək istəyirsinizsə, aşağıdakı VBA kodunu tətbiq edə bilərsiniz.

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

2. Solda Layihə-VBAProject pane, cüt basın BuWorkbook boş bir Modul açmaq və sonra aşağıdakı kodunu Modula daxil edin və yapışdırın:

VBA kodu: İş kitabını açarkən xüsusi bir hesabatı gizləyin:

Private Sub Workbook_Open()
Sheets("Sheet5").Visible = False
End Sub

1-da açıq sənəd yerləşdirin

Qeyd: Yuxarıda göstərilən kodda, Sheet5 açıq olaraq gizlətmək istədiyiniz hesabat adıdır. Xahiş edirik ehtiyacınızı dəyişdirin.

3. Sonra bu kod pəncərəsini saxlayıb bağlayın və vurun fayl > Saxla bu iş kitabını kimi saxlamaq üçün Excel Macro Enabled İş Kitabı formatına baxın, ekran görünüşünə baxın:

2-da açıq sənəd yerləşdirin

4. Bu iş kitabını növbəti dəfə açdığınızda, klikləyin Məzmunu aktiv edin əvvəlcə düyməni basın və sonra təyinat kitabçası avtomatik olaraq gizlənəcəkdir.

3-da açıq sənəd yerləşdirin


arrow mavi sağ bubble VBA kodu ilə iş kitabını açarkən avtomatik olaraq bəzi xüsusi işlərin gizlədilməsi

İş kitabını açarkən gizli olması üçün bir çox iş varsa, burada da bir kod sizə kömək edə bilər.

1. Birincisi, bir iş səhifəsinin siyahısında gizlətmək istədiyiniz hesabat adlarını qeyd etməlisiniz və sonra da səhifəyə daxil olun Adı qutusu onlara bir sıra ad vermək,SheetsToHidevə basın Daxil edin açar, bax ekran görüntüsü:

4-da açıq sənəd yerləşdirin

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

3. Solda Layihə-VBAProject pane, cüt basın BuWorkbook boş bir Modul açmaq və sonra aşağıdakı kodunu Modula daxil edin və yapışdırın:

VBA kodu: İş kitabını açarkən bəzi xüsusi iş dəftərlərini gizlət:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   'Updateby Extendoffice 20161206
    Dim ws As Worksheet
    For Each ws In Worksheets
       ws.Visible = xlSheetVisible
    Next ws
End Sub
Private Sub Workbook_Open()
    Dim ws As Worksheet
        For Each ws In Worksheets
            If WorksheetFunction.CountIf([SheetsToHide], ws.Name) > 0 Then
                ws.Visible = xlSheetHidden
                MsgBox ws.Name & "Has been hidden!", vbInformation, "Kutools for Excel"
            Else
                ws.Visible = xlSheetVisible
            End If
        Next ws
    Set ws = Nothing
End Sub

5-da açıq sənəd yerləşdirin

Qeyd: Yuxarıda göstərilən kodda, SheetsToHide 1 addımında yaratdığınız sıra adıdır.

4. Sonra bu kod pəncərəsini saxlayıb bağlayın və vurun fayl > Saxla bu iş kitabını kimi saxlamaq üçün Excel Macro Enabled İş Kitabı formatı. Bundan sonra, bu iş kitabını növbəti dəfə açdığınızda, müəyyən işlər avtomatik olaraq gizlənəcəkdir.



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.