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

我一共有五张工作簿。 我的任务是在第一张表中创build一个组合列表button,可以指向其他四个。 如果用户select一个表格名称,那么该button将自动激活选定的表格。 纸张不太可能被删除,尽pipe可能会添加纸张。

我甚至不知道如何让名单显示在组合列表中。

为了使combobox更改活动工作表,我相信你将需要使用VBA(因为我不知道如何使用validation列表)。

要做到这一点,你必须:

第一个 – 将combobox添加到您的第一个工作表,并正确命名(我称之为cmbSheet)。 我build议使用ActiveX Combobox(在Excel 2007中的“开发人员”选项卡下)。

第二 – 打开VBA并将下面的代码添加到您的工作簿代码。 每次打开工作簿时,此代码将使用工作表名称填充combobox。

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 

3rd – 现在,转到第一个工作表(已添加combobox的位置)的代码,并添加将激活combobox中所选工作表的代码。 代码是

 Private Sub cmbSheet_Change() ActiveWorkbook.Sheets(cmbSheet.Value).Activate End Sub 

现在,当combobox值改变时,相应的纸张被激活。

让我们知道,如果不清楚,我们会帮助你。