Nhập thời gian hiện tại của hệ thống vào các ô khác nhau tại thời điểm khác nhau

[BNTT]

Bạn Vuvanthuong có câu hỏi này muốn nhờ diễn đàn giúp đỡ:

Trong excel, em muốn làm như thế này, mong các Bác giúp em nhé!
Khi em nhập một dãy ký tự nào đó vào ô B7 sau đó bấm Enter, thì em muốn ngày và giờ hiện tại của hệ thống ngay lập tức được ghi cố định vào ô D7 chắng hạn, hoặc nhập một dãy ký tự nào đó vào ô B8, B9, B10... sau đó bấm Enter, thì em muốn ngày và giờ hiện tại của hệ thống ngay lập tức được ghi cố định vào ô D8, D9, D10...
Bởi vì khi em thử dùng hàm NOW() thì khi gõ vào ô B8,B9,B10.... nó lại trả ô D7,D8,D9,D10 về thời gian hiện tại chứ không giữ được thời gian như khi bắt đầu nhập vào ô B7,B8. Còn nếu em phải dùng phím nóng trên bàn phím thì không nói làm gì, em chi cần bấm Ctrl+; rồi cách ra sau đó bấm biếp Ctrl+Shift+; nửa rồi Enter là xong, nhưng ý em là: Làm thế nào mà chỉ cần nhập vào ô B7,B8,B9 rồi Enter là ngày giờ ở ô D7,D8,D9 hiển thị cố định luôn mà không cần bấm trên bàn phím nữa ấy.
Mong các Bác chỉ giúp em với. Em cảm ơn các Bác nhiều!

 

[DOSNET]

Bạn tham khảo đoạn code sau :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("B2:B100")) Is Nothing Then
            With Target(1, 2)
            .Formula = "=NOW()"
            .Calculate
            .Value = .Value
            End With
        End If
End Sub

 

[voda]

Hàm Now cũng dùng được trong VBA. Theo mình, chỉnh lại một chút cho gọn hơn:Target(1, 2) = Now