Ana içeriğe atla

Excel'de dinamik bir çalışma sayfası adları listesi nasıl oluşturulur?

Bir çalışma kitabında birden çok sayfanız varsa ve çalışma kitabındaki yeni bir sayfada tüm sayfa adlarının dinamik bir listesini oluşturmak istiyorsanız, nasıl yapabilirsiniz? Şimdi bu öğretici, bu görevi Excel'de hızlı bir şekilde tamamlamak için bazı püf noktaları tanıtır.

Adı ve Formülü Tanımla ile dinamik bir çalışma sayfası adları listesi oluşturun

VBA kodu ile dinamik bir çalışma sayfası adları listesi oluşturun

Kutools for Excel ile dinamik bir çalışma sayfası adları listesi oluşturun iyi fikir3

Kutools for Excel ile çalışma sayfası adlarının dinamik bir listesini görüntüleyin iyi fikir3


1. Boş bir sayfada bir hücre seçin, burada A1'i seçiyorum ve sonra Formüller > Adı Tanımla. ekran görüntüsüne bakın:
doc-dynamic-çalışma sayfası-listesi-1

2. Sonra Yeni isim iletişim kutusu, yazın Levhalar içine Name metin kutusu (ihtiyaç duyduğunuzda değiştirebilirsiniz) ve bu formülü yazın = SUBSTITUTE (GET.WORKBOOK (1), "[" & GET.WORKBOOK (16) & "]", "") Metin kutusuna başvurur. Ekran görüntüsüne bakın:
doc-dynamic-çalışma sayfası-listesi-2

3. tık OK. Seçili hücreye (A1) gidin ve bu formülü yazın = DİZİN (E-Tablolar, SATIRLAR ($ A $ 1: $ A1)) (A1, bu formülü yazdığınız hücredir, "Sayfalar" 2. Adımda tanımladığınız addır) içine, ardından otomatik doldurma tutamacını # BAŞV! belirir.
doc-dynamic-çalışma sayfası-listesi-3

Bahşiş: Kaldırılan veya eklenen çalışma sayfaları varsa, A1'e gitmeniz ve Enter tuşuna basmanız ve ardından otomatik doldurma tutamacını yeniden silmeniz gerekir.
doc-dynamic-çalışma sayfası-listesi-4


Her sayfaya bağlanabilen dinamik bir çalışma sayfası adları listesi oluşturmak istiyorsanız, VBA kodunu kullanabilirsiniz.

1. Yeni bir çalışma sayfası oluşturun ve bunu Dizin olarak yeniden adlandırın. Ekran görüntüsüne bakın:

doc-dynamic-çalışma sayfası-listesi-5       doc-dynamic-çalışma sayfası-listesi-6

2. Dizinin sayfa adına sağ tıklayın, seçin Kodu Görüntüle bağlam menüsünden. Ekran görüntüsüne bakın:
doc-dynamic-çalışma sayfası-listesi-7

3. Açılan pencerede, VBA kodunu kopyalayıp içine yapıştırın.

VBA: Çalışma sayfası adlarının dinamik listesini oluşturun.

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. tık koşmak or F5 VBA'yı çalıştırmak için, şimdi dinamik bir çalışma sayfası adları listesi oluşturulur.
doc-dynamic-çalışma sayfası-listesi-8

Bahşiş:

1. Çalışma kitabının çalışma sayfası silindiğinde veya eklendiğinde, çalışma sayfası adları listesi otomatik olarak değişecektir.

2. Sayfaya gitmek için isim listesinin sayfa adına tıklayabilirsiniz.

Yukarıdaki iki yöntem yeterince uygun değildir, yeni yardımcı programla ilgileniyorsanız, bu görevi daha kolay hale getirebilecek sonraki iki yönteme geçebilirsiniz.


 Yalnızca çalışma kitabının tüm çalışma sayfası adlarını hızlı bir şekilde listelemek ve bunları orijinal sayfalara bağlamak istiyorsanız, Kutools for Excel'S Sayfa Adlarının Listesini Oluşturun.

Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. 

Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:

1. tık Kutools Artı > Çalışma Sayfası > Sayfa Adlarının Listesini Oluşturun. Ekran görüntüsüne bakın:

doc dinamik çalışma sayfası adı 17

2. içinde Sayfa Adlarının Listesini Oluşturun iletişim:

 doc dinamik çalışma sayfası adı listesi 2
(1) İhtiyacınız olan dizin stilini kontrol edin Sayfa Dizini Stilleri Bölüm;
(2) Yeni dizin sayfasına verileri yazarak adlandırın. Sayfa Dizini için sayfa adını belirtin Metin kutusu;
(3) Eklenen dizin sayfasını yerleştireceğiniz yeri belirtin. Sayfa Dizinini buraya ekleyin liste;
(4) Sayfa adlarını tek bir listede görüntülemek istiyorsanız, sayfadaki 1 sütun seçin. Sayfa Dizini şu şekilde görüntüleniyor: liste.

3. tık Ok. Artık sayfa adlarının listelendiğini görebilirsiniz.
doc kutools sayfa 3 listesi oluştur

İpuçları:

1. Hızlı bir şekilde orijinal sayfasına geçmek için sayfa adına tıklayabilirsiniz.

2. Liste veya çalışma sayfası adları, sayfaların eklenmesiyle veya silinmesiyle dinamik olarak değişemez.

3. Aslında, ilgili sayfayı bağlamak için bir düğme listesi de oluşturabilirsiniz, yalnızca kontrol etmeniz gerekir Düğmeler ve Makrolar İçerir iletişim kutusunda. ekran görüntüsüne bakın:
doc kutools sayfa 4 listesi oluştur

Sayfa Adları Listesi Oluşturma hakkında daha fazla bilgi için burayı tıklayın.


Eğer sen Kutools for Excel, ayrıca kullanabilirsiniz Navigasyon bağlanabilir çalışma sayfası adlarını bir bölmede görüntülemek için yardımcı program

Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:

1. tık Kutools > Navigasyon. tıklayın Çalışma Kitabı ve Sayfa çalışma kitabını ve çalışma sayfasını göstermek için ve bir çalışma kitabı seçebilirsiniz, ardından çalışma sayfaları Navigasyon bölme. Ekran görüntüsüne bakın:
doc gezinme bölmesi 1   

Bahşiş:

Silinen veya eklenen çalışma sayfaları olduğunda, yenile düğmesi doc gezinme bölmesi 2 içinde navigasyonÇalışma sayfası adlarını yenilemek için n bölmesi.

Navigasyon hakkında daha fazla bilgi için burayı tıklayın.

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
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