本篇经验将和大家分享【在Excel中，ActiveX控件组合框的实例应用！】！
工具/原料
1
电脑壹台
2
office办公软件
方法/步骤
1
如图，制作可以自动输入数值的【出库单】！
2
在【开发工具】菜单下，点击工具栏【插入】按钮！
3
在【插入】按钮的下拉框中，点击ActiveX控件组合框！
4
在表格中插入一组合框!
5
在【开发工具】菜单下，点击【设计模式】！可以对组合框进行编程设计！
6
在代码编辑框中，输入以下代码！Private Sub ComboBox1_Click()ActiveCell = ComboBox1.TextSet Rng = Sheets('数据').Range('a:a').Find(ActiveCell, , , xlWhole)For i = 1 To 3 ActiveCell.Offset(0, i) = Rng.Offset(0, i)NextEnd Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range)Me.ComboBox1.ColumnCount = 4i = Application.CountIf(Sheets('数据').Range('a:a'), '<>')Me.ComboBox1.ListFillRange = '数据!a1:d' & iIf Target.Column = 1 And Target.Row > 3 Then Me.ComboBox1.Visible = True ComboBox1.Left = Target.Left + Target.Width ComboBox1.Top = Target.TopElse Me.ComboBox1.Visible = FalseEnd IfEnd Sub
7
在【开发工具】菜单下，点击【设计模式】，取消编辑！
上一篇：智能楼宇5A系统有哪些
下一篇：看网页视频卡怎么办