Scan Barcode แล้วให้บันทึกไปอีก Sheet

[Bigtongchai17]

ช่วยด้วยครับ
- Sheet Picker Scan เมื่อ Scan ในช่อง Tag ลูกค้า แล้วให้บันทึกข้อมูลใน Sheet Scan Data ใน Column B ไปเรื่อยๆ ทุกครั้งที่สแกน
- Sheet Picker Scan เมื่อ Scan ในช่อง Part No แล้วให้บันทึกข้อมูลใน Sheet Scan Data ใน Column B ไปเรื่อยๆ ทุกครั้งที่สแกน

New ตรวจสอบNew V.3.xlsm

[snasui]

ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Private Sub txtorder_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim lstRw As Long
    If KeyCode = 13 Then 'Or KeyCode = 9 Then
        'txtWave.Activate
        If ValidateForm Then
            With Worksheets("Scan Data")
            lstRw = .Range("b" & .Rows.Count).End(xlUp).Row + 1
            .Range("b" & lstRw).Value = Me.txtWave.Value
            .Range("c" & lstRw).Value = Me.txtorder.Value
            End With
        End If
    End If
End Sub

กรณีที่ยังไม่ตรงกับความต้องการ กรุณาอธิบายวิธีการทำงานพร้อมวิธีทดสอบมาอย่างละเอียดพร้อมปรับปรุง Code มาเองก่อนเสมอ ติดตรงไหนค่อยถามกันต่อครับ

[Bigtongchai17]

เมื่อ Scan ในช่อง Part No เรียบร้อยแล้วจะให้กลับไปที่ช่อง Tag ลูกค้า เพื่อสแกนค่าใหม่ จะต้องทำอย่างไรครับ

[snasui]

กรุณาเขียน Code ให้ทำงานนั้นมาด้วยตนเองก่อน ติดปัญหาตรงไหนค่อยนำมาถามกันต่อครับ

[Bigtongchai17]

ผมลองเขียน Code มาแล้วครับ แต่พอ Scan ถึงช่อง Part No. Cursor มันไม่เด้งกลับไปที่ช่อง Tag ลูกค้า เพื่อทำการ Scan ต่อครับ
Concept
ทำการ Scan ที่ช่อง Tag ลุกค้า จากนั้นให้ Auto Enter ไปที่ช่อง Part No. จากนั้นให้ Auto บันทึกข้อมูลใน Sheet "Scan Data" และให้ CurSor Auto Enter กับไปที่่ช่อง Tag ลูกค้า วนไปเรือยๆครับ

Option Explicit

Function ValidateForm() As Boolean

txtWave.BackColor = vbWhite
txtorder.BackColor = vbWhite

ValidateForm = True

If Trim(txtWave.Value) = "" Then
MsgBox " Confirm?", vbOKOnly + vbInformation, "Wave"
txtWave.BackColor = vbRed
txtWave.Activate
ValidateForm = False

ElseIf Trim(txtorder.Value) = "" Then
MsgBox " order can't be left blank.", vbOKOnly + vbInformation, "Order"
txtorder.BackColor = vbRed
txtorder.Activate
ValidateForm = False

End If

End Function
Private Sub txtWave_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Or KeyCode = 9 Then
txtorder.Activate
End If
End Sub


Function Reset()

Application.ScreenUpdating = False

txtWave.Value = ""
txtWave.BackColor = vbWhite

txtorder.Value = ""
txtorder.BackColor = vbWhite

Application.ScreenUpdating = True

End Function
Private Sub cmdReset_Click()

Dim i As Integer

i = MsgBox("Do you want reset?", vbQuestion + vbYesNo + vbDefaultButton2, "Form Reset")
If i = vbYes Then
Call Reset

End If

End Sub
Private Sub txtorder_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

Application.ScreenUpdating = False

Dim iRow As Long
If KeyCode = 13 Then 'Or KeyCode = 9 Then
'txtWave.Activate
iRow = Sheets("Scan Data").Range("A1048576").End(xlUp).Row + 1

If ValidateForm = True Then

With ThisWorkbook.Sheets("Scan Data")

.Range("A" & iRow).Value = iRow - 1
.Range("B" & iRow).Value = txtWave.Value
.Range("C" & iRow).Value = txtorder.Value

End With
Call Reset
Else
If KeyCode = 13 Then 'Or KeyCode = 9 Then
'txtOrder.Activate
End If
Exit Sub
End If
Application.ScreenUpdating = True
End If
End Sub

[snasui]

กรุณาปรับ Code ให้แสดงเป็น Code ตามตัวอย่างในกฎการใช้บอร์ดข้อ 5 ด้านบน พร้อมแนบไฟล์ประกอบมาด้วย จะได้ในการตอบของเพื่อนสมาชิกครับ