Nhập dữ liệu ngày tháng trong excel?

Nguyenductoan1978

Thành viên mới
Tham gia ngày
26 Tháng mười một 2013
Bài viết
10
Được thích
2
Điểm
365
Tuổi
42
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

GPE là ngôi nhà thứ 2 của tôi!!!
Tham gia ngày
17 Tháng tư 2016
Bài viết
2,424
Được thích
2,052
Điểm
360
Tuổi
28
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

GPE là ngôi nhà thứ 2 của tôi!!!
Tham gia ngày
17 Tháng tư 2016
Bài viết
2,424
Được thích
2,052
Điểm
360
Tuổi
28
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.
PHP:
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

Thành viên mới
Tham gia ngày
26 Tháng mười một 2013
Bài viết
10
Được thích
2
Điểm
365
Tuổi
42
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

GPE là ngôi nhà thứ 2 của tôi!!!
Tham gia ngày
17 Tháng tư 2016
Bài viết
2,424
Được thích
2,052
Điểm
360
Tuổi
28
mình chưa hiểu đoạn này, bạn dùng code bài #3 thử nha.
 

Nguyenductoan1978

Thành viên mới
Tham gia ngày
26 Tháng mười một 2013
Bài viết
10
Được thích
2
Điểm
365
Tuổi
42
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.
PHP:
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
 
Top Bottom