Giúp đỡ về code ngày tháng năm (1 người xem)

[huytp02]

Nội dung muốn code: Từ A1 tới E1 nhập bất kì kí tự nào thì A2 tới E2 tương ứng sẽ hiện lên hàm NOW.
Đoạn code của em như sau :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
With Range("A1:E1")
If Not Intersect(Target, .Cells) Is Nothing Then
    If Target <> "" Then Target.Offset(1, []) = Now
    End If
    End With
End Sub

Mong anh/chị giúp vì hàm trên ko thực hiện được
Thanks

 

[Quang_Hải]

Nội dung muốn code: Từ A1 tới E1 nhập bất kì kí tự nào thì A2 tới E2 tương ứng sẽ hiện lên hàm NOW.
Đoạn code của em như sau :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
With Range("A1:E1")
If Not Intersect(Target, .Cells) Is Nothing Then
    If Target <> "" Then Target.Offset(1, []) = Now
    End If
    End With
End Sub

Mong anh/chị giúp vì hàm trên ko thực hiện được
Thanks

Không chịu tìm tòi cơ bản trên net nên mới không thể viết cái gọi là ABC thế này

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then
    If Target.Column < 6 Then
        Target(2) = Now
    End If
End If
End Sub

 

[SA_DQ]

Có vẻ bạn này thích With. .. End With, thì sửa lại cho bạn đây:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 On Error Resume Next
 With Range("A1:E1")
    If Not Intersect(Target, .Offset(0)) Is Nothing Then
        If Target <> "" Then Target.Offset(1, 0) = Now
    End If
 End With
End Sub

[thongbao]
& có thể là vầy hơn:

Option Explicit
[B]Private Sub Worksheet_Change(ByVal Target As Range)
[/B] On Error Resume Next
 With Target
    If Not Intersect(Range("A1:E1"), .Offset(0)) Is Nothing Then
        If .Value <> "" Then .Offset(1, 0) = Now
    End If
 End With
[B]End Sub
[/B]

[/thongbao]