窗体条码分列提取保存

天真无鞋

求老师帮忙写代码，窗体条码，在TextBox分列显示，并保存，详见附件说明，感觉分列有一定复杂度。

小凡、、、

是以回车结束吗？正常扫码枪都是以回车结束扫描信息的，如果是的话，感觉不用设置录入按钮了，不然还要一次一次点

天真无鞋

小凡、、、 发表于 2024-9-4 15:17
是以回车结束吗？正常扫码枪都是以回车结束扫描信息的，如果是的话，感觉不用设置录入按钮了，不然还要一次 ...

对回车自动完成保存

天真无鞋

小凡、、、 发表于 2024-9-4 15:17
是以回车结束吗？正常扫码枪都是以回车结束扫描信息的，如果是的话，感觉不用设置录入按钮了，不然还要一次 ...

关于分列D/C是向右数，从第17位开始提取6位数。

小凡、、、

天真无鞋 发表于 2024-9-4 15:36
关于分列D/C是向右数，从第17位开始提取6位数。

d/c 取17开始6位，这个数量看不懂，提取Q后面一个字符？

天真无鞋

小凡、、、 发表于 2024-9-4 16:17
d/c 取17开始6位，这个数量看不懂，提取Q后面一个字符？

从最后一位数，数到第17位开始提取6个字符，就是SH2435
提取数量:从Q字符后面开始，到1T后面结束，就是数量。

天真无鞋

小凡、、、 发表于 2024-9-4 16:17
d/c 取17开始6位，这个数量看不懂，提取Q后面一个字符？

比如从最后一位开始数，数到第17位就是S，从S开始提取6位数就是SH2435.

小凡、、、

天真无鞋 发表于 2024-9-4 16:37
比如从最后一位开始数，数到第17位就是S，从S开始提取6位数就是SH2435.

找了个笨方法切回 窗体

天真无鞋

小凡、、、 发表于 2024-9-4 17:16
找了个笨方法切回 窗体

谢谢老师，正确。

醉眼看尘世

我也来看看，窗体部分控件代码如下

1. Private Sub CommandButton2_Click()
   
2.     Dim i, j As Integer, sH As Worksheet
   
3.     Dim rngNo As Range
   
4.     Dim r As Long
   
5.     If Me.TextBox1 = "" Then
   
6.         MsgBox "请扫码", , "提示"
   
7.     ElseIf Len(TextBox1.Text) > 55 Then
   
8.         MsgBox "条码超过55个字符，请重新扫描！"
   
9.     ElseIf Me.TextBox3 = "" Or Me.TextBox4 = "" Or Me.TextBox5 = "" Then
   
10.         MsgBox "条码不符合规范"
    
11.     Else
    
12.         Set sH = Sheets("数据库")
    
13.         Set rngNo = sH.Columns(2).Find(UserForm1.TextBox1.Value)
    
14.         If Not rngNo Is Nothing Then
    
15.             r = rngNo.Row
    
16.         Else
    
17.             r = sH.Range("a" & Rows.Count).End(xlUp).Row + 1
    
18.             If r < 3 Then r = 3
    
19.         End If
    
20.         With sH
    
21.             .Range("a" & r).Value = r - 2
    
22.             .Range("b" & r).Value = TextBox1.Text
    
23.             .Range("g" & r).NumberFormatLocal = "yyyy-mm-dd": .Range("g" & r).Value = Date
    
24.             .Range("h" & r).NumberFormatLocal = "hh:mm:ss": .Range("h" & r).Value = Time
    
25.             .Range("I" & r).Value = Val(TextBox2.Text)
    
26.             .Cells(r, "D") = Me.TextBox3
    
27.             .Cells(r, "E") = Me.TextBox4
    
28.             .Cells(r, "F") = Me.TextBox5
    
29.         End With
    
30.         ThisWorkbook.Save
    
31.         Application.EnableEvents = False
    
32.         For i = 1 To 5
    
33.             Me.Controls("TextBox" & i) = ""
    
34.         Next i
    
35.         Application.EnableEvents = True
    
36.         TextBox1.SetFocus
    
37.     End If
    
38. End Sub
    
39. 
    
40. Private Sub TextBox1_Change()
    
41. Me.TextBox2 = Len(Me.TextBox1)
    
42. If Me.TextBox1 = "" Then
    
43.     For i = 3 To 5
    
44.         Me.Controls("TextBox" & i) = ""
    
45.     Next
    
46. End If
    
47. 
    
48. End Sub
    
49. 
    
50. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    
51. Dim tmpStr$, reGxp As Object, tmPobj As Object
    
52. Set reGxp = CreateObject("vbScript.regExp")
    
53. reGxp.Global = True
    
54. reGxp.Pattern = ".{7}(\d+)\D+(\d+)1T\d+(\D+\d{4})"
    
55. If KeyCode = 13 Then
    
56.     KeyCode = 0
    
57.     tmpStr = Me.TextBox1 & ""
    
58.     If reGxp.test(tmpStr) Then
    
59.         Set tmPobj = reGxp.Execute(tmpStr)
    
60.         Me.TextBox3 = tmPobj(0).submatches(0)
    
61.         Me.TextBox4 = tmPobj(0).submatches(1)
    
62.         Me.TextBox5 = tmPobj(0).submatches(2)
    
63.     End If
    
64. End If
    
65. 
    
66. End Sub
    
67. 
    

复制代码