Tự động hiển thị nhiều dòng ngày tháng, khi giá trị 1 ô thây đổi (1 người xem)

[longkhanhck]

Chào mọi người, mình có khó khăn mong mọi người giúp đỡ.
Mình muốn khi nhập giá trị vào ô A1 thì ô B1 sẽ hiện ngày tháng năm nhập giá trị đó, nhưng nếu tiếp tục nhập giá trị vào ô A1 thì ngày tháng năm sẽ hiện tiếp ở ô B2, cứ như vậy mỗi lần ô A1 thây đổi giá trị thì ngày tháng năm sẽ hiện theo thứ tự B3, B4, B5.......
Mọi người rành về macro thì giúp mình với

 

[nghiaphuc]

Chào mọi người, mình có khó khăn mong mọi người giúp đỡ.
Mình muốn khi nhập giá trị vào ô A1 thì ô B1 sẽ hiện ngày tháng năm nhập giá trị đó, nhưng nếu tiếp tục nhập giá trị vào ô A1 thì ngày tháng năm sẽ hiện tiếp ở ô B2, cứ như vậy mỗi lần ô A1 thây đổi giá trị thì ngày tháng năm sẽ hiện theo thứ tự B3, B4, B5.......
Mọi người rành về macro thì giúp mình với

Bạn sử dụng code sau cho sheet cần áp dụng:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then [B65000].End(xlUp).Offset(1) = Date
End Sub

 

[longkhanhck]

Bạn sử dụng code sau cho sheet cần áp dụng:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then [B65000].End(xlUp).Offset(1) = Date
End Sub

[FONT=바탕]C[/FONT]ảm ơn bạn đã giúp mình, Code bạn viết ở trên chỉ áp dụng cho ô A1 thôi, còn những ô khác trong cột A thì không làm được, ngày tháng thì nhảy xuống dòng
Bây giờ mình lại nảy sinh vấn đề khác
Ví dụ:
[FONT=바탕]Khi nh[/FONT]ập giá trị ô A1 thì ô B1 sẽ hiện ngày tháng, khi thây đổi giá trị ô A1 thì ngày tháng sẽ nhẩy qua ô C1 và giữ nguyên ngày tháng ở ô B1, cứ như vậy khi ô A1 thây đổi thì ngày tháng sẽ nhảy qua ô D1, E1……. ( ngày tháng nhảy qua cột ứng với dòng chứa ô của cột thây đổi giá trị, không phải nhảy xuống dòng)
Khi nhập giá trị ô A2, A3, A4 thì cũng vậy đối với dòng chứa ô này,
Ý tưởng của mình là các ô của cột A là để nhập giá trị thây đổi, còn những ô cùng dòng tương ứng với các cột B, C, D…. là để hiện thị ngày tháng khi thay đổi giá trị đó
Mong mọi người giúp mình, cảm ơn nhiều

 

[longkhanhck]

[FONT=바탕]C[/FONT]ảm ơn bạn đã giúp mình, Code bạn viết ở trên chỉ áp dụng cho ô A1 thôi, còn những ô khác trong cột A thì không làm được, ngày tháng thì nhảy xuống dòng
Bây giờ mình lại nảy sinh vấn đề khác
Ví dụ:
[FONT=바탕]Khi nh[/FONT]ập giá trị ô A1 thì ô B1 sẽ hiện ngày tháng, khi thây đổi giá trị ô A1 thì ngày tháng sẽ nhẩy qua ô C1 và giữ nguyên ngày tháng ở ô B1, cứ như vậy khi ô A1 thây đổi thì ngày tháng sẽ nhảy qua ô D1, E1……. ( ngày tháng nhảy qua cột ứng với dòng chứa ô của cột thây đổi giá trị, không phải nhảy xuống dòng)
Khi nhập giá trị ô A2, A3, A4 thì cũng vậy đối với dòng chứa ô này,
Ý tưởng của mình là các ô của cột A là để nhập giá trị thây đổi, còn những ô cùng dòng tương ứng với các cột B, C, D…. là để hiện thị ngày tháng khi thay đổi giá trị đó
Mong mọi người giúp mình, cảm ơn nhiều

Ôi lậy phật mình làm được rồi, chế hoài cũng được dù không hiểu, cảm ơn mọi người

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
With Target.Cells(1, Columns.Count).End(xlToLeft)
.Offset(, 1) = Date
.EntireColumn.AutoFit
End With
End If
End Sub