Nhờ anh chị định dạng ngày lại giùm e (1 người xem)

[jonnynam92]

E có file này copy từ phần mềm ra mà e định dạng lại ngày theo tiếng việt mà không được, anh chị nào biết chỉ giùm e, e cảm ơn!

 

[phihndhsp]

E có file này copy từ phần mềm ra mà e định dạng lại ngày theo tiếng việt mà không được, anh chị nào biết chỉ giùm e, e cảm ơn!

Mấy cái đó là text, không phải ngày tháng, tôi có chỉnh lại cho bạn rồi đó, sử dụng copy và paste thôi, sorry quota của tôi đã hết nên không đính kèm theo file
cách làm
Bước 1: copy ô trống nào đó
Bước 2: paste special chọn add vào những nơi cần định dạng lại

 

[giangleloi]

E có file này copy từ phần mềm ra mà e định dạng lại ngày theo tiếng việt mà không được, anh chị nào biết chỉ giùm e, e cảm ơn!

Bạn xem file thử nhé:

 

[SA_DQ]

Muốn có ngày theo hệ Fáp ta vẫn quen xài, thì dùng cái tự tạo này:

Option Explicit
Function TextToDate(StrC As String) As Date
 Dim sTh As String:                      Const KT As String = " "
 Dim VTr As Byte, Ngay As Byte, Thg As Byte
 Const DF As String = ","
 
 VTr = InStr(StrC, KT):                 sTh = Left(StrC, VTr - 1)
 Ngay = CByte(Left(Mid$(StrC, VTr + 1, 3), InStr(StrC, DF) - VTr - 1))
 Thg = Switch(sTh = "Jan", 1, sTh = "Feb", 2, sTh = "Mar", 3, sTh = "Apr", 4, sTh = "May", 5, sTh = "Jun", _
    6, sTh = "Jul", 7, sTh = "Aug", 8, sTh = "Sep", 9, sTh = "Oct", 10, sTh = "Nov", 11, sTh = "Dec", 12)
 TextToDate = Format(DateSerial(CInt(Right(StrC, 4)), Thg, Ngay), "DD/MM/yyyy")
 
End Function

Chúc vui khỏe nhân ngày cuối tuần!

 

[ndu96081631]

E có file này copy từ phần mềm ra mà e định dạng lại ngày theo tiếng việt mà không được, anh chị nào biết chỉ giùm e, e cảm ơn!

Cái này dễ mà, làm như sau:
- Quét chọn mớ dữ liệu
- Bấm Ctrl + H mở hộp Find And Replace:

- Khung Find what gõ: , (dấu phẩy)
- Khung Replace with cũng gõ: , (dấu phẩy)
- Bấm Replace All
​

- Xong, bấm Ctrl +!, Custom Format tuỳ ý (dd/mm/yyyy chẳng hạn)


[video=youtube;u7zJ2K5QdCs]https://www.youtube.com/watch?v=u7zJ2K5QdCs&feature=youtu.be[/video]