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

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

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

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

要使用下拉列表跳至每个选定的工作表，请执行以下步骤：

1。 点击 开发商 > 插页 > 组合框（ActiveX控件），请参见屏幕截图：

2。 然后拖动鼠标以绘制一个组合框，然后右键单击它，选择 查看代码 从上下文菜单中，查看屏幕截图：

3。 在开 Microsoft Visual Basic应用程序 窗口中，复制并粘贴以下代码以替换原始代码，请参见屏幕截图：

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。 然后保存并关闭此代码窗口，然后单击 设计模式 要关闭设计模式，现在，从组合框中选择一个工作表名称时，它将立即转到该工作表，请参见屏幕截图：