ค้นหา / แก้ไข ข้อมูล

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub CommandButton3_Click()
     Dim Row As Long
 
'    Row = Application.Match(TextBox13.Text, Sheets(2).Range("a:a"), 0)
    With Sheets(2)
         If Application.CountIf(.Range("a4", .Range("a" & .Rows.Count).End(xlUp)), TextBox13.Text) Then
            'Set myRange = .Range("A:P")
            Row = Application.Match(TextBox13.Text, .Range("a:a"), 0)
        ElseIf Application.CountIf(.Range("b4", .Range("b" & .Rows.Count).End(xlUp)), TextBox13.Text) Then
            'Set myRange = .Range("B:P")
            Row = Application.Match(TextBox13.Text, .Range("b:b"), 0)
        End If
        'Other code...
End Sub

[mmnck]

Code มีปัญหาในส่วนของการเพิ่มข้อมูลพนักงานคะ ฟังก์ชั่นวันที่ใส่ลงไปแล้ว แต่ไม่มั่นใจว่าถูกรึป่าว
เพราะเวลากดบันทึกเวลา ไม่ลงไปคะ แต่หากไม่ใส่ฟังก์ชั่น วันที่ก็จะสลับกัน

Code จะอยู่ใน SavePer ในส่วนของปุ่ม Save

Code: Select all

ws.Cells(irow, 16).Value = WorksheetFunction.Text(TextBox12.Value, "dd/mm/yyyy")

[snasui]

ผมลองกรอกข้อความ พบว่าวันที่บันทึกตามที่กรอกไปครับ

ช่วยเขียนวิธีการทดสอบให้พบข้อผิดพลาดด้วยครับ

[mmnck]

พบว่าเมื่อกรอก 10/07/2560
เวลาบันทึกจะบันทึกเป็น 7 ตุลาคม 2560

[snasui]

UserForm ใด กรอกข้อมูลที่ช่องใดบ้าง คลิกปุ่มใด สังเกตได้จากเซลล์ใด อธิบายมาให้ครบถ้วนครับ