Giữ cố định giá trị ngày nhập liệu

[tqluong]

Kính nhờ các anh chị giúp mình vấn đề sau:

Giả sử khi nhập liệu ô A1 thì ô B1 tự động hiện giá trị ngày tháng nhập liệu, nhưng mình muốn cố định ngày tháng này luôn, nếu sử dụng hàm now() or today() thì qua ngày hôm sau là nó tự động nhảy ngày mất.
Tương tự khi nhập liệu ô A2 thì ô B2 tiếp tục tự động hiện ngày tháng tương ứng.

 

[concogia]

Kính nhờ các anh chị giúp mình vấn đề sau:

Giả sử khi nhập liệu ô A1 thì ô B1 tự động hiện giá trị ngày tháng nhập liệu, nhưng mình muốn cố định ngày tháng này luôn, nếu sử dụng hàm now() or today() thì qua ngày hôm sau là nó tự động nhảy ngày mất.
Tương tự khi nhập liệu ô A2 thì ô B2 tiếp tục tự động hiện ngày tháng tương ứng.

Bạn thử làm cách này xem sao
Right Click vào sheet muốn nhập liệu ==> View code chép cái này vào:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If ActiveCell.Offset(-1) <> "" Then ActiveCell.Offset(-1, 1) = Date
    End If
End Sub

Nhập dữ liệu ở cột A nhé bạn

 

[tqluong]

Cám ơn concogia nhiều, mình đã làm được, chắc phải nghiên cứu thêm VBA mới được

 

[nvtnet]

Bạn thử làm cách này xem sao
Right Click vào sheet muốn nhập liệu ==> View code chép cái này vào:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If ActiveCell.Offset(-1) <> "" Then ActiveCell.Offset(-1, 1) = Date
    End If
End Sub

Nhập dữ liệu ở cột A nhé bạn

Cho em hỏi, Trong đoạn code chỉ thấy là nhập liệu ở cột A, và mặc định nó điền ngày ở cột B, nhưng nếu em muốn Quy định nhập ở 1 cột bất kỳ nào đó, và hiển thị ngày ở một cột bất kỳ nào đó thì code như thế nào ạ

 

[Tranvuhien]

Bạn thử làm cách này xem sao
Right Click vào sheet muốn nhập liệu ==> View code chép cái này vào:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If ActiveCell.Offset(-1) <> "" Then ActiveCell.Offset(-1, 1) = Date
    End If
End Sub

Nhập dữ liệu ở cột A nhé bạn

Bạn thử làm cách này xem sao
Right Click vào sheet muốn nhập liệu ==> View code chép cái này vào:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If ActiveCell.Offset(-1) <> "" Then ActiveCell.Offset(-1, 1) = Date
    End If
End Sub

Nhập dữ liệu ở cột A nhé bạn

Bạn có thể làm giúp mình 1 file hoàn chỉnh được không ạ? Mình nhập liệu vào ô b1 thì ngày tháng nhập vào sẽ hiện vào ô a1 và cứ như thế đến ô b100 và a100. Mình đã chép đoạn code vào excel 2016 mà không được.