แสดงวันที่ในเซลผิดรูแบบ จากการส่งมาจาก textbox

[yodpao.b]

แสดงวันที่ในเซลผิดรูแบบ จากการส่งมาจาก textbox

รูปแบบที่ 1 ใช้ code นี้ ผิดครับ
code : Sheets("calibrateREQSIT").Cells(i, 8).value = Me.TextBox13.value
กรอกค่า 11/6/2020 ลง textbox
sheet แสดงผลที่ได้ 6/11/2020 เดือนขึ้นก่อน

รูปแบบที่ 2 ใช้ code นี้ ผิดครับ
code : Sheets("calibrateREQSIT").Cells(i, 8).value = Format(Me.TextBox13.value, "DD/MM/YYYY")
กรอกค่า 11/6/2020 ลง textbox
sheet แสดงผลที่ได้ 11/6/2020 เป็นข้อความครับ

แสดงผลที่ได้(ผิด)

1.JPG

มีต่อขั้นตอนทำงาน

[yodpao.b]

ขั้นตอนทำงาน

0.JPG

คลิกปุ่ม

2.JPG

ทำตามตัวเลข
ในช่องวันที่ให้ใส่ ตามตัวอย่างที่ให้ไว้ดังนี้
กรอกค่า 11/6/2020 ลง textbox

มีต่อ code

[yodpao.b]

code ที่ใช้งานอยู่ ในปุ่ม Send

Code: Select all

Private Sub CommandButton1_Click()

    If Me.TextBox13.Value = "" Or Me.TextBox14.Value = "" Then
            MsgBox "ท่านกรอกข้อมูลไม่ครบ", vbOKOnly + vbInformation, "ไม่สามารถส่งต่อข้อมูลได้"
        Exit Sub
    End If

    'ถ้าข้อความใน txtIDStart11 ตรงกับข้อความใน คอลัม A ให้ทำก่อน Else ถ้าไม่เหมือนกันให้ทำหลัง Else
    If Application.CountIf(Sheets("calibrateREQSIT").Range("A:A"), Me.txtIDStart11) > 0 Then
        LastRow = Sheets("calibrateREQSIT").Range("A" & Rows.Count).End(xlUp).Row
            For i = 6 To LastRow
                If Sheets("calibrateREQSIT").Cells(i, "A").Value = (Me.txtIDStart11.Text) Then
'                    Sheets("calibrateREQSIT").Cells(i, 8).value = Me.TextBox13.value
                    Sheets("calibrateREQSIT").Cells(i, 8).Value = Format(Me.TextBox13.Value, "DD/MM/YYYY")
'                    Sheets("calibrateREQSIT").Cells(i, 8).value = Me.TextBox13.DateValue(Me.TextBox13.Text)
'                    Sheets("calibrateREQSIT").Cells(i, 8).value = DateValue(Me.TextBox13.Text)
                    Sheets("calibrateREQSIT").Cells(i, 9).Value = Me.TextBox14.Value
                    Exit For
                End If
            Next
                    Else
                        Dim irow As Long
                        Dim ws As Worksheet
                        Set ws = Worksheets("calibrateREQSIT")
                        'find first empty row in database
                        irow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
                        'copy the data to the database
                        ws.Cells(irow, 1).Value = Me.TextBox11.Value
                        'ws.Cells(irow, 2).value = Me.TextBox12.value
                        ws.Cells(irow, 8).Value = Me.TextBox13.Value
                        ws.Cells(irow, 9).Value = Me.TextBox14.Value
                        'ws.Cells(irow, 5).value = Me.TextBox15.value

    End If


   Unload Me
'    Call ProtectAllsheets
'    Range("A1").Select
    
Sheets("calibrateREQSIT").Select
End Sub

ความหมายคือ
ถ้าข้อความใน txtIDStart11 ตรงกับข้อความใน คอลัม A ให้ทำ นำข้อมูลบันทึกทับของเดิม
ถ้าไม่เหมือนกันให้บันทึกที่บรรทัดสุดท้าย

หลังจากทำแล้ว ถูกต้อง ผิดแค่วันที่ ครับ
code ที่ต้องสงสัย มี 2 code ครับ ดังนี้

3.JPG

4.JPG

[yodpao.b]

ไฟล์แนบ
ใช้ไฟล์นี้ดีกว่าครับ
แก้ ลิงค์ แล้วครับ

[puriwutpokin]

ลองปรับส่วนนี้ดูครับ

Code: Select all

Sheets("calibrateREQSIT").Cells(i, 8).Value = Format(Me.TextBox13.Value, "mm/dd/yyyy")

[yodpao.b]

ขอบคุณมากครับ
คัวพิมพ์ใหญ่นี่ผมไป copy จาก web ฝรั่งเลยนะครับ
งง
ที่แท้ใช้ตัวเล็ก