Cách sau định dạng chỉ để nhìn đẹp + in chứ không tính toán đượcem muốn định dạng ngày tháng như trên cho nhanh khi vào sổ nhật ký chung bằng excel anh chị nào có cách chuyển không chỉ em với ạ. em carmown ạ
dạ em cảm ơn ạ.dạ vậy thì em phải nhập tay rồi vì em cần dùng công thức để lập các sổ khác nữa mà . em cảm ơn anh nhiều nhiều ạCách sau định dạng chỉ để nhìn đẹp + in chứ không tính toán được
Trong Format Cells.../Number/Custom nhập 0#"/"##"/"#### /OK
Giả sử ở ô A1 là 01022018 thì tại B1 nhập công thứcem muốn định dạng ngày tháng như trên cho nhanh khi vào sổ nhật ký chung bằng excel anh chị nào có cách chuyển không chỉ em với ạ. em carmown ạ
Thử:dạ em cảm ơn ạ.dạ vậy thì em phải nhập tay rồi vì em cần dùng công thức để lập các sổ khác nữa mà . em cảm ơn anh nhiều nhiều ạ
=--TEXT(A1,"00\/00\/0000")
@Phan Thế Hiệp mình đã làm được. cảm ơn ban nhiềuThử:
Enter, fill xuống.Mã:=--TEXT(A1,"00\/00\/0000")
Thân
@qGiả sử ở ô A1 là 01022018 thì tại B1 nhập công thức
=DATE(RIGHT(A1,4),MID(A1,3,2),LEFT(A1,2))
@quanghai1969 của bạn cũng ra kết quả nhưng nó chỉ hiện ra là ví dụ như trên thì 1/2/2018 mà mình đang muốn lấy 01/02/2018 bạn ạ . cảm ơn bạn nhiều nhé=DATE(RIGHT(A1,4),MID(A1,3,2),LEFT(A1,2))
Một kiểu dùng Text to Columns.em muốn định dạng ngày tháng như trên cho nhanh khi vào sổ nhật ký chung bằng excel anh chị nào có cách chuyển không chỉ em với ạ. em carmown ạ
@be09 ok bạn rất nhanh bạn. cảm ơn bạn nhiềuMột kiểu dùng Text to Columns.
Bước 1: Chọn cell cần chuyển đổi rồi vào Data > Text to Columns hộp thoại Step 1 of 3 hiện ra chọn Delimited nhấn Next.
Bước 2: Hộp thoại Step 2 of 3 hiện ra chọn Tab nhấn Next.
Bước 3: Hộp thoại Step 3 of 3 hiện ra chọn Date khung bên phải chọn MDY nhấn Finish (xong).
Thử sử dụng code sau để chuyển đổi cho nhanh.@be09 ok bạn rất nhanh bạn. cảm ơn bạn nhiều
Sub ChuyenDoi()
With Selection
.TextToColumns DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
Tab:=True, FieldInfo:=Array(1, 3), TrailingMinusNumbers:=True
End With
End Sub
ok bạnThử sử dụng code sau để chuyển đổi cho nhanh.
Mã:Sub ChuyenDoi() With Selection .TextToColumns DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ Tab:=True, FieldInfo:=Array(1, 3), TrailingMinusNumbers:=True End With End Sub