Nhập dữ liệu sẽ tự động hiện ngày tháng ở một ô khác

[MrRau]

Các bạn cho mình hỏi làm thế nào để mình nhập dữ liệu vào một ô thì ở một ô khác sẽ hiện ngày tháng năm tương ứng.
Ví dụ: nhập "công ty a" vào ô "A1" vào ngày 31/3/2011 thì ô "B1" sẽ hiện ngày 31/3/2011
Thank các bạn nhiều nhiều

 

[songthu10]

Bạn thử cái này xem đúng ý bạn chưa nhé.

 

[xhoang1306]

hàm gì vậy

Bạn thử cái này xem đúng ý bạn chưa nhé.

ĐÚng y cái mình cần. Bạn có thể hướng dẫn cụ thể hơn được ko

 

[viehoai]

ĐÚng y cái mình cần. Bạn có thể hướng dẫn cụ thể hơn được ko

Bạn nhấn Alt+F1 để xem cái gì ở đó nhé

 

[Luc Van]

Bạn nhấn Alt+F1 để xem cái gì ở đó nhé

Bác bày bạn ấy mở Chart làm gì thế? hihi...

 

[xhoang1306]

Bạn nhấn Alt+F1 để xem cái gì ở đó nhé

mình đã làm rồi nhưng ko hiểu cách như thế nào cả. bó tay. bạn có thể nói cụ thể cho mình dễ hiểu ko. tks

 

[xhoang1306]

Bác bày bạn ấy mở Chart làm gì thế? hihi...

bạn Luc Van có bik cách làm hiện ngày tháng khi mình nhập dữ liệu ko?

 

[viehoai]

bạn Luc Van có bik cách làm hiện ngày tháng khi mình nhập dữ liệu ko?

Xin lỗi bạn nhấn Alt+F11

 

[Thay]

Bạn nhấn Alt+F1 để xem cái gì ở đó nhé

Bấm Alt + F11 ................................................

 

[vu_tuan_manh_linh]

Thủ tục Worksheet_Change khá đơn giản như thế này thôi:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Cells(Target.Row, 2).Value = Now()
End If
End Sub
----------
File đính kèm:

View attachment 69040

 

[ndu96081631]

Thủ tục Worksheet_Change khá đơn giản như thế này thôi:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Cells(Target.Row, 2).Value = Now()
End If
End Sub
----------

Code cũng hay! Nhưng bạn có nghĩ đến trường hợp người ta copy từ nơi khác paste vào cột A không? Chẳng lẽ bắt người ta luôn luôn nhập liệu bằng tay?
Ngoài ra, bạn có lường trước những lỗi có thể xãy ra không? Chẳng hạn khi người ta chèn, xóa dòng?
Ẹc... Ẹc...
Nói chung, dạng bài toán này có cả đống trên diễn đàn rồi và cũng đã phát triển đến mức tối ưu nhất