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

雪之花

3190496160 发表于 2024-4-1 09:24
反馈太过于模糊了吧？

自己小修改后调试可以了，谢谢老师！


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, 4).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"
            Application.SendKeys "{TAB}"
            Application.SendKeys "{TAB}"
        Else
            .Cells(r, 5) = "NG"
            Application.SendKeys "{TAB}"
        End If
    End With
    TextBox1.SetFocus
End If
End Sub

雪之花

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

老师帮忙A列按C列的内容加个序号，非常感谢

3190496160