อยากให้ Textbox ส่งค่าเป็นวันที่และเวลาที่บันทึกน่ะครับ

[niorpe]

อยากถามเรื่องค่าของวันที่ ตอนนี้ผมติดอยู่เรื่องเดียวครับ
คื่อ ใน textbox ที่ผมให้แสดงวันที่เวลาบันทึกแล้วมันจะส่งค่าเป็นตัวหนังสือมาแทนวันที่ คือ ส่งมา 15-ส.ค.-16 ซึ่งผมจะใช้ sumifs มันจะอ่านค่าวันที่ไม่ได้เพราะมันเป็นตัวอักษรไม่ใช่วันที่ รบกวนด้วยนะครับ

Code: Select all

Private Sub Save_Click()
Dim ws As Worksheet
Dim addto As Range

Set ws = Sheet3
Set addto = ws.Range("a65356").End(xlUp).Offset(1, 0)
With ws
addto = texDate.Value
addto.Offset(0, 1).Value = Type1.Value
addto.Offset(0, 2).Value = ID_code.Value
addto.Offset(0, 3).Value = Description.Value
addto.Offset(0, 4).Value = Price.Value
addto.Offset(0, 5).Value = Number.Value
End With

texDate.Value = Format(Date, "Medium Date")
Type1.Value = ""
ID_code.Value = ""
Description.Value = ""
Price.Value = ""
Number.Value = ""
End Sub

Code: Select all

Private Sub texDate_Enter()
curdate = Now
texDate.Value = Format(Date, "medium date")

End Sub

[snasui]

แนบตัวอย่างไฟล์ Excel มาด้วยจะได้ช่วยตรวจสอบได้ครับ

[niorpe]

ขนาดไฟล์ 5Mb ครับผมจะส่งให้แล้วมันใหญ่เกินไป
แต่ผมบันทึกแล้วส่งรูปมาให้ดูตามรูปเลยครับ พอเปลี่ยน Format ปีมันจะเปลี่ยนเป็น 16/08/1916 0:00:00 อันนี้แก้อย่างไรดีครับ

[Serverchita]

ลองวิธีนี้ดูนะครับ

Code: Select all

texDate.Value = Format(Date, "DD/MM/YYYY") & Format(Time(), "HH:MM:SS") 

[niorpe]

ได้แล้วครับ ได้ตรง "DD/MM/YYYY" นี่แหล่ะ
ขอบคุณมากครับ