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
- Klik kanan pada tab Lembar Kerja
- Klik tombol Perlihatkan di tab yang dibuka
- 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 = xlSheetVisibleDi 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
Di bawah kode yang sama seperti di atas tetapi tersebar di beberapa baris. Mari kita jalankan melalui ini'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 wsKode 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