如何通過在Excel的下拉選單中選擇工作表名稱來打開工作表？

Author Siluvia Last modified 2025-08-23

假設您的Excel工作簿中有一個下拉選單，其中包含所有工作表的名稱。您希望通過從下拉選單中選擇特定工作表的名稱來打開該工作表。本指南演示了如何使用VBA代碼實現此功能，並提供了將工作表名稱填充到下拉選單中的步驟以及啟用所需功能的方法。

A screenshot of a Combo Box in Excel containing sheet names

通過在下拉選單中選擇工作表名稱並使用VBA代碼來打開工作表

以下VBA代碼可以幫助您根據Excel中的下拉選單選擇跳轉到特定的工作表。請按照以下步驟操作。

備註：如果下拉選單中沒有任何工作表名稱，請按照以下提示快速將所有工作表名稱添加到該下拉選單中。如果已經存在一個包含所有工作表名稱的下拉選單，請直接進行步驟 1。

提示：在工作表中插入「命令按鈕 1」，右鍵單擊它並從右鍵菜單中選擇檢視程式碼。然後將以下VBA代碼複製並粘貼到程式碼窗口中，並按下Alt + Q 鍵關閉Microsoft Visual Basic for Application窗口。點擊插入的命令按鈕後，當前工作簿的所有工作表名稱將自動添加到 ComboBox1 中。

VBA代碼：輕鬆將所有工作表名稱添加到下拉選單中

Private Sub CommandButton1_Click()
    Me.ComboBox1.Clear
    Dim strWs As String
    Dim i As Integer
    
    For i = 1 To ThisWorkbook.Sheets.Count
        Me.ComboBox1.AddItem Sheets(i).Name
    Next
End Sub

如果已經存在一個包含所有工作表名稱的下拉選單，請按照以下步驟操作。

1. 在開發工具選項卡下啟用設計模式。

2. 右鍵單擊帶有工作表名稱的下拉選單，然後從右鍵菜單中選擇「 檢視程式碼」。

A screenshot of the right-click menu to access Combo Box code in Excel

3. 接著會彈出 Microsoft Visual Basic for Applications 窗口，請將程式碼窗口中的原始VBA代碼替換為以下VBA代碼。

VBA代碼：根據下拉選單的選定值打開特定工作表

Private Sub ComboBox1_Change()
    Dim actWsh As String
    actWsh = ComboBox1.Text
    Worksheets(actWsh).Select
End Sub

備註：在代碼中，ComboBox1 是包含工作表名稱的下拉選單的名稱。

4. 按下 Alt + Q 鍵關閉 Microsoft Visual Basic for Applications 窗口，並在開發工具選項卡下關閉設計模式。

現在，在下拉選單中選擇任何工作表名稱都會自動打開相應的工作表。

在工作簿中使用工作表索引可以幫助您輕鬆管理您的工作表。使用 Kutools for Excel 的「創建鏈接表」功能，您可以輕鬆創建一個包含當前工作簿中所有工作表名稱的索引。之後，您只需點擊索引工作表中的工作表名稱即可快速切換到某個工作表。請參見下面的截圖：

A screenshot showing a sheet index created with Kutools for Excel

Kutools for Excel - 超過 300 種必備工具，讓 Excel 功能更強大。永久免費享受 AI 功能！立即獲取

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多