Nhập dữ liệu ngày tháng trong excel? (1 người xem)

[Nguyenductoan1978]

Các bác cho em hỏi làm sao nhập vào 1 ô dạng ddmmyyyy sau khi enter nó chuyển thành dạng dd/mm/yyyy

 

[huonglien1901]

Các bác cho em hỏi làm sao nhập vào 1 ô dạng ddmmyyyy sau khi enter nó chuyển thành dạng dd/mm/yyyy

Mình có cách này hơi cùi bắp tý:
Sử dụng Data-Text column.
B1: Chọn vùng dữ liệu
B2: Data-text column
b3: hộp thoại hiện lên-->NEXT-->NEXT-->Date(DMY)--->Finish.

 

[huonglien1901]

Các bác cho em hỏi làm sao nhập vào 1 ô dạng ddmmyyyy sau khi enter nó chuyển thành dạng dd/mm/yyyy

bạn chèn code này vào sheet bạn nhập liệu nha.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Loi
If IsNumeric(Target) Then
    If Len(Target) = 6 Then
        Target = DateValue("20" & Right(Target, 2) & "/" & Mid(Target, 3, 2) & "/" & Left(Target, 2))
        Target.NumberFormat = "dd/mm/yy"
    ElseIf Len(Target) = 8 Then
        Target = DateValue(Right(Target, 4) & "/" & Mid(Target, 3, 2) & "/" & Left(Target, 2))
        Target.NumberFormat = "dd/mm/yyyy"
    End If
End If

Loi:
    Exit Sub
End Sub

Bạn thử gõ một chuỗi số xem nó ra ngày tháng không?

 

[Nguyenductoan1978]

Mình có cách này hơi cùi bắp tý:
Sử dụng Data-Text column.
B1: Chọn vùng dữ liệu
B2: Data-text column
b3: hộp thoại hiện lên-->NEXT-->NEXT-->Date(DMY)--->Finish.
Mình muốn cố định cột đó cơ. Cái này sau khi xóa đi nhập lại nó lại không được.

 

[huonglien1901]

mình chưa hiểu đoạn này, bạn dùng code bài #3 thử nha.

 

[Nguyenductoan1978]

mình muốn dùng hàm trên

bạn chèn code này vào sheet bạn nhập liệu nha.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Loi
If IsNumeric(Target) Then
    If Len(Target) = 6 Then
        Target = DateValue("20" & Right(Target, 2) & "/" & Mid(Target, 3, 2) & "/" & Left(Target, 2))
        Target.NumberFormat = "dd/mm/yy"
    ElseIf Len(Target) = 8 Then
        Target = DateValue(Right(Target, 4) & "/" & Mid(Target, 3, 2) & "/" & Left(Target, 2))
        Target.NumberFormat = "dd/mm/yyyy"
    End If
End If

Loi:
    Exit Sub
End Sub

Bạn thử gõ một chuỗi số xem nó ra ngày tháng không?

mình muốn sử dụng code trên cho toàn bộ workbook sau này thì làm thế nào hả bạn