Giúp VBA tự nhập ngày tháng nhưng sai định dạng dd/mm/yyyy (2 người xem)

[nguyenvankhang]

Chào các anh, các bác!
Em mong muốn các anh giúp em như sau :

Mày mò tìm tòi em mãi mới làm được 1 Form nhập liệu . nhưng khổ nỗi nó lại bị như thế này
- Trong textbox ngày tháng (textbox5) khi nhập ngày tháng theo định dạng dd/mm/yyyy vào thì trong textbox nó lại tự động chuyển thành mm/dd/yyyy , nhưng bấm nhập vào sheet thì nóp lại hiện đúng dd/mm/yyyy .

Em muốn các bác giúp em cho nó hiển thị trong texbox đúng định dạng dd/mm/yyyy , khi nhập vào sheet thì vẫn đúng định dạng dd/mm/yyyy.

Xin cảm ơn!

 

[huuthang_bd]

Chào các anh, các bác!
Em mong muốn các anh giúp em như sau :

Mày mò tìm tòi em mãi mới làm được 1 Form nhập liệu . nhưng khổ nỗi nó lại bị như thế này
- Trong textbox ngày tháng (textbox5) khi nhập ngày tháng theo định dạng dd/mm/yyyy vào thì trong textbox nó lại tự động chuyển thành mm/dd/yyyy , nhưng bấm nhập vào sheet thì nóp lại hiện đúng dd/mm/yyyy .

Em muốn các bác giúp em cho nó hiển thị trong texbox đúng định dạng dd/mm/yyyy , khi nhập vào sheet thì vẫn đúng định dạng dd/mm/yyyy.

Xin cảm ơn!

Để chắc ăn thì cứ chỉ rõ cho nó cái nào là ngày, cái nào là tháng, cái nào là năm.
Thêm hàm này

Function DMYtoDate(DMY As String) As Date
    DMYtoDate = VBA.DateSerial(Right(DMY, 4), Mid(DMY, 4, 2), Left(DMY, 2))
End Function

Và sửa lại dòng ghi ngày tháng

.Offset(dongcuoi, 4).Value2 = DMYtoDate(Me.TextBox5.Text)

 

[nguyenvankhang]

Vẫn không được bác à . bác tải file về chạy thử giúp em

 

[huuthang_bd]

Vẫn không được bác à . bác tải file về chạy thử giúp em

Tôi thử rồi mới trả lời chứ sao biết hướng dẫn bạn sửa code thế nào.

 

[nguyenvankhang]

Tôi thử rồi mới trả lời chứ sao biết hướng dẫn bạn sửa code thế nào.

Em làm như bác nói rồi . thì nó oke . Nhưng luc snhaapj ngày tháng ở textbox dangk dd/mm/yy khi chuyển sang textbox khác nó nó lại thành dạng mm/dd/yyyy

 

[viettho]

Mình có sửa chút trong trong Sub Nhap bạn coi đúng ý bạn không nhé

 

[nguyenvankhang]

Mình có sửa chút trong trong Sub Nhap bạn coi đúng ý bạn không nhé

Đã oke . Nhưng bác xem luon giúp em . khi nhập dạng dd/mm/yy theo kiểu 14/11/17 . nó lại tự thành 11/14/2017 ?

 

[PacificPR]

Đã oke . Nhưng bác xem luon giúp em . khi nhập dạng dd/mm/yy theo kiểu 14/11/17 . nó lại tự thành 11/14/2017 ?

Bạn qua đây xem cái này http://www.giaiphapexcel.com/diendan/threads/Định-dạng-ngày-trong-textbox.123606/#post-773704

 

[nguyenvankhang]

em đọc khó hiểu . bác sửa file giúp em được không ạ

 

[PacificPR]

em đọc khó hiểu . bác sửa file giúp em được không ạ

Như thầy ndu96081631 đã nói thì bạn "chém" cái TextBox làm 3 khúc rồi dùng DateSerial nối lại là xong

Function Chuyenngay(Txt As String, d As String) As Date
    Dim Tmp
    Txt = Format(Txt, "dd/mm/yyyy")
    Tmp = Split(Txt, d)
    Chuyenngay = DateSerial(Tmp(2), Tmp(1), Tmp(0))
End Function

Private Sub TextBox5_AfterUpdate()
    Me.TextBox5 = Format(Chuyenngay(Me.TextBox5, "/"), "dd/mm/yyyy")
End Sub

 

[viettho]

Đã oke . Nhưng bác xem luon giúp em . khi nhập dạng dd/mm/yy theo kiểu 14/11/17 . nó lại tự thành 11/14/2017 ?

Thì khi bạn nhập liệu bạn cứ gỏ vào 14/11/17 nó vẫn sẽ tự chuyển thành 14/11/2017 nhé bạn

 

[viettho]

Bạn cũng có thể sử dụng code này vào textbox5 trên textbox cũng sẽ hiển thị đúng định dạng dd/mm/yyyy
Private Sub textbox5_Change()
Dim dDate As Date
dDate = DateSerial(Year(Date), Month(Date), Day(Date))
textbox5.Value = Format(textbox5.Value, "dd/mm/yyyy")
End Sub

 

[ndu96081631]

Như thầy ndu96081631 đã nói thì bạn "chém" cái TextBox làm 3 khúc rồi dùng DateSerial nối lại là xong

Function Chuyenngay(Txt As String, d As String) As Date
    Dim Tmp
    Txt = Format(Txt, "dd/mm/yyyy")
    Tmp = Split(Txt, d)
    Chuyenngay = DateSerial(Tmp(2), Tmp(1), Tmp(0))
End Function

Private Sub TextBox5_AfterUpdate()
    Me.TextBox5 = Format(Chuyenngay(Me.TextBox5, "/"), "dd/mm/yyyy")
End Sub

Đã khai báo biến Txt as String thì sẽ không có chuyện Txt = Format(Txt, "dd/mm/yyyy") <---- Đoạn này vô tác dụng
--------------------------------------------

Bạn cũng có thể sử dụng code này vào textbox5 trên textbox cũng sẽ hiển thị đúng định dạng dd/mm/yyyy
Private Sub textbox5_Change()
Dim dDate As Date
dDate = DateSerial(Year(Date), Month(Date), Day(Date))
textbox5.Value = Format(textbox5.Value, "dd/mm/yyyy")
End Sub

Biến dDate dùng để làm gì vậy bạn?

 

[nguyenvankhang]

em làm theo tất cả các anh ở trên mà vẫn không được

 

[nguyenvankhang]

Đã khai báo biến Txt as String thì sẽ không có chuyện Txt = Format(Txt, "dd/mm/yyyy") <---- Đoạn này vô tác dụng
--------------------------------------------

Biến dDate dùng để làm gì vậy bạn?

Anh là Super M . anh giúp em được không ?

 

[nguyenvankhang]

Vấn đề của em nó là ở chỗ
Public Function SuaNgay(NgayBatKy) ở Module1

- Em mong muốn các bác giúp em sửa để khi nhập 15/11/17 thì nó tự chuyển sang 15/11/2017

Thanks các bác

Public Function SuaNgay(NgayBatKy)
ws = NgayBatKy
If Not IsDate(ws) Then
MsgBox "Nhap sai dinh dang ngay thang. Theo dinh dang: dd/mm/yyyy- Vi du: 15/2/18"
SuaNgay = Date
Else
If InStr(1, ws, "/") > 0 Then
KT = "/"
ElseIf InStr(1, ws, "-") > 0 Then
KT = "-"
End If

WP = InStr(1, ws, KT)
WDD = Left(ws, WP - 1)
ws = Mid(ws, WP + 1)
WP = InStr(1, ws, KT)
If WP = 0 Then
WMM = ws
WYY = Year(Date)
Else
WMM = Left(ws, WP - 1)
WYY = Mid(ws, WP + 1)
End If
SuaNgay = DateSerial(WYY, WMM, WDD)
End If
End Function

 

[PacificPR]

Vấn đề của em nó là ở chỗ
Public Function SuaNgay(NgayBatKy) ở Module1

- Em mong muốn các bác giúp em sửa để khi nhập 15/11/17 thì nó tự chuyển sang 15/11/2017

Thanks các bác

Public Function SuaNgay(NgayBatKy)
ws = NgayBatKy
If Not IsDate(ws) Then
MsgBox "Nhap sai dinh dang ngay thang. Theo dinh dang: dd/mm/yyyy- Vi du: 15/2/18"
SuaNgay = Date
Else
If InStr(1, ws, "/") > 0 Then
KT = "/"
ElseIf InStr(1, ws, "-") > 0 Then
KT = "-"
End If

WP = InStr(1, ws, KT)
WDD = Left(ws, WP - 1)
ws = Mid(ws, WP + 1)
WP = InStr(1, ws, KT)
If WP = 0 Then
WMM = ws
WYY = Year(Date)
Else
WMM = Left(ws, WP - 1)
WYY = Mid(ws, WP + 1)
End If
SuaNgay = DateSerial(WYY, WMM, WDD)
End If
End Function

Bạn thử thay lại cái dòng này thử xem sao SuaNgay = Format(DateSerial(WYY, WMM, WDD), "dd/mm/yyyy")

 

[ndu96081631]

Anh là Super M . anh giúp em được không ?

Trời! Bạn tưởng Super M là Super Man chắc?
-----------------------
Tôi sửa lại code thế này:
1> Code trong module:

Function DMYtoDate(ByVal DMY As String) As Date
  'Ngày tháng phai nhap theo chuan "dd/mm/yyyy" hoac "dd-mm-yyyy"
  Dim aTmp
  DMY = Replace(Replace(DMY, "-", vbBack), "/", vbBack)
  If InStr(1, DMY, vbBack) Then
    aTmp = Split(DMY, vbBack)
    DMYtoDate = DateSerial(aTmp(2), aTmp(1), aTmp(0))
  End If
End Function

2> Code trong Form

Private Sub NHAP_Click()
  With Worksheets("Sheet1").Range("C60000").End(xlUp)
    .Offset(1, 0).Value = Me.TextBox1.Text
    .Offset(1, 1).Value = Me.TextBox2.Text
    With .Offset(1, 2)
      .NumberFormat = "dd/mm/yyyy"
      .Value = DMYtoDate(Me.TextBox3.Text)
    End With
    .Offset(1, 3).Value = Me.TextBox4.Text
    With .Offset(1, 4)
      .NumberFormat = "dd/mm/yyyy"
      .Value = DMYtoDate(Me.TextBox5.Text)
    End With
  End With
End Sub

------------------------
Cái hàm SuaNgay của bạn không tác dụng gì... càng sửa càng sai. Hãy quên nó đi!
Quan trọng là: Bạn nhập đúng định dạng trên TextBox (d/m/yyyy) và khi gán xuống sheet nó đúng giá trị là được rồi