Hỏi hàm tự động hiện ngày theo từng hàng và tự động nhớ luôn ngày đấy (1 người xem)

[tr41l0]

[TABLE="width: 500"]
[TR]
[TD]Ngày 20/1/2015[/TD]
[TD]Toán[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Văn [/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Anh[/TD]
[/TR]
[/TABLE]

Mình muốn hỏi có hàm nào khi mình gõ Toán ở cột 2 thì cột 1 tự động hiện ngày hôm nay mình đang gõ vào. Và tự động nhớ luôn ngày đấy.

Cảm ơn mọi người.

 

[phulien1902]

[TABLE="width: 500"]
[TR]
[TD]Ngày 20/1/2015[/TD]
[TD]Toán[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Văn[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Anh[/TD]
[/TR]
[/TABLE]

Mình muốn hỏi có hàm nào khi mình gõ Toán ở cột 2 thì cột 1 tự động hiện ngày hôm nay mình đang gõ vào. Và tự động nhớ luôn ngày đấy.

Cảm ơn mọi người.

Bạn tham khảo đoạn Code này nhé

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("B1:B100"), Target) Is Nothing Then
        With Target.Offset(, 1)
            .NumberFormat = "dd/mm/yyyy"
            .Value = Date
        End With
        
        With Target.Offset(, -1)
            .Value = "Ng" & ChrW(224) & "y" & " " & Target.Offset(, 1)
        End With

    End If
End Sub