Bagaimana cara menampilkan sheet di excel macro?

Untuk menyembunyikan Lembar di Excel, Anda perlu mengklik kanan pada tab Lembar Kerja dan memilih Lembar Kerja yang ingin Anda sembunyikan dari Jendela Munculkan

Saya akan mulai dengan menunjukkan cara untuk menampilkan Lembar Kerja Excel secara manual menggunakan Excel Unhide Window. Kemudian saya akan menunjukkan kepada Anda beberapa trik tentang cara menyembunyikan semua Lembar di Excel menggunakan VBA. akhirnya

Perlihatkan Lembar di Excel

Untuk menyembunyikan Lembar Kerja Tersembunyi di Excel, lanjutkan sebagai berikut

1. Klik kanan pada tab Lembar Kerja
2. Klik tombol Perlihatkan di tab yang dibuka
3. Pilih Lembar Kerja yang ingin Anda sembunyikan dan klik Ok

Perlihatkan Lembar menggunakan VBA

Untuk menampilkan satu Lembar Kerja di Excel menggunakan VBA, kita perlu membuka Editor Visual Basic. Untuk melakukan ini dengan cepat, cukup gunakan pintasan Keyboard Excel ini ALT+F11

Anda dapat mengetik di bawah ini di jendela Segera dan tekan Enter

Sheets("NameOfWorksheet").Visible = xlSheetVisible

Di mana NameOfWorksheet jelas merupakan nama Lembar Kerja yang ingin Anda Perlihatkan di Excel

Sembunyikan Lembar menggunakan VBA

Jika Anda ingin Menyembunyikan Lembar Kerja di Excel menggunakan VBA, Anda dapat memodifikasi kode di atas. Alih-alih menggunakan xlSheetVisible, gunakan saja xlSheetHidden

Sheets("NameOfWorksheet").Visible = xlSheetHidden

Ini akan menyembunyikan lembar kerja bernama NameOfWorksheet

Perlihatkan Semua Lembar di Excel menggunakan VBA

Untuk menyembunyikan semua Lembar di Excel, kita harus kembali ke VBA karena tidak ada cara lain untuk memilih beberapa lembar kerja menggunakan jendela Unhide Excel bawaan. Sekali lagi mari kita buka Editor Visual Basic dengan menggunakan pintasan Keyboard Excel ALT+F11. Selanjutnya di Jendela Segera mari kita mengetik

For Each ws In Sheets:ws.Visible=xlSheetVisible:Next ws

'Will loop through all worsheets in the ActiveWorkbook
For Each ws In Sheets
  'Sets the visibility of the Worksheet to true
  ws.Visible=xlSheetVisible
Next ws

Perlihatkan semua Lembar berdasarkan Nama

Dalam banyak kasus, Anda tidak perlu menampilkan semua Lembar di Excel. Alih-alih, Anda mungkin ingin menampilkan hanya sebagian dari Lembar Kerja Tersembunyi menggunakan pola nama

Asumsikan Anda ingin menampilkan semua Lembar Kerja yang termasuk dalam pola tertentu di mana bagian dari namanya dapat berupa urutan karakter apa pun. Untuk ini kita bisa mengubah kode di atas menggunakan operator VBA Like

'Loop all worksheets in the Excel file
For Each ws In Sheets
  'If the name of the Worksheet starts with "Hidden" then...
  If ws.Name Like "Hidden*" Then
     '...make the worksheet visible
     ws.Visible = xlSheetVisible
  End If
Next ws

Sama seperti di atas, kita dapat membungkusnya menjadi oneliner untuk dijalankan di Jendela Segera

For Each ws In Sheets: ws.Visible=Iif(ws.Visible = xlSheetVisible or ws.Name Like "Hidden*",ws.Visible,xlSheetHidden):Next ws

Kode di atas akan menyembunyikan semua Lembar Kerja yang namanya dimulai dengan Tersembunyi dan diakhiri dengan sejumlah karakter e. g. angka seperti pada contoh di bawah ini

Apa yang terjadi adalah menggunakan VBA Untuk Setiap loop yang kami iterasi melalui VBA Collection of Worksheets. Ketika nama Lembar Kerja tertentu cocok dengan pernyataan fungsi VBA Like kami, kami membuatnya terlihat

Tombol untuk Menyembunyikan/Menampilkan Lembar

Terakhir untuk mempelajari cara Unhide Sheets di Excel, kami akan meringkas apa yang telah kami pelajari dan membuat VBA UserForm sederhana agar dapat mengelola visibilitas dengan cepat di seluruh daftar Lembar Kerja Excel

Buat UserForm

Pertama, Anda perlu membuat VBA UserForm dengan VBA ListBox dan VBA CommandButton

Inisialisasi Program dan Klik Tombol

Jika Anda menamai objek dengan benar, lewati kode berikut ke dalam kode sumber VBA UserForm

'Runs when the form is created. Lists all worksheets and selects visible ones
Private Sub UserForm_Initialize()
    Dim it As Long
    lSheets.MultiSelect = fmMultiSelectExtended 'Make sure more than 1 can Sheet can be selected
    For Each ws In ActiveWorkbook.Sheets
        lSheets.AddItem ws.Name
        lSheets.Selected(it) = IIf(ActiveWorkbook.Sheets(ws.Name).Visible = xlSheetVisible, True, False)
        it = it + 1
    Next ws
End Sub

'Runs when button is clicked
Private Sub cbRun_Click()
    'First make visible selected Worksheets as otherwise code might crash
    Dim i As Long
    For i = 0 To lSheets.ListCount - 1
        If lSheets.Selected(i) = True Then ActiveWorkbook.Sheets(lSheets.List(i)).Visible = xlSheetVisible
    Next i

    'Hide unselected Worksheets
    For i = 0 To lSheets.ListCount - 1
        If lSheets.Selected(i) = False Then ActiveWorkbook.Sheets(lSheets.List(i)).Visible = xlSheetHidden
    Next i
End Sub

Jalankan UserForm

Untuk menguji kode kita, yang perlu kita lakukan hanyalah membuat dan menampilkan Formulir Pengguna VBA ManageWorksheets. Kode Prosedur VBA berikut perlu dibuat dalam Modul VBA

Bagaimana cara saya menyembunyikan lembar secara otomatis di Excel?

Bagaimana cara menyembunyikan di Excel VBA?

Bisakah VBA mengakses lembar tersembunyi?