Note: The other languages of the website are Google-translated. Back to English

如何在Excel中創建工作表名稱的動態列表?

如果一個工作簿中有多個工作表,並且要在該工作簿的新工作表中創建所有工作表名稱的動態列表,該怎麼辦? 現在,本教程介紹了一些技巧,可以在Excel中快速完成此任務。

使用定義名稱和公式創建工作表名稱的動態列表

使用VBA代碼創建工作表名稱的動態列表

使用Kutools for Excel創建工作表名稱的動態列表 好主意3

使用Kutools for Excel顯示工作表名稱的動態列表 好主意3


1.在空白工作表中選擇一個單元格,在這裡我選擇A1,然後單擊 公式 > 定義名稱。 看截圖:
doc-dynamic-worksheetname-list-1

2.然後在 新名字 對話框,輸入 進入 姓名 文本框(您可以根據需要進行更改),然後鍵入此公式 = SUBSTITUTE(GET.WORKBOOK(1),“ [”&GET.WORKBOOK(16)&“]”,“”) 進入“引用”文本框。 看截圖:
doc-dynamic-worksheetname-list-2

3。 點擊 OK。 轉到所選單元格(A1)並鍵入此公式 = INDEX(Sheets,ROWS($ A $ 1:$ A1)) (A1是您鍵入此公式的單元格,“ Sheets”是您在第2步中定義的名稱),然後向下拖動自動填充手柄,直到#REF! 出現。
doc-dynamic-worksheetname-list-3

尖端:如果刪除或添加了工作表,則需要轉到A1並按Enter鍵,然後再次拉動自動填充手柄。
doc-dynamic-worksheetname-list-4


如果要創建可以鏈接到每個工作表的工作表名稱的動態列表,則可以使用VBA代碼。

1.創建一個新的工作表,並將其重命名為Index。 看截圖:

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

2.右鍵單擊索引的工作表名稱,選擇 查看代碼 從上下文菜單中。 看截圖:
doc-dynamic-worksheetname-list-7

3.在彈出的窗口中,將下面的VBA代碼複製並粘貼到其中。

VBA:創建工作表名稱的動態列表。

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。 點擊 or F5 要運行VBA,現在將創建工作表名稱的動態列表。
doc-dynamic-worksheetname-list-8

小提示:

1.刪除或插入工作簿的工作表後,工作表名稱列表將自動更改。

2.您可以單擊名稱列表的工作表名稱以轉到工作表。

上面的兩種方法不夠方便,如果您對新實用程序感興趣,則可以使用以下兩種方法,這可能會使此任務更加容易。


 如果只想快速列出工作簿的所有工作表名稱並將其鏈接到原始工作表,則可以使用 Excel的Kutools創建工作表名稱列表.

Excel的Kutools, 與以上 300 方便的功能,使您的工作更加輕鬆。 

免費安裝 Kutools for Excel,請執行以下操作:

1。 點擊 Kutools 加 > 下載學習單 > 創建工作表名稱列表。 看截圖:

doc動態工作表名稱17

2。 在裡面 創建工作表名稱列表 對話:

 doc動態工作表名稱列表2
(1)檢查您需要的索引樣式 工作表索引樣式 部分;
(2)通過將數據鍵入到新索引表中 指定圖紙索引的圖紙名稱 文本框;
(3)指定將添加的索引表放置在目錄中的位置。 將工作表索引插入 清單;
(4)如果要在單個列表中顯示工作表名稱,請在 顯示工作表索引到 名單。

3。 點擊 Ok。 現在您可以看到工作表名稱已列出。
doc kutools創建圖紙清單3

提示:

1.您可以單擊工作表名稱以快速切換到其原始工作表。

2.列表或工作表名稱不能隨插入或刪除工作表而動態更改。

3.實際上,您還可以創建一個按鈕列表來鏈接相關工作表,只需要檢查一下即可 包含按鈕和宏 在對話框中。 參見screeshshot:
doc kutools創建圖紙清單4

單擊此處以了解有關創建圖紙名稱列表的更多信息。


如果你有 Excel的Kutools,您也可以使用 導航 在窗格中顯示可鏈接工作表名稱的實用程序

免費安裝 Kutools for Excel,請執行以下操作:

1。 點擊 庫工具 > 導航。 點擊 工作簿和工作表 以顯示工作簿和工作表,您可以選擇一個工作簿,然後其工作表將顯示在 導航 窗格。 看截圖:
doc導航窗格1   

小提示:

當有工作表被刪除或添加時,您可以單擊 刷新按鈕 doc導航窗格2導航n窗格刷新工作表名稱。

單擊此處以獲取有關導航的更多信息。


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (13)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
我將如何編輯此代碼以在鏈接左側包含一個複選框,我可以使用它來隱藏封面上的行? 另外,如何在 A1 下方的工作表上插入一行以顯示返回索引鏈接?
網站主持人對此評論進行了最小化
如何刪除每個工作表的鏈接以及如何不包括“sheet1”和“索引”工作表? 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
網站主持人對此評論進行了最小化
謝謝你。 這是非常有用的。 :D
網站主持人對此評論進行了最小化
如何使用此代碼以水平順序而不是垂直順序創建工作表列表? 是否可以?
網站主持人對此評論進行了最小化
在定義名稱中定義名稱“Sheets”不起作用。 “引用”框不會將公式保存為鍵入的並將其轉換為文本字符串。
網站主持人對此評論進行了最小化
正是我需要的,並且工作得很好。 謝謝!
網站主持人對此評論進行了最小化
或者您可以簡單地右鍵單擊左下角的左或右製表符水平滾動箭頭,然後單擊要跳轉到的工作表名稱(來自簡單的垂直列表)。
網站主持人對此評論進行了最小化
感謝您提供這些有用的信息。 我在“索引”選項卡中使用 VBA 代碼創建了一個動態列表。 不過,我發現它僅在我單擊返回“索引”選項卡時才會更新。 有沒有辦法確保它在創建新標籤後立即自動更新? 我在工作簿的其他地方引用了選項卡名稱,其他人將使用它,所以我試圖使其無縫。 謝謝!
網站主持人對此評論進行了最小化
抱歉,我發現代碼無法完成您的工作。
網站主持人對此評論進行了最小化
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。
網站主持人對此評論進行了最小化
嗨,試試這個:=SUBSTITUIR(INFO.PASTA.TRABALHO(1),"["&INFO.PASTA.TRABALHO(16)&"]","")
網站主持人對此評論進行了最小化
你好。 hoe zou ik dit kunnen doen om hetzelfde te doen maar 遇到了 een welbepaade cel van verschillende werkbladen。 Bv。 een leeg tablad。 mijn andere werkbladen hebben allemaal dezelfde 佈局,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。 我們 kunnen allemaal afzonderlijk doen, maar als er 500 werkbladen zijn, is dit onmogelijk。

請輸入。
網站主持人對此評論進行了最小化
您好,我猜您想在多個工作表中列出所有相同的單元格,如果是這樣,有兩個教程可能會對您有所幫助。 請拜訪:
如何從Excel中的多個工作表引用同一單元格?
如何在Excel中通過多個工作表中的相同單元格創建列表?
希望對您有所幫助。
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護