excel怎么制作下拉列表 excel制作下拉列表教程

　　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，而不是工作表名称。这样，每次打开工作簿时，姓名列表会自发添加到组合框中。更多精彩文章请关注下载之家资讯教程频道。

　　office办公软件下载：https://www.downkr.com/z/office2013/

　　更多资讯请点击：https://www.downkr.com/article/

　　如果大家想了解更多关于软件最新资讯，请持续关注本站，本站小编将在第一时间为大家带来最好看、最有趣、最新鲜的软件资讯。更多精彩内容，尽在当客下载站。