怎样使用VBA文本框向工作表添加不重复订单号？

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运行窗体，选择下单客户，回车后光标定位于“品名”栏。相继输入所有信息后再回车，程序自动将录入的信息添加至接单表中，同时清空三个文本框