如何为工作表制作下拉列表

我的工作簿中共有五张工作表。我的任务是在第一个工作表中创建一个组合列表按钮，该按钮将能够指向其他四个工作表。如果用户选择工作表名称之一，则该按钮将自动激活所选工作表。尽管可能会添加工作表，但不太可能删除工作表。

我什至不确定如何让工作表名称显示在组合列表上。

为了使组合框更改活动工作表，我相信您需要使用 VBA （因为我不知道如何使用验证列表来做到这一点）。

为此，您必须：

1st - 在您的第一个工作表中添加一个组合框并正确命名它（我称之为 cmbSheet）。我建议使用 ActiveX 组合框（在 Excel 2007 中，在“开发人员”选项卡下）。

第二 - 打开 VBA 并将以下代码添加到您的工作簿代码中。每次打开工作簿时，此代码都会使用工作表名称填充组合框。

Private Sub Workbook_Open()

    Dim oSheet As Excel.Worksheet
    Dim oCmbBox As MSForms.ComboBox

    Set oCmbBox = ActiveWorkbook.Sheets(1).cmbSheet

    oCmbBox.Clear

    For Each oSheet In ActiveWorkbook.Sheets

        oCmbBox.AddItem oSheet.Name

    Next oSheet

End Sub

第三 - 现在，转到第一个工作表的代码（已添加组合框的位置）并添加将激活组合框中所选工作表的代码。代码是

Private Sub cmbSheet_Change()

    ActiveWorkbook.Sheets(cmbSheet.Value).Activate

End Sub

现在，当组合框值更改时，相应的工作表将被激活。

如果有任何不清楚的地方，请告诉我们，我们将为您提供帮助。