Vấn đề chuyển định dạng ngày tháng năm trong excel (1 người xem)

[truongquangtrong]

Chào anh/chị.
em câu hỏi muốn tham khảo ý kiến của anh/chị
em có 1 file ngày tháng năm nhưng ở dạng text
20151102
20151108
20151111
e muốn chuyển sang định dạng ngày tháng năm nhưng muốn ở tại chính cái ô text ngày tháng năm
(ví dụ ô muốn chuyển định dạng text sang ngày tháng năm là A1, sau khi chuyển thì ngày tháng năm ở luôn tại ô A1)


Anh chị cho hỏi có chuyển đc như thế không ạ

Xem thêm>>> https://internetvietnam.net/

 

[phulien1902]

Chào anh/chị.
em câu hỏi muốn tham khảo ý kiến của anh/chị
em có 1 file ngày tháng năm nhưng ở dạng text
20151102
20151108
20151111
e muốn chuyển sang định dạng ngày tháng năm nhưng muốn ở tại chính cái ô text ngày tháng năm
(ví dụ ô muốn chuyển định dạng text sang ngày tháng năm là A1, sau khi chuyển thì ngày tháng năm ở luôn tại ô A1)


Anh chị cho hỏi có chuyển đc như thế không ạ

Bạn thử với:

Sub abc()
    Dim lr As Long
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    Columns("B:B").Insert Shift:=xlToRight
    Range("B1:B" & lr) = "=CV(RC[-1])"
    Columns("B:B").Copy
    Columns("B:B").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Columns("A:A").Delete
    Cells(1, 1).Select
End Sub
Function CV(dateX As String)
    dateX = Left(dateX, 4) & "/" & Mid(dateX, 5, 2) & "/" & Right(dateX, 2)
    CV = Format(dateX, "DD/MM/YYYY")
End Function

Bạn xem File đính kèm, nhớ bấm nút hình ông mặt trời hồng.

 

[ndu96081631]

Bạn thử với:

Sub abc()
    Dim lr As Long
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    Columns("B:B").Insert Shift:=xlToRight
    Range("B1:B" & lr) = "=CV(RC[-1])"
    Columns("B:B").Copy
    Columns("B:B").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Columns("A:A").Delete
    Cells(1, 1).Select
End Sub
Function CV(dateX As String)
    dateX = Left(dateX, 4) & "/" & Mid(dateX, 5, 2) & "/" & Right(dateX, 2)
    CV = Format(dateX, "DD/MM/YYYY")
End Function

Bạn xem File đính kèm, nhớ bấm nút hình ông mặt trời hồng.

Cá 10 ăn 1 rằng: Hàm CV của bạn chẳng chuyển được text nào thành ngày tháng thật sự cả

 

[vu_tuan_manh_linh]

Cá 10 ăn 1 rằng: Hàm CV của bạn chẳng chuyển được text nào thành ngày tháng thật sự cả

Chắc là phải thế này bác ndu nhỉ:

Function CV(dateX As String)
    CV = DateSerial(Left(dateX, 4) ,Mid(dateX, 5, 2) , Right(dateX, 2))
End Function

 

[ndu96081631]

Chắc là phải thế này bác ndu nhỉ:

Function CV(dateX As String)
    CV = DateSerial(Left(dateX, 4) ,Mid(dateX, 5, 2) , Right(dateX, 2))
End Function

Với chuỗi số có dạng yyyymmdd thì tôi thích cách này:

CV = DateValue(Format(dateX, "0000""/""00""/""00"))

Hoặc nếu dùng công thức trên sheet thì như vầy:

=--TEXT(A1,"0000""/""00""/""00")

 

[Lequocvan]

Em học lỏm (ah quên, em xin học) code của Mr. Vũ là như sau ah:
'Chuyen sang dang dd/mm/yyyy
Function ChStringToDate()

Dim Myrange As Range
'Kiem tra workbook
If Application.Workbooks.Count = 0 Then End
Set Myrange = Application.Selection
For Each cell In Myrange.Cells
​

On Error Resume Next​

cell.value = stod(cell.Text)​

Next
Selection.NumberFormat = "dd/mm/yyyy"
Selection.HorizontalAlignment = xlGeneral​

End Function