Sửa lỗi ngày tháng năm. . .

[zPeterPan]

Em chào tất cả thầy cô và anh chị em trên diễn đàn.
Em có 1 file đang bị lỗi định dạng ngày tháng năm.
Trong sheet "Data" em đã để định dạng cột A là "dd/mm/yyyy" nhưng khi chuyển sang sheet"ThongKe" thì lại bị đổi về định dạng "mm/dd/yyyy" mặc dù em đã để định dạng cột B trong sheet"ThongKe" là định dạng "dd/mm/yyyy"



và định dạng của window em cũng đổi về "dd/mm/yyyy" rồi.
trong code em cũng thêm dòng .NumberFormat = "dd/mm/yyyy" .
Nhờ mọi người sửa giúp em ạ.

 

[qtm1987]

Bạn kéo dãn cột ngày ra rồi bỏ canh lề giữa xem vị trí nội dung trong ô nằm bên lề trái hay phải rồi sửa lại đi (nằm bên lề trái ô là kiểu Text không phải kiểu Date)

 

[CHAOQUAY]

Em chào tất cả thầy cô và anh chị em trên diễn đàn.
Em có 1 file đang bị lỗi định dạng ngày tháng năm.
Trong sheet "Data" em đã để định dạng cột A là "dd/mm/yyyy" nhưng khi chuyển sang sheet"ThongKe" thì lại bị đổi về định dạng "mm/dd/yyyy" mặc dù em đã để định dạng cột B trong sheet"ThongKe" là định dạng "dd/mm/yyyy"



và định dạng của window em cũng đổi về "dd/mm/yyyy" rồi.
trong code em cũng thêm dòng .NumberFormat = "dd/mm/yyyy" .
Nhờ mọi người sửa giúp em ạ.

Phần chữ đậm bạn làm thế nào

 

[zPeterPan]

Phần chữ đậm bạn làm thế nào

cột A là định dạng dd/mm/yyyy ạ

 

[zPeterPan]

Phần chữ đậm bạn làm thế nào

bác có thể sửa giúp em đoạn code để cho cột A về định dạnh dd/mm/yyyy auto không ạ

 

[batman1]

Cột Data!A không chứa ngày tháng chuẩn. Có một số giá trị "giả đò" là ngày tháng. Đó là hàng NHÁI, không phải chính hãng.

Hãy chọn A3:A... -> thẻ Data -> Text to Columns -> Next -> Next -> đánh dấu chọn Date -> bên cạnh chọn DMY -> nhấn Finish.

Bây giờ Data!A đã là ngày tháng xịn, chạy code sẽ thấy ngày tháng bên ThongKe đúng.

 

[zPeterPan]

Sub ConvertTextToDate()
Dim Cell As Range
'Tao vong lap
With Sheet3
Selection.NumberFormat = "General"
For Each Cell In Selection.Cells
Cell.Value = CDate(Cell.Value)
Next 'ket thuc vong lap
End With
End Sub
Bác @CHAOQUAY sửa giúp em đoạn code này được không ạ, để cho vào mảng chạy từ "B4" đến dòng cuối ạ.