Excel drop down daftar nama sheet

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 Sub

4. 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?

Bagaimana cara membuat daftar drop-down nama sheet di Excel?

Bagaimana cara membuat banyak lembar di Excel dengan daftar drop-down?

Bagaimana cara membuat daftar nama lembar kerja yang dinamis di Excel?

Bagaimana cara menarik nama dari daftar di Excel ke lembar lain?