1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Private Sub CommandButton1_Click() '单击按钮时发生If TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" Then '如果三个文本框都已输入数据If WorksheetFunction.CountIf(Range([c1], [c1048576].End(xlUp)),Me.TextBox2.Value) > 0 Then '如果订单号重复If MsgBox("接单表中已有该订单号，是否保留本笔资料？", vbQuestion+vbYesNo)=vbYes Then GoTo only '如果选择保留则将数据录入工作表，否则取消Else '如果输入的订单号码未重复，则将之输出到接单表only:[a1048576].End(xlUp).Offset(1)=ComboBox1[b1048576].End(xlUp).Offset(1)=TextBox1: TextBox1=""[c1048576].End(xlUp).Offset(1)=TextBox2: TextBox2=""[d1048576].End(xlUp).Offset(1)=TextBox3: TextBox3=""End IfElse '如果三个文本框有任何一个或者二个或者三个空白MsgBox "请填写完整！", 64, "友情提示" '提示End IfMe.ComboBox1.SetFocus '将光标定位于复合框End SubPrivate Sub UserForm_Activate() '窗体激活时运行With ComboBox1 .List=Array("龙华公司", "顺兴公司", "长兴公司", "大连公司") '为复合框添加下拉表 .Value="龙华公司" '为复合框设置默认值 End WithEnd Sub
5、用快捷键F5运行窗体，选择下单客户，回车后光标定位于“品名”栏。相继输入所有信息后聪艄料姹再回车，程序自动将录入的信息添加至接单表中，同时清空三个文本框
