在Excel中，ActiveX控件组合框的实例应用！

1、如图，制作可以自动输入数值的【出库单】！

2、在【开发工具】菜单下，点击工具栏【插入】按钮！

3、在【插入】按钮的下拉框中，点击ActiveX控件组合框！

4、在表格中插入一组合框!

5、在【开发工具】菜单下，点击【设计模式】！可以对组合框进行编程设计！

6、在代码编辑框中，输入以下代码！

Private Sub ComboBox1_Click()

ActiveCell = ComboBox1.Text

Set Rng = Sheets("数据").Range("a:a").Find(ActiveCell, , , xlWhole)

For i = 1 To 3

  ActiveCell.Offset(0, i) = Rng.Offset(0, i)

Next

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Me.ComboBox1.ColumnCount = 4

i = Application.CountIf(Sheets("数据").Range("a:a"), "<>")

Me.ComboBox1.ListFillRange = "数据!a1:d" & i

If Target.Column = 1 And Target.Row > 3 Then

  Me.ComboBox1.Visible = True

  ComboBox1.Left = Target.Left + Target.Width

  ComboBox1.Top = Target.Top

Else

  Me.ComboBox1.Visible = False

End If

End Sub

7、在【开发工具】菜单下，点击【设计模式】，取消编辑！

8、这样就可以在组合框中选择产品了！