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

假设您有一个包含多个工作表的工作簿，现在您需要创建一个下拉列表或组合框，其中列出所有工作表名称，并且当您从下拉列表中选择一个工作表名称时，它会立即跳转到该工作表。本文将介绍如何在 Excel 中使用下拉列表在工作表之间导航。

使用下拉列表在 Excel 中的工作表之间导航

使用下拉列表在 Excel 中的工作表之间导航

要通过下拉列表跳转到每个选定的工作表，请按照以下步骤操作：

1. 点击 开发工具 > 插入 > 组合框（ActiveX 控件），参见截图：

2. 然后拖动鼠标绘制一个组合框，接着右键单击它，从上下文菜单中选择 查看代码，参见截图：

3. 在打开的 Microsoft Visual Basic for Applications 窗口中，复制并粘贴以下代码以替换原始代码，参见截图：

VBA 代码：使用下拉列表在工作表之间导航

Private Sub ComboBox1_Change()
'Updateby Extendoffice
    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

4. 然后保存并关闭此代码窗口，接着点击 设计模式 以关闭设计模式，现在，当从组合框中选择一个工作表名称时，它将立即跳转到该工作表，参见截图：