Loncat ke daftar isi utama

Bagaimana cara membuat daftar dinamis nama lembar kerja di Excel?

Jika Anda memiliki beberapa lembar di buku kerja, dan Anda ingin membuat daftar dinamis dari semua nama lembar di lembar baru di buku kerja, bagaimana Anda bisa melakukannya? Sekarang tutorial ini memperkenalkan beberapa trik untuk menyelesaikan misi ini dengan cepat di Excel.

Buat daftar dinamis nama lembar kerja dengan Tentukan Nama dan Rumus

Buat daftar dinamis nama lembar kerja dengan kode VBA

Buat daftar dinamis nama lembar kerja dengan Kutools for Excel ide bagus3

Tampilkan daftar dinamis nama lembar kerja dengan Kutools for Excel ide bagus3


1. Pilih sel di lembar kosong, di sini saya pilih A1, lalu klik Rumus > Tentukan Nama. lihat tangkapan layar:
doc-dynamic-worksheetname-list-1

2. Kemudian di Nama baru dialog, ketik Seprei ke dalam Nama kotak teks (Anda dapat mengubahnya sesuai kebutuhan), dan ketikkan rumus ini = SUBSTITUTE (GET.WORKBOOK (1), "[" & GET.WORKBOOK (16) & "]", "") ke dalam Mengacu pada kotak teks. Lihat tangkapan layar:
doc-dynamic-worksheetname-list-2

3. klik OK. Masuk ke sel yang dipilih (A1) dan ketikkan rumus ini = INDEX (Spreadsheet, BARIS ($ A $ 1: $ A1)) (A1 adalah sel yang Anda ketikkan rumus ini, "Spreadsheet" adalah nama yang Anda tentukan di Langkah 2) ke dalamnya, lalu seret pegangan IsiOtomatis ke bawah hingga #REF! muncul.
doc-dynamic-worksheetname-list-3

jenis: Jika ada lembar kerja yang dihapus atau ditambahkan, Anda harus pergi ke A1 dan tekan tombol Enter lalu gosok pegangan isi otomatis lagi.
doc-dynamic-worksheetname-list-4


Jika Anda ingin membuat daftar dinamis nama lembar kerja yang dapat ditautkan ke setiap lembar, Anda dapat menggunakan kode VBA.

1. Buat lembar kerja baru dan ubah namanya menjadi Indeks. Lihat tangkapan layar:

doc-dynamic-worksheetname-list-5       doc-dynamic-worksheetname-list-6

2. Klik kanan pada nama sheet Index, pilih Lihat kode dari menu konteks. Lihat tangkapan layar:
doc-dynamic-worksheetname-list-7

3. Di jendela yang muncul, salin dan tempel kode VBA di bawah ini ke dalamnya.

VBA: Buat daftar dinamis nama lembar kerja.

Private Sub Worksheet_Activate()
	'Updateby20150305
	Dim xSheet As Worksheet
	Dim xRow As Integer
	Dim calcState As Long
	Dim scrUpdateState As Long
	Application.ScreenUpdating = False
	xRow                       = 1
	With Me
		.Columns(1).ClearContents
		.Cells(1, 1) = "INDEX"
		.Cells(1, 1).Name = "Index"
	End With
	For Each xSheet In Application.Worksheets
		If xSheet.Name <> Me.Name Then
			xRow                     = xRow + 1
			With xSheet
				.Range("A1").Name = "Start_" & xSheet.Index
				.Hyperlinks.Add anchor: = .Range("A1"), Address: = "", _
				SubAddress:             = "Index", TextToDisplay: = "Back to Index"
			End With
			Me.Hyperlinks.Add anchor: = Me.Cells(xRow, 1), Address: = "", _
			SubAddress: = "Start_" & xSheet.Index, TextToDisplay: = xSheet.Name
		End If
	Next
	Application.ScreenUpdating = True
End Sub

4. klik Run or F5 untuk menjalankan VBA, sekarang daftar dinamis nama lembar kerja dibuat.
doc-dynamic-worksheetname-list-8

olymp trade indonesiaTip:

1. Ketika worksheet dari workbook dihapus atau disisipkan, daftar nama worksheet akan berubah secara otomatis.

2. Anda dapat mengklik nama sheet dari daftar nama untuk pergi ke sheet.

Dengan dua metode di atas tidak cukup nyaman, jika Anda tertarik dengan utilitas baru, Anda dapat melanjutkan dua metode berikutnya yang mungkin membuat tugas ini lebih mudah.


 Jika Anda hanya ingin dengan cepat mencantumkan semua nama lembar kerja dari buku kerja dan menautkannya ke lembar asli, Anda bisa menggunakan Kutools untuk Excel'S Buat Daftar Nama Lembar.

Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. 

Setelah pemasangan gratis Kutools for Excel, lakukan seperti di bawah ini:

1. klik Kutools Ditambah > Lembar Kerja > Buat Daftar Nama Lembar. Lihat tangkapan layar:

doc nama lembar kerja dinamis 17

2. Dalam Buat Daftar Nama Lembar dialog:

 doc daftar nama lembar kerja dinamis 2
(1) Periksa gaya indeks yang Anda perlukan Gaya Indeks Lembar bagian;
(2) Beri nama lembar indeks baru dengan mengetik datanya Tentukan nama sheet untuk Sheet Index kolom tulisan;
(3) Tentukan lokasi Anda akan menempatkan lembar indeks yang ditambahkan di Masukkan Indeks Lembar daftar;
(4) Jika Anda ingin menampilkan nama sheet dalam satu daftar, pilih 1 kolom dalam Menampilkan Indeks Lembar menjadi daftar.

3. klik Ok. Sekarang Anda dapat melihat nama sheet dicantumkan.
doc kutools membuat daftar sheet 3

Tip:

1. Anda dapat mengklik nama sheet untuk segera beralih ke sheet aslinya.

2. Daftar atau nama sheet tidak dapat diubah secara dinamis dengan sheet yang dimasukkan atau dihapus.

3. Sebenarnya, Anda juga dapat membuat daftar tombol untuk menghubungkan lembar relatif, hanya perlu memeriksa Berisi Tombol dan Makro dalam dialog. lihat screeshshot:
doc kutools membuat daftar sheet 4

Klik di sini untuk mengetahui lebih banyak tentang Membuat Daftar Nama Lembar.


Jika Anda Dengan Kutools untuk Excel, Anda juga bisa menggunakan Navigasi utilitas untuk menampilkan nama lembar kerja yang dapat ditautkan di panel

Setelah pemasangan gratis Kutools for Excel, lakukan seperti di bawah ini:

1. klik Kutools > Navigasi. Klik Buku Kerja & Lembar untuk memperlihatkan buku kerja dan lembar kerja, dan Anda dapat memilih buku kerja, maka lembar kerjanya akan ditampilkan di Navigasi panel. Lihat tangkapan layar:
panel navigasi dokumen 1   

olymp trade indonesiaTip:

Ketika ada lembar kerja yang dihapus atau ditambahkan, Anda dapat mengklik tombol refresh panel navigasi dokumen 2 dalam Navigation untuk menyegarkan nama lembar kerja.

Klik di sini untuk informasi lebih lanjut tentang Navigasi.

Alat Produktivitas Kantor Terbaik

🤖 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Deskripsi Produk


Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab 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 sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
Comments (13)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hallo. hoe zou ik dit kunnen doen om hetzelfde te doen maar met een welbepaade cel van verschillende werkbladen. Bv. een leeg tabblad. mijn andere werkbladen hebben allemaal dezelfde lay-out, maar in iedere cel een andere tekst. Nu zou ik graag in mijn leeg tabblad in Cel A1 de gegevens terugvinden van tabblad1 cel B3. Maar dan zou ik graag in Cel A2 de gegevens terugvinden van tabblad 2 cel 3. En zou naar beneden en dit in een beweging. We kunnen allemaal afzonderlijk doen, maar als er 500 werkbladen zijn, is dit onmogelijk.

Merci voor den input.
This comment was minimized by the moderator on the site
Hi, I guess you want to list all same cells across multiple sheets, if so, there are two tutorials may help you. Please visit:
How to reference same cell from multiple worksheets in Excel?
How to create a list from same cells across multiple sheets in Excel?
Hope it is helpful.
This comment was minimized by the moderator on the site
Em português brasileiro, GET.WORKBOOK é identificado como uma função no Gerenciador de Nomes para criar o nome "Sheets", mas ao referenciar "Sheets" numa célula, aparece o erro "#NOME?". Tentei várias vezes, inclusive com a sugestão de traduzir GET.WORKBOOK para OBTER.LIVRO mas não funcionou.
This comment was minimized by the moderator on the site
Hi, try this: =SUBSTITUIR(INFO.PASTA.TRABALHO(1),"["&INFO.PASTA.TRABALHO(16)&"]","")
This comment was minimized by the moderator on the site
Thanks for this helpful info. I created a dynamic list with VBA code in the Index tab. I found that it only updates when I click back to the Index tab, though. Is there a way to ensure it auto updates as soon as a new tab is created? I refer to the tab names elsewhere in the workbook and others will be using it so I'm trying to make it seamless. Thank you!
This comment was minimized by the moderator on the site
Sorry, I do not find that code can finish your job.
This comment was minimized by the moderator on the site
Or you can simply rightClick either the left or right tab-horizontal-scroll arrow at the bottomLeft, and then click the worksheet name (from the simple vertical list) that you want to jump to.
This comment was minimized by the moderator on the site
Just what I needed and worked perfectly. Thank you!
This comment was minimized by the moderator on the site
Defining the name "Sheets" in the define name DOES NOT WORK. The "refers to" box will not save the formula as typed and converts it to a text string.
This comment was minimized by the moderator on the site
how can I use this code to create the list of worksheets in horizontal order instead of vertical? is it possible?
This comment was minimized by the moderator on the site
Thank you. It is very useful. :D
This comment was minimized by the moderator on the site
How can i remove the links to each sheets and how to not include the "sheet1" and "Index" sheet? Private Sub Worksheet_Activate() 'Updateby20150305 Dim xSheet As Worksheet Dim xRow As Integer Dim calcState As Long Dim scrUpdateState As Long Application.ScreenUpdating = False xRow = 1 With Me .Columns(1).ClearContents .Cells(1, 1) = "INDEX" .Cells(1, 1).Name = "Index" End With For Each xSheet In Application.Worksheets If xSheet.Name Me.Name Then xRow = xRow + 1 With xSheet .Range("A1").Name = "Start_" & xSheet.Index .Hyperlinks.Add anchor: = .Range("A1"), Address: = "", _ SubAddress: = "Index", TextToDisplay: = "Back to Index" End With Me.Hyperlinks.Add anchor: = Me.Cells(xRow, 1), Address: = "", _ SubAddress: = "Start_" & xSheet.Index, TextToDisplay: = xSheet.Name End If Next Application.ScreenUpdating = True End Sub
This comment was minimized by the moderator on the site
How would I go about editing this code to include a checkbox to the left of the link that I could use to hide rows on a cover sheet? Also how could I insert a row on the worksheets below A1 to have the return to index link show up there?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations