Nhờ các cao thủ giúp đỡ chuyển định dạng text (1 người xem)

[daicatit]

Chào các anh các chị, nhờ a/c chỉ giáo giúp em với

CHuyện là ntn em có 1 file ngày tháng năm nhưng ở dạng text[TABLE="width: 500"]
[TR]
[TD]20151102[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]20151108[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]20151111[/TD]
[TD][/TD]
[/TR]
[/TABLE]
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 ạ

 

[phihndhsp]

Chào các anh các chị, nhờ a/c chỉ giáo giúp em với

CHuyện là ntn em có 1 file ngày tháng năm nhưng ở dạng text[TABLE="width: 500"]
[TR]
[TD]20151102[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]20151108[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]20151111[/TD]
[TD][/TD]
[/TR]
[/TABLE]
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 cho vài ví dụ đi, rồi gởi lên đây mọi người sẽ giúp bạn, vấn đề của bạn nếu muốn làm trực tiếp trên ô đó luôn, thì chỉ có copy paste special có thể làm được, nhưng tôi nghĩ sẽ bị 1 vấn đề là định dạng của các máy khác nhau nên có thể kết quả sẽ không khớp

 

[phulien1902]

Chào các anh các chị, nhờ a/c chỉ giáo giúp em với

CHuyện là ntn em có 1 file ngày tháng năm nhưng ở dạng text[TABLE="width: 500"]
[TR]
[TD]20151102[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]20151108[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]20151111[/TD]
[TD][/TD]
[/TR]
[/TABLE]
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 ạ

Tham khảo

Sub abc()
    Dim i As Range
    On Error Resume Next
    For Each i In Sheets(1).Range("A1:A100")
        i.Value = DateSerial(Left(i.Value, 4), Mid(i.Value, 5, 2), Right(i.Value, 2))
        i.NumberFormat = "dd/mm/yyyy"
    Next i
End Sub

 

[daicatit]

Em xin gửi anh, chị file ví dụ này ạ
Sau khi chuyển đổi định dạng e muốn sau khi định dạng lại ngày tháng năm nó nằm ngay ở cột mà em cần chuyển ạ

 

[daicatit]

Cám ơn Phulien1902 nhiều ạ

 

[phulien1902]

Bạn bấm nút kiểm tra nhé

 

[daicatit]

Hihi Em chạy được rồi, Thanks Phulien1902 nhiều nhiều