在Excel中制作下拉列表的三种方法—excel技巧教程|叨客学习资料网

　　下拉列表在Excel中的用处非常广泛。在Excel中制造下拉列表可以通过数据有效性、运用窗体控件和VBA控件工具箱中的组合框来制造。

　　下面用一个具体的例子来进行阐明(在文章结尾处可下载xls格局的示例文件)。假设每个月都有一个薪酬表，其间每个职工的薪酬按照其出勤天数每个月都不相同。

　　

 

　　需求制造一个个人薪酬表来检查每个人每个月的薪酬状况，这时就可以制造一个包含职工名字下拉列表，在其间进行挑选来检查指定职工每个月的薪酬状况。

　　

 

　　本文图文介绍了在Excel中制造下拉列表的三种办法。

　　办法一：运用数据有效性

　　通过数据有效性可以在单元格中供给一个下拉箭头，单击下拉箭头会弹出下拉列表。因为职工名字都在每月的薪酬表中，而个人薪酬表中没有这些人员名字，所以必需先界说称号，以便在个人薪酬表中设置数据有效性时进行引证。

　　界说称号的办法是单击菜单插入称号，在界说称号对话框中进行界说，这儿将1月薪酬表中的名字区域B3:B14界说为名字，如图。

　　

 

　　1、假设下拉列表放在个人薪酬表的C1单元格，挑选C1单元格，然后单击菜单数据有效性，挑选设置选项卡，在有效性条件区域中允许下方的下拉列表中挑选序列。

　　2、在来源下方的文本框中输入=名字。单击确定。

　　

 

　　3、在数据区C3:H14顶用VLOOKUP函数对薪酬数据进行相关。例如第3行为1月薪酬，可以在C3单元格中输入公式

　　=VLOOKUP($C$1,1月薪酬!$B$3:$H$14,2,0)

　　在D3单元格中输入公式：

　　=VLOOKUP($C$1,1月薪酬!$B$3:$H$14,3,0)

　　在C4单元格中输入公式：

　　=VLOOKUP($C$1,2月薪酬!$B$3:$H$14,2,0)

　　其余单元格依此类推。这样，只要在单击C1单元格右侧的下拉箭头挑选职工名字就可以检查其所有月份的薪酬状况。

　　办法二：用窗体控件

　　1、在菜单栏上右击，在弹出的菜单中挑选窗体，将弹出窗体浮动工具栏，单击组合框控件。

　　

 

　　2、将光标放到表格中，这时光标变成细黑十字形，在表格中画一个组合框。

　　3、右击组合框，在弹出的菜单中挑选设置控件格局。

　　

 

　　在设置控件格局对话框中挑选控制选项卡，设置数据源区域为1月薪酬!$B$3:$B$14(或名字)，设置单元格链接为$J$1，如图。

　　

 

　　单击确定回到表格中，按ESC键或在任一单元格单击一下取消组合框的编辑状态。这样设置今后，咱们在下拉列表中挑选一个名字后，在J1单元格中将呈现该名字在名字列表中的相对方位。例如挑选第3个名字王霞，J1单元格中返回数值3。

　　4、在数据区C3:H14顶用VLOOKUP函数对薪酬数据进行相关，利用薪酬表中的序号数字返回薪酬数据，办法同上。

　　办法三：用VBA控件工具箱中的组合框控件

　　1、在菜单栏上右击，在弹出的菜单中挑选控件工具箱，将弹出控件工具箱浮动工具栏，单击组合框控件。

　　

 

　　2、将光标放到表格中，这时光标变成细黑十字形，在表格中画一个组合框。

　　3、右击组合框，在弹出的菜单中挑选特点。

　　

 

　　4、在特点窗口中，将ListFillRange特点设置为1月薪酬!B3:B14。关闭特点窗口 。

　　

 

　　5、按Alt+F11，翻开VBA编辑器，在个人薪酬表中增加 下列代码：

　　Private Sub ComboBox1_Change()

　　Range(c1) = ComboBox1.Value

　　End Sub

　　6、在数据区C3:H14顶用VLOOKUP函数对薪酬数据进行相关，办法同上。

　　另外，也可以运用VBA代码将职工名单增加到组合框中，有两种办法供挑选：

　　在VBA编辑器的工程窗口中，双击ThisWorkBook，在右侧的代码窗口中输入下列代码：

　　1、运用 AddItem 办法增加项目：

　　Private Sub Workbook_Open()

　　Dim vName As Variant

　　Dim i As Integer

　　创立列表

　　vName = Array(张梅, 黄中, 王霞, 应军军, 郑枭, 刘梅波, 李飞, 吴燕)

　　运用 AddItem 办法

　　For i = LBound(vName) To UBound(vName)

　　Sheet3.ComboBox1.AddItem vName(i)

　　Next i

　　End Sub

　　2、运用 List 特点增加项目：

　　Private Sub Workbook_Open()

　　Dim vName As Variant

　　Dim i As Integer

　　创立列表

　　vName = Array(张梅, 黄中, 王霞, 应军军, 郑枭, 刘梅波, 李飞, 吴燕)

　　运用 List 特点

　　Sheet3.ComboBox1.List = WorksheetFunction.Transpose(vName)

　　End Sub

 

　　其间Sheet3是VBA编辑器工程窗口中与个人薪酬表称号对应的作业表，这儿直接引证的是Sheet3，而不是作业表称号。这样，每次翻开作业簿时，名字列表会主动增加到组合框中。