如何在Excel中使用下拉列表在工作表之間導航？

Excel是一個高效的電子表格程式，使您可以有效地組織和分析資料。Excel的基礎是工作表，因此能夠快速地在它們之間切換將大大提高您的工作效率。在本文中，我們將重點介紹如何使用下拉列表作為導航工具，輕鬆地在工作表之間導航。您將學習如何設計一個使用者友好的下拉選單，提供一種快速訪問工作簿中各個工作表的方法，而不必在Excel視窗底部的大量選項卡中翻找。

在本教程結束時，您將牢固掌握如何建立Excel下拉列表，並有效地使用它在工作表之間切換。所以讓我們開始學習這種節省時間的技巧吧！

使用下拉列表在工作表之間導航

這裡我們將首先插入一個組合框，然後向其中新增VBA程式碼以完成任務。讓我們來看一個簡單的過程，瞭解如何使用Excel中的下拉列表在工作表之間導航。

步驟 1

考慮任何擁有多個工作表的Excel工作簿。

首先，單擊“開發工具”，然後單擊“插入”，然後單擊“ActiveX 控制元件”下的“組合框”。

開發工具 > 插入 > 組合框。

步驟 2

然後繪製它。現在右鍵單擊該框並選擇“檢視程式碼”。將下面的程式碼複製到文字框中。

繪製 > 右鍵單擊 > 檢視程式碼 > 複製。

程式碼

Private Sub ComboBox1_Change()
   If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_DropButtonClick()
   Dim xSheet As Worksheet
   On Error Resume Next
   Application.ScreenUpdating = False
   Application.EnableEvents = False
   If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
      ComboBox1.Clear
      For Each xSheet In ThisWorkbook.Sheets
         ComboBox1.AddItem xSheet.Name
      Next xSheet
   End If
   Application.EnableEvents = True
   Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_GotFocus()
   If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub