Xin giúp công thức hiển thị ngày giờ (1 người xem)

[TBFDD]

Chào các anh chị,
Đây là lần đầu em tham gia diễn đàn, mong các anh chị chỉ giúp cho 1 vấn đề như sau.
Khi nhập bất cứ gì vào ô A1 thì ô B1 sẽ hiện ngày/thang/năm và C1 sẽ hiện giờ.
Tiếp tục nhập A2 => B2=ngày/tháng/năm => C2= giờ hiện tại nhưng ô C1 vẫn phải là giờ cũ không được thay đổi theo C2.
Cụ thể như sau:
A1=012 => B1=18/03/2012 => C1=14:00:05
tiếp tục
A2=013 => B2=18/03/2012 => C2=14:00:10
và cứ tiếp tục nhập ở cột A thì B và C sẽ tiếp tục hiện ngày tháng và giờ.
Mong các anh chị viết công thức giúp nếu có thê cho xin code của vấn đề này.
XIN Cám ơn nhiều

 

[huuthang_bd]

Chào các anh chị,
Đây là lần đầu em tham gia diễn đàn, mong các anh chị chỉ giúp cho 1 vấn đề như sau.
Khi nhập bất cứ gì vào ô A1 thì ô B1 sẽ hiện ngày/thang/năm và C1 sẽ hiện giờ.
Tiếp tục nhập A2 => B2=ngày/tháng/năm => C2= giờ hiện tại nhưng ô C1 vẫn phải là giờ cũ không được thay đổi theo C2.
Cụ thể như sau:
A1=012 => B1=18/03/2012 => C1=14:00:05
tiếp tục
A2=013 => B2=18/03/2012 => C2=14:00:10
và cứ tiếp tục nhập ở cột A thì B và C sẽ tiếp tục hiện ngày tháng và giờ.
Mong các anh chị viết công thức giúp nếu có thê cho xin code của vấn đề này.
XIN Cám ơn nhiều

Yêu cầu của bạn không dùng công thức được. Code của bạn đây:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Count = 1 And Target.Column = 1 And Target.Row > 5 Then
    Target.Offset(, 1).Value = Date
    Target.Offset(, 2).Value = Time
End If
Application.EnableEvents = True
End Sub

 

[TBFDD]

Cám ơn bạn đã giúp, rất hay. Nhưng có chút vấn đề nếu khắc phục được thì thật hoàn hảo
đó là khi nhấp đúp vào phần cột A mà không phải nhập dât thì 2 cột kia cũng tự động cập nhật.
Xin cám ơn

 

[huuthang_bd]

Cám ơn bạn đã giúp, rất hay. Nhưng có chút vấn đề nếu khắc phục được thì thật hoàn hảo
đó là khi nhấp đúp vào phần cột A mà không phải nhập dât thì 2 cột kia cũng tự động cập nhật.
Xin cám ơn

Bạn sửa code lại như thế này thử xem

Dim OldValue
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
OldValue = ActiveCell.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Count = 1 And Target.Column = 1 And Target.Row > 5 Then
    If Target.Value <> OldValue Then
        Target.Offset(, 1).Value = Date
        Target.Offset(, 2).Value = Time
    End If
End If
Application.EnableEvents = True
End Sub

 

[TBFDD]

Thật hoàn hảo, rất tiếc là không thể gặp để mời anh một ly cà phê.
Cám ơn rất nhiều.