Hallo sahabat Excel-ID bahagia sekali saya masih dapat menulis artkel pada hari ini dan kali ini saya akan menciptakan sebuah teladan bagaimana cara menyembunyikan worksheet dengan memakai code VBA sekaligus bagaimana juga cara memunculkan worksheet hanya dengan memakai sebuah tombol (CommandButton) pada UserForm.
Cara ini cukup gampang dan sederhana namun saya kira kalau Anda belum pernah mencobanya tentunya akan resah sendiri untuk apa dan bagaimana cara membuatnya. Oke langkah yang harus dilakukan pertama kali yakni silakan Anda buat satu buah Workbook lalu masuk ke VBA Editor lalu tambahkan satu buah UserForm. Untuk menambahkan UserForm juga pernah saya bahas sebelumnya dan dalam dipelajari di blog ini.
Langkah berikutnya silakan tambahkan 2 buah objek CommandButton dan ganti Captionya untuk CommandButton1 dengan "Sembunyikan Sheet" lalu untuk CommandButton2 silakan ganti dengan "Munculkan Sheet". Untuk mempermudah citra kira-kira menyerupai berikut ini
Cara ini cukup gampang dan sederhana namun saya kira kalau Anda belum pernah mencobanya tentunya akan resah sendiri untuk apa dan bagaimana cara membuatnya. Oke langkah yang harus dilakukan pertama kali yakni silakan Anda buat satu buah Workbook lalu masuk ke VBA Editor lalu tambahkan satu buah UserForm. Untuk menambahkan UserForm juga pernah saya bahas sebelumnya dan dalam dipelajari di blog ini.
Langkah berikutnya silakan tambahkan 2 buah objek CommandButton dan ganti Captionya untuk CommandButton1 dengan "Sembunyikan Sheet" lalu untuk CommandButton2 silakan ganti dengan "Munculkan Sheet". Untuk mempermudah citra kira-kira menyerupai berikut ini
Setelah Anda menciptakan desain interface UserForm menyerupai diatas langkah berikutnya silakan Double klik untuk CommandButton "Sembunyikan Sheet" dan tuliskan coding berikut ini
Private Sub CommandButton1_Click()
Call SembunyikanSheet
End Sub
Sub SembunyikanSheet()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> ThisWorkbook.ActiveSheet.Name Then
ws.Visible = xlSheetHidden
End If
Next ws
End Sub
Langkah berikutnya untuk perintah atau coding VBA memunculkan Worksheet silakan tuliskan code berikut ini
Sub MunculkanSheet()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> ThisWorkbook.ActiveSheet.Name Then
ws.Visible = xlSheetVisible
End If
Next ws
End Sub
Private Sub CommandButton2_Click()
Call MunculkanSheet
End Sub
Selesai, silakan coba RUN untuk mengetahui apakah berhasil atau tidak dan silakan komentar dibawah kalau mengelami kesulitan dan supaya bermanfaat selamat mencoba.
End Sub
Selesai, silakan coba RUN untuk mengetahui apakah berhasil atau tidak dan silakan komentar dibawah kalau mengelami kesulitan dan supaya bermanfaat selamat mencoba.
Selesai, silakan coba RUN untuk mengetahui apakah berhasil atau tidak dan silakan komentar dibawah kalau mengelami kesulitan dan supaya bermanfaat selamat mencoba.
Related Posts
- Membatasi Jumlah Huruf Pada Cell Dengan Vba (Not Validation)Hai, sobat EXCEL-ID pada kesempatan kali ini aku akan menulis bagaimana caranya membatasi jumlah abjad maksimum yang bisa dimasukan atau diketikkan o ...
- Cara Manampilkan Alamat Url Pada Hyperlink | Vba ExcelHallo, beberapa waktu yang kemudian ada sebuah pertanyaan dan mohon maaf aku tidak sebutkan dari siapa namun mudah-mudahan artikel ini dapat menjawab ...
- Cara Menampilkan Path File Pada Textbox UserformFile intinya mempunyai daerah lokasi penyimpanan entah itu di MyDocument, Drive D, Drive E atau pada folder yang ada di drive tertentu atau berada di ...
- Cara Membobol Paksa Password (Proteksi) Worksheet Melalui VbaJudulnya keren "Membobol Paksa" tapi ya inilah memang yang akan saya bahas pada artikel kali ini. Unprotek worksheet yang sudah dipassword dan biasan ...
- Membuat Format Tanggal Otomatis Di Textbox Userform Dengan VbaHai semua, udah usang ga posting artikel di blog ini, hemm jadi buat para pelanggan setia blog excel ini mohon maaf alasannya yaitu ada beberapa kesi ...
- Cara Menciptakan Combobox Datanya Dari Range Worksheet LainCombobox ialah data dimana data yang dientrikan berupa data pilihan jadi user tidak dapat mengetikan data pada Combobox tersebut. Data yang dimaksud ...
