Misalkan, Anda memiliki buku kerja yang berisi banyak lembar kerja, sekarang, Anda perlu membuat daftar drop-down atau kotak kombo yang mencantumkan semua nama sheet dan ketika Anda memilih satu nama sheet dari daftar drop-down, itu akan langsung melompat ke sheet itu. Artikel ini, saya akan memperkenalkan cara menavigasi antar lembar kerja dengan menggunakan daftar drop-down di Excel
Menavigasi antara lembar kerja dengan menggunakan daftar drop-down di Excel
Untuk melompat ke setiap lembar yang dipilih dengan menggunakan daftar drop-down, lakukan langkah-langkah berikut
1. Klik Pengembang > Sisipkan > Kotak Kombo (Kontrol ActiveX), lihat tangkapan layar
2. Kemudian seret mouse untuk menggambar kotak kombo, lalu klik kanan, pilih Lihat Kode dari menu konteks, lihat tangkapan layar
3. Di jendela Microsoft Visual Basic for Applications yang terbuka, salin dan tempel kode berikut untuk menggantikan kode asli, lihat tangkapan layar
kode VBA. Menavigasi antara lembar kerja dengan menggunakan daftar drop-down
Private Sub ComboBox1_Change() 'Updateby Extendoffice If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select End Sub Private Sub ComboBox1_DropButtonClick() Dim xSheet As Worksheet On Error Resume Next Application.ScreenUpdating = False Application.EnableEvents = False If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then ComboBox1.Clear For Each xSheet In ThisWorkbook.Sheets ComboBox1.AddItem xSheet.Name Next xSheet End If Application.EnableEvents = True Application.ScreenUpdating = True End Sub Private Sub ComboBox1_GotFocus() If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown End Sub4. Kemudian simpan dan tutup jendela kode ini, lalu klik Mode Desain untuk mematikan mode desain, sekarang, ketika memilih satu nama lembar dari kotak kombo, itu akan langsung masuk ke lembar itu, lihat tangkapan layar
Menavigasi antara lembar kerja dengan menggunakan hyperlink atau tombol
Dengan Kutools for Excel's Buat Daftar Nama Lembar utilitas, Anda dapat dengan cepat mencantumkan semua nama lembar kerja di lembar baru dengan hyperlink atau tombol makro, lalu Anda dapat menavigasi di antara mereka sesuai kebutuhan Anda
Kutools untuk Excel. dengan lebih dari 300 add-in Excel praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan uji coba gratis Sekarang.
Alat Produktivitas Kantor Terbaik
Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%
- Gunakan kembali. Masukkan dengan cepat rumus kompleks, bagan dan apa pun yang pernah Anda gunakan sebelumnya; . Encrypt Cells with password; Create Mailing List and send emails...
- Super Formula Bar (mengedit beberapa baris teks dan formula dengan mudah); . Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
- Menggabungkan Sel/Baris/Kolom tanpa kehilangan Data; . Cegah Sel Duplikat; . Combine Duplicate Rows/Columns.. Prevent Duplicate Cells; Compare Ranges...
- Pilih Baris Duplikat atau Unik ; . Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
- Exact Copy Beberapa Sel tanpa mengubah referensi rumus; . Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
- Ekstrak Teks , Tambah Teks, Hapus berdasarkan Posisi, Hapus Spasi ; . Convert Between Cells Content and Comments...
- Filter Super (simpan dan terapkan skema filter ke sheet lain); . Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
- Menggabungkan Buku Kerja dan Lembar Kerja ; . Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
- Lebih dari 300 fitur canggih . Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
Baca selengkapnya. Download Gratis. Pembelian.
Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Lebih Mudah
- Aktifkan pengeditan dan pembacaan bertab di Word, Excel, PowerPoint , Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru
- Meningkatkan produktivitas Anda hingga 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari
Baca selengkapnya. Download Gratis. Pembelian.
Terlama Pertama
Urutkan komentar menurut
Terlama Pertama
Pertama Terbaru
Komentar ( 12 )
Belum ada peringkat. Jadilah yang pertama menilai
Ghaz
sekitar 5 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Bagaimana saya bisa mengaktifkan lembar tersembunyi dan menyembunyikan halaman beranda?
Membalas
0
0
Emmanuel
sekitar 5 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Bagaimana saya bisa menambahkan hanya lembar tertentu?
Membalas
0
0
Kristen Emmanuel
sekitar 4 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Apakah Anda senang menemukan kode untuk hanya menampilkan lembar tertentu di kotak dropdown?
Membalas
Laporan
0
0
M
sekitar 4 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Bagaimana Anda mengubahnya untuk hanya menampilkan/memilih lembar kerja yang terlihat?
Membalas
0
0
skyyang M
sekitar 4 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Hai,
Untuk mengabaikan lembar tersembunyi dari daftar drop-down, dan hanya menyimpan lembar kerja yang terlihat, kode VBA berikut dapat membantu Anda
Kotak Kombo Sub Pribadi1_Ubah()
'Perbarui dengan Extendoffice
Jika ComboBox1. ListIndex > -1 Lalu Lembar(ComboBox1. Teks). Pilih
Akhir Sub
Kotak Kombo Sub Pribadi1_DropButtonClick()
Dim xSheet Sebagai Lembar Kerja
Pada Kesalahan Lanjutkan Berikutnya
Aplikasi. Pembaruan Layar = Salah
Aplikasi. EnableEvents = Salah
Jika ComboBox1. ListCount Buku Kerja Ini. Seprai. Hitung Lalu
Kotak Kombo1. Jernih
Untuk Setiap xSheet Di Buku Kerja Ini. Seprai
Jika xSheet. Terlihat Kemudian
Kotak Kombo1. TambahkanItem xSheet. Nama
Berakhir jika
xSheet berikutnya
Berakhir jika
Aplikasi. EnableEvents = Benar
Aplikasi. Pembaruan Layar = Benar
Akhir Sub
Kotak Kombo Sub Pribadi1_GotFocus()
Jika ComboBox1. ListCount 0 Lalu ComboBox1. DropDown
Akhir Sub
Silahkan dicoba, semoga dapat membantu anda
Membalas
Laporan
0
0
M skyyang
sekitar 4 tahun yang lalu
Komentar ini diminimalkan oleh moderator di situs
Itu berhasil. Terima kasih. Tahukah Anda jika kode ini akan menimbulkan masalah jika sheet diganti namanya atau akan memperbarui daftar secara otomatis?