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 If
Else '如果三个文本框有任何一个或者二个或者三个空白
MsgBox "请填写完整！", 64, "友情提示" '提示
End If
Me.ComboBox1.SetFocus '将光标定位于复合框
End Sub
Private Sub UserForm_Activate() '窗体激活时运行
With ComboBox1
.List=Array("龙华公司", "顺兴公司", "长兴公司", "大连公司") '为复合框添加下拉表
.Value="龙华公司" '为复合框设置默认值
End With
End Sub
5、用快捷键F5运行窗体，选择下单客户，回车后光标定位于“品名”栏。相继输入所有信息后再回车，程序自动将录入的信息添加至接单表中，同时清空三个文本框
