Snasui Excel Forum

'---Other code----
    .Cells(r, 13).NumberFormat = "dd/mmm/yy"
    .Cells(r, 13) = Application.Text(TextBox9.Text, "0")
'---Other code----

:D ลองปรับ Code เป็นด้านล่างครับ

[code]'---Other code----
.Cells(r, 13).NumberFormat = "dd/mmm/yy"
.Cells(r, 13) = Application.Text(TextBox9.Text, "0")
'---Other code----
[/code]

ผมต้องการให้ เมื่อเรากรอกวันที่ใน TextBox9 แล้วค่านี้จะไปปรากฏใน Column M ของแถวสุดท้ายครับ
เช่นผมกรอกวันที่ 7/11/2016 จะไปปรากฏที่ Column M แถวสุดท้ายเป็น 7-Nov-16

:D จาก Statement [c].Cells(r, 13) = Format(Date, "[$-409]d/mmm/yy;@")[/c]

[c]Date[/c] หมายถึงวันที่ปัจจุบันครับ

ไม่ทราบว่าต้องการให้เซลล์มีค่าเป็นวันที่เท่าใด โดยดูจากค่าใด ช่วยอธิบายมาอย่างละเอียดครับ

Private Sub CommandButton1_Click()
Dim r
With Sheets("Test")
    r = .Range("A" & Rows.Count).End(xlUp).Row + 1
    .Cells(r, 1) = ModelBox.Text
    .Cells(r, 2) = PartNoBox.Text
    .Cells(r, 4) = ModelBox.Text
    .Cells(r, 5) = PartNoBox.Text
    .Cells(r, 7) = PGBox.Text
    .Cells(r, 8) = RGBox.Text
    .Cells(r, 9) = JigBox.Text
    .Cells(r, 11) = QtyBox.Text
    .Cells(r, 13) = TextBox9.Text
    .Cells(r, 13) = Format(Date, "[$-409]d/mmm/yy;@")
    .Cells(r, 12) = TransferBox.Text
End With
End Sub

Private Sub CommandButton2_Click()
Unload UserForm1
End Sub

ผมลองใช้ Userform เพื่อให้ป้อนข้อมูลซึ่งตอนนี้มีปัญหาคือ
ผมใส่วันที่อะไรไปก็ตาม มันจะขึ้น 1-Dec-16
เช่นถ้าใส่ 7/11/2016 มันก็จะขึ้น 1-Dec-16
ไม่ทราบว่าแก้ไขอย่างไรดีครับ

[code]Private Sub CommandButton1_Click()
Dim r
With Sheets("Test")
r = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Cells(r, 1) = ModelBox.Text
.Cells(r, 2) = PartNoBox.Text
.Cells(r, 4) = ModelBox.Text
.Cells(r, 5) = PartNoBox.Text
.Cells(r, 7) = PGBox.Text
.Cells(r, 8) = RGBox.Text
.Cells(r, 9) = JigBox.Text
.Cells(r, 11) = QtyBox.Text
.Cells(r, 13) = TextBox9.Text
.Cells(r, 13) = Format(Date, "[$-409]d/mmm/yy;@")
.Cells(r, 12) = TransferBox.Text
End With
End Sub

Private Sub CommandButton2_Click()
Unload UserForm1
End Sub[/code]