Cho mình hỏi về công thức thời gian?

[the_wind]

Các bạn chỉ giúp mình công thức thời gian, ở đây có 1 bảng tính: khi ta nhập 1 dữ liệu bất kỳ vào 1 cột thì cột kế bên sẽ hiển thị giờ và phút lúc nhập liệu, cột tiếp theo sẽ hiện ngày, cột tiếp theo sẽ hiện tháng và năm. Tất cả các dữ liệu này sẽ được tính đúng theo thời gian nhập liệu
Cảm ơn các bạn trước

 

[hoangdanh282vn]

Các bạn chỉ giúp mình công thức thời gian, ở đây có 1 bảng tính: khi ta nhập 1 dữ liệu bất kỳ vào 1 cột thì cột kế bên sẽ hiển thị giờ và phút lúc nhập liệu, cột tiếp theo sẽ hiện ngày, cột tiếp theo sẽ hiện tháng và năm. Tất cả các dữ liệu này sẽ được tính đúng theo thời gian nhập liệu
Cảm ơn các bạn trước

Cái này phải dùng đến VBA nha bạn, công thức không lưu trữ dữ liệu được đâu

Sub worksheet_change(ByVal target As Range)
On Error Resume Next
Application.EnableEvents = False
With target
    .Offset(, 1) = Format(Now - Date, "hh:mm:ss")
    .Offset(, 2) = Format(Date, "dd/mm/yyyy")
    .Offset(, 3) = Month(Date)
    .Offset(, 4) = Year(Date)
End With
Application.EnableEvents = True
End Sub

 

[the_wind]

Cái này áp dụng vào như thế nào hả bạn? Mình bây giờ muốn nhập dữ liệu ở cột E, Dữ liệu ngày sẽ được cập nhập vào cột B, Dữ liệu tháng/năm sẽ được cập nhật vào cột C, Giữ liệu giờ và phút sẽ được cập nhật vào cột D

 

[hoangdanh282vn]

Cái này áp dụng vào như thế nào hả bạn? Mình bây giờ muốn nhập dữ liệu ở cột E, Dữ liệu ngày sẽ được cập nhập vào cột B, Dữ liệu tháng/năm sẽ được cập nhật vào cột C, Giữ liệu giờ và phút sẽ được cập nhật vào cột D

Sub worksheet_change(ByVal target As Range)
On Error Resume Next
Application.EnableEvents = False
With target
    If .Column = 5 Then
        .Offset(, -1) = Format(Now - Date, "hh:mm:ss")
        .Offset(, -2) = Format(Date, "mm/yyyy")
        .Offset(, -3) = Format(Date, "dd/mm/yyyy")
    End If
End With
Application.EnableEvents = True
End Sub