VBA窗体扫码比较并保存数据

雪之花 · 发表于 2024-3-28 09:52

将工作表内单元格数据比较在窗体文件框内扫描输入自动比较，并保存在工作上
麻烦老师帮忙解答，感谢

3190496160 · 发表于 2024-3-28 10:41

扫描到窗体文本框中再录入到单元格中，再比较，岂不是多此一举？直接扫描到单元格中不就行了吗

雪之花 · 发表于 2024-3-28 11:30

3190496160 发表于 2024-3-28 10:41
扫描到窗体文本框中再录入到单元格中，再比较，岂不是多此一举？直接扫描到单元格中不就行了吗

老师，直接在表格上比较功能上是可以的，只是想固定输入位置而不会因为鼠标乱点击而错误

prome3 · 发表于 2024-3-28 16:57

条码在编制的时候只包含第一个竖线前面的字符串不就行了？用竖线来分隔数字，不方便人来看啊。和数字1、小写字母l太像了。

雪之花 · 发表于 2024-3-29 08:02

prome3 发表于 2024-3-28 16:57
条码在编制的时候只包含第一个竖线前面的字符串不就行了？用竖线来分隔数字，不方便人来看啊。和数字1、小 ...

条码格式编制非我个人能决定，谢谢回复

3190496160 · 发表于 2024-3-30 10:25

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If TextBox1.Text = "" Then Exit Sub
zd = TextBox1.Text
With Sheets("换料比较")
      r = .Cells(Rows.Count, 3).End(xlUp).Row + 1
      .Cells(r, 3) = zd
End With
TextBox1.Text = Split(zd, "|")(0)
TextBox2.SetFocus
End If
End Sub
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If TextBox2.Text = "" Then Exit Sub
zd = TextBox2.Text
With Sheets("换料比较")
      r = .Cells(Rows.Count, 4).End(xlUp).Row + 1
      .Cells(r, 4) = zd
      TextBox2.Text = Split(zd, "|")(0)
      If TextBox1.Text = TextBox2.Text Then
         .Cells(r, 5) = "OK"
      Else
         .Cells(r, 5) = "NG"
      End If
End With
TextBox1.SetFocus
End If
End Sub

3190496160 · 发表于 2024-3-30 10:26

窗体扫码比较并保存数据.rar (26.51 KB, 下载次数: 9)

3190496160 · 发表于 2024-3-30 10:27

扫描后按回车键，录入数据并比较，仅供参考

雪之花 · 发表于 2024-4-1 08:55

3190496160 发表于 2024-3-30 10:27
扫描后按回车键，录入数据并比较，仅供参考

感谢老师帮忙
运行比较错误的逻辑和数据保存不对

3190496160 · 发表于 2024-4-1 09:24

雪之花发表于 2024-4-1 08:55
感谢老师帮忙
运行比较错误的逻辑和数据保存不对

反馈太过于模糊了吧？

		自动登录	找回密码
密码			免费注册

[求助] VBA窗体扫码比较并保存数据

评分

评分