Ghi lại Thời gian nhập Liệu

[leonguyenz]

Đơn giản chỉ vậy thôi mà
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect (target, range (“A1:A100”)) is nothing then
Exit sub
End if
If Target.Value <> "" Then
Target.Offset(, 1) = Time & "_" & Date
End if
End sub

Sao không dùng hàm Now mà phải nối Time và Date?

 

[nguyen6571gpex]

Nhờ các anh em giúp đoạn code thực hiện lệnh (có trong file). Cảm ơn anh em nhiều!

 

[doatmenhhon]

Sao không dùng hàm Now mà phải nối Time và Date?

Now thì tốt quá bác ạ ^^

 

[Ngoai Thanh]

Nhờ các anh em giúp đoạn code thực hiện lệnh (có trong file). Cảm ơn anh em nhiều!

Bạn xem file đính kèm đúng ý bạn không nhé !

 

[nguyen6571gpex]

Bạn xem file đính kèm đúng ý bạn không nhé !

Cảm ơn ban Ngoai Thanh nhiều. Có vấn đề: trong file đúng có rất nhiều Sheet cấu trúc như nhau, muốn cho code có tác dụng với tất cả các Sheet thì thay code như thế nào mong bạn chỉ giúp (Thông cảm mình không được học VBA)

 

[Ngoai Thanh]

Cảm ơn ban Ngoai Thanh nhiều. Có vấn đề: trong file đúng có rất nhiều Sheet cấu trúc như nhau, muốn cho code có tác dụng với tất cả các Sheet thì thay code như thế nào mong bạn chỉ giúp (Thông cảm mình không được học VBA)

Chiều mình đi vắng nên không hồi âm cho bạn được . Nếu các sheet kết cấu giống nhau thì bạn chỉ cần đặt chuột vào tên sheet bấm phải chuột chọn Move or copy kích chọn create a copy rồi sửa tên sheet theo ý mình . Hoặc bấm All+F11 copy code sang sheet mới .

 

[gaucon122]

Em chào các bác
Các bác cho em hỏi, có cách nào để tự động ghi lại giá trị của hàm NOW không ạ ? E cần là khi lập phiếu thì gia trị= NOW, sau này mở ra thì ở một cel khác vẫn lưu giá trị tại thời điểm lập phiếu. E cảm ơn

 

[trinhvinhtai]

hj a

phải chi file của a thêm được ngày tháng năm nữa ok hơn ak a. nếu them được cho e xin với nha trinhvinhtai123@gmail.com
cam ơn a trước nha

 

[nguyễn duy cường 1962]

hướng dẫn giúp tương tự file lưu giờ nhưng chuển dòng là cột . thnaks

 

[anhlong]

Sao Không UNDO được khi nhập code này vào VBE:

Sub Worksheet_Change(ByVal Target As Range)
Dim Cll As Range
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
For Each Cll In Intersect(Target, [A:A])
If Cll <> "" Then
Cll.Offset(, 1) = Format(Now, "hh:mm AM/PM")
Else
Cll.Offset(, 1).ClearContents
End If
Next
End Sub

 

[phulien1902]

Sao Không UNDO được khi nhập code này vào VBE:

Code hoạt động bình thường, nhưng không rõ câu hỏi của bạn.

 

[Chi Phu]

Xin các Pro cho hỏi trong excel có cách nào ghi lại thời gian nhập liệu vào một cell không?
Dữ liệu gổm 10 giá trị được bố trí theo dòng hàng ngang
VD: khi nhập dữ liệu vào cell A1 thì cell A2 sẽ ghi nhận lại thời gian nhập vào và nhập liệu vào cell B1 thì B2 sẽ ghi lại thời gian nhập.
Rất mong nhận được sự quan tâm và trả lời của các A/C.
Xin cảm ơn nhiều!

=IF(A1="","",IF(A2="",NOW(),A2))
mìnhđang sài công thức này, bạn vào file -> formulas ticks vào enable interative calculation là xong

 

[Tuhai2606]

các anh chị giúp em với ạ. em đàng dùng đoạn Code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("A:A"), Target) Is Nothing Then
If Range("A" & Target.Row).Value = "" Then
Range("I" & Target.Row).ClearContents
Else
Range("I" & Target.Row).Value = Now
End If
End If
End Sub
Để khi nào dữ liệu ở Cột A được nhập thì sẽ hiện thời gian nhập tại cột i. Code chạy khá ổn nhưng em có 1 vấn đề là khi em xóa 1 dòng phía trên thì tất cả những dòng phía dưới đều cập nhật lại thời gian hiện tại theo CODE. ai có cách nào ngăn được việc cập nhật lại thời gian khi mình xóa dòng không ạ