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

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

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

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

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

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

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. 右鍵單擊帶有工作表名稱的下拉選單，然後從右鍵菜單中選擇「 檢視程式碼」。

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 窗口，並在開發工具選項卡下關閉設計模式。

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

相關文章：

• 如何在Excel中將下拉選單的值複製到活動單元格？
• 如何在Excel的下拉選單輸出中顯示日期格式？
• 如何根據指定單元格的值隱藏或取消隱藏命令按鈕？
• 如何防止或禁用在Excel的下拉選單中輸入內容？
• 如何在Excel中通過Tab鍵從下拉選單中選擇特定單元格？