[Help] VBA UserForm định dạng ngày tháng

[ngoctuyen1995]

Thân chào cả nhà GPEX!
Mong cả nhà giúp đỡ em một việc ạ...!
Hiện tại em đang làm Form input để cho tiện việc Input nhanh hơn... Nhưng khi em làm tới bước Input ngày/tháng/năm thì trên Textbox Form vẫn hiện là ngày/tháng/năm nhưng khi chạy vào File excel nó lại bị chuyển thành tháng trước ngày sau... Em mò hoài mà không được.. Mong cả nhà giúp đỡ ạ...

Ví dụ: Em nhập vào 04/10/2017, Trên Textbox Form vẫn hiện 04/10/2017 nhưng khi đưa ra Excel ô J3 thì nó lại bị ngược lại đó là 10/04/2017... Em muốn khi đưa ra Excel vẫn định dạng được dd/mm/yyyy ạ...
Em có đính kèm thêm File ạ..

Mong cả nhà giúp đỡ em, chân thành cảm ơn ạ..!

 

[be_09]

Sửa lại vầy xem sao:

Private Sub UserForm_Initialize()
      auditdate = Format(auditdate, "dd/mm/yyyy")
End Sub

 

[ngoctuyen1995]

Sửa lại vầy xem sao:

Private Sub UserForm_Initialize()
      auditdate = Format(auditdate, "dd/mm/yyyy")
End Sub

em cảm ơn ạ... Nhưng em sửa vậy cũng không ăn thua ạ.. nó vẫn định dạng tháng trước ngày sau ạ

 

[batman1]

http://www.giaiphapexcel.com/dienda...̀-userform-lên-file-excel.130753/#post-821818

 

[be_09]

em cảm ơn ạ... Nhưng em sửa vậy cũng không ăn thua ạ.. nó vẫn định dạng tháng trước ngày sau ạ

Nó còn phải định dạng cột J kiểu Việt Nam nữa chứ.

 

[batman1]

Để hướng dẫn cho mình (khi quên hoặc ngồi vào máy người khác và muốn tranh thủ làm việc) hoặc cho người khác cách gõ ngày tháng cho đúng thì bạn nhập vào TextBox ngày 31 tháng Một khi hiện Form (trong UserForm_Initialize).

Private Sub UserForm_Initialize()
auditdate.Value = Format(DateSerial(year(Date), 1, 31), "Short Date")
End Sub

Dạng trong TextBox sẽ thay đổi - không nhất thiết là dd/mm/yyyy - tùy theo máy - nếu bạn mở trên máy thiết lập vd. Polish (chi nhánh của công ty Ba Lan?) thì trong TextBox là yyyy-mm-dd

Tóm lại đừng bắt phải cứng nhắc là dd/mm/yyyy

Khi đã nhập ngày tháng đúng 300%, 500% rồi thì khi đập xuống sheet

= CDate(auditdate.Value)

Thế thôi.

 

[SA_DQ]

Cũng có thể nhờ tới hàm này trợ giúp nè:

Function TextToDate(StrC As String) As Date
 Dim Nm As Integer, Th As Integer, Ng As Integer, VTr As Byte
 VTr = InStr(StrC, "/")
 If VTr Then
    Nm = CInt(Right(StrC, 4)):              Ng = CInt(Left(StrC, VTr - 1))
    StrC = Mid(StrC, VTr + 1, Len(StrC)):   VTr = InStr(StrC, "/")
    Th = CInt(Left(StrC, VTr - 1))
    TextToDate = DateSerial(Nm, Th, Ng)
 End If
End Function

Khi đó
[J3].Value=TextToDate(Me!tbNgay.Text)

 

[ngoctuyen1995]

Em cảm ơn cả nhà đã giúp em ạ... Em đã làm được rồi ạ..

Chúc cả nhà sức khoẻ và thành công

 

[ThiKienHoa]

Em cảm ơn cả nhà đã giúp em ạ... Em đã làm được rồi ạ..

Chúc cả nhà sức khoẻ và thành công

Bài đã được tự động gộp: 31/5/19

Cho minh xin fife ban da chinh sua xong roi nha, mail minh thikienhoa@hcm.fpt.vn
Thanks nhieu

Bài đã được tự động gộp: 31/5/19

Em cảm ơn cả nhà đã giúp em ạ... Em đã làm được rồi ạ..

Chúc cả nhà sức khoẻ và thành công

ban post file ban lam duoc roi, giup dum nha minh cung dang bi nhu ban thanks hoac gui file qua mail minh nha thikienhoa@hcm.pft.vn , Thanks nhieu

 

[zungnn]

Em cảm ơn cả nhà đã giúp em ạ... Em đã làm được rồi ạ..

Chúc cả nhà sức khoẻ và thành công

ban vui lòng cho mình file bạn đã làm được nhé zungnn@yahoo.com.vn , Cảm ơn nhiều

 

[Chian91]

Em cảm ơn cả nhà đã giúp em ạ... Em đã làm được rồi ạ..

Chúc cả nhà sức khoẻ và thành công

Bác hướng dẫn cho e được khong ạ

 

[Doãn Quốc Bình]

mình muốn định dạng kiểu Hà nội, ngày 24 tháng 10 năm 2021 thì làm sao ạ?