excel怎么制作下拉列表 excel制作下拉列表教程
方法三:用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,而不是工作表名称。这样,每次打开工作簿时,姓名列表会自发添加到组合框中。更多精彩文章请关注下载之家资讯教程频道。 office办公软件下载:https://www.ruanjianying.com/z/office2013/ 更多资讯请点击:https://www.ruanjianying.com/article/ 如果大家想了解更多关于软件最新资讯,请持续关注本站,本站小编将在第一时间为大家带来最好看、最有趣、最新鲜的软件资讯。更多精彩内容,尽在软件侠下载站。 |