方法三:用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/

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