admin 管理员组文章数量: 1086019
2024年3月28日发(作者：javascript基础教程中文第8版)
在Excel中制作下拉列表的几种方法
方法三：用VBA控件工具箱中的组合框控件。
1.在菜单栏上右击，在弹出的菜单中选择“控件工具箱”，将弹出“控件工具箱”浮动工具栏，单击“组合框”控件。
2.将光标放到表格中，这时光标变成细黑十字形，在表格中画一个组合框。
3.右击组合框，在弹出的菜单中选择“属性”。
4.在“属性”窗口中，将ListFillRange属性设置为“'1月工资'!B3:B14”。关闭“属性”窗口 。
5.按Alt+F11，打开VBA编辑器，在“个人工资表”中添加 下列代码：
Private Sub ComboBox1_Change()
Range("c1") =
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)
m vName(i)
Next i
End Sub
2.使用 List 属性添加项目：
Private Sub Workbook_Open()
Dim vName As Variant
Dim i As Integer
'创建列表
vName = Array("张梅", "黄中", "王霞", "应军军", "郑枭", "刘梅波", "李飞", "吴燕")
'使用 List 属性
= ose(vName)
End Sub
版权声明：本文标题：下拉列表 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1711565217a600231.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论