1、如图，制作可以自动输入数值的【出库单】！
2、在【开发工具】菜单下，点击工具栏【插入】按钮！
3、在【插入】按钮的下拉框中，点击ActiveX控件组合框！
4、在表格中插入一组合框!
5、在【开发工具】菜单下，点击【设计模式】！可以对组合框进行编程设计！
6、在代码编辑框中，输入以下代码！Private Sub ComboBox1_Clic氯短赤亻k()ActiveCell = Com芟鲠阻缒boBox1.TextSet Rng = Sheets("数据").Range("a:a").Find(ActiveCell, , , xlWhole)For i = 1 To 3 ActiveCell.Offset(0, i) = Rng.Offset(0, i)NextEnd SubPrivate 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、在【开发工具】菜单下，点击【设计模式】，取消编辑！
8、这样就可以在组合框中选择产品了！
