Private Sub CommandButton1_Click() With Sheets("条码仓") .Range("A65536").End(xlUp).Offset(1, 0) = TextBox1.Text .Range("A65536").End(xlUp).Offset(0, 6) = Date .Range("A65536").End(xlUp).Offset(0, 7) = Now TextBox2.Value = Val(TextBox2.Value) + 1 TextBox1 = "" TextBox1.SetFocus End WithEnd SubPrivate Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then CommandButton1_ClickEnd Sub基本代码已写好,窗体TextBox1回车触发Button1,储存至条码仓A列最后一个单元格,并在G列返回日期;H列返回时间点现求教在此代码上增设2段代码该怎么写:一. 开头增设一个判断条件,判断TextBox1输入是否满足14位数字,是则继续,否则终止并提示:“条码错误,请检查并重新扫描”; 二. ①. 增设“条码仓” B 列返回 A 列左起11位数字(商品编号); ②. C 列返回 A 列右起3位数字(商品码数); ③. D 列用 B 列查找与引用 “商品资料”中 $A:$D , 并返回第2列数据(客户款号);(以 VLookup 用法描叙) ④. E 列用 B 列查找与引用 “商品资料”中 $A:$D , 并返回第3列数据(公司货号); ⑤. F 列用 B 列查找与引用 “商品资料”中 $A:$D , 并返回第4列数据(货品名称);最后在每次触发执行结束时自动保存一次工作表求教大神完整代码改怎么写!(急)
If Len(TextBox1.Text) = 14 Then '长度14位条码
With Sheets("条码仓")
.Range("A65536").End(xlUp).Offset(1, 0) = TextBox1.Text
.Range("A65536").End(xlUp).Offset(0, 1) = Left(TextBox1.Text, 11) '11位商品编号
.Range("A65536").End(xlUp).Offset(0, 2) = Right(TextBox1.Text, 3) '3位商品码数
.Range("A65536").End(xlUp).Offset(0, 3).Formula = "vlookup(" & .Range("A65536").End(xlUp).Offset(0, 1).Address & ",'商品资料'!A:D,2,0)" '客户款号
.Range("A65536").End(xlUp).Offset(0, 4).Formula = "vlookup(" & .Range("A65536").End(xlUp).Offset(0, 1).Address & ",'商品资料'!A:D,3,0)" '公司货号
.Range("A65536").End(xlUp).Offset(0, 5).Formula = "vlookup(" & .Range("A65536").End(xlUp).Offset(0, 1).Address & ",'商品资料'!A:D,4,0)" '货品名称
.Range("A65536").End(xlUp).Offset(0, 6) = Date
.Range("A65536").End(xlUp).Offset(0, 7) = Now
TextBox2.Value = Val(TextBox2.Value) + 1
TextBox1 = ""
TextBox1.SetFocus
ActiveWorkbook.Save
End With
End If追问
If Len(TextBox1.Text) = 14 Then
改成
If TextBox1.Text"" and Len(TextBox1.Text) = 14 Then
TEXTBOX清空后又触发了