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?
Thời gian mà bạn nói là NGÀY hay GIỜ
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!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, Er As Integer
Dim Rng, Clls As Range
Er = Range("B1000").End(xlUp).Row + 1
Set Rng = Range("B2:B" & Er)
If Not Intersect(Range("B2:B1000"), Target) Is Nothing Then
Range("D2:D1000").Clear
For Each Clls In Rng
If Clls <> "" Then
Clls.Offset(, 2).Value = Now
Else
Clls.Offset(, 2).Value = ""
End If
Next
End If
End Sub
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!
Cách làm của Bác đúng như mong muốn của em rồi đấy nhưng em vẫn chưa hiểu cách làm của Bác như thế nào.
Thay đoạn code củ thành:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Vung1 As Range, Vung2 As Range
With Range("D31:N31")
Set Vung1 = Union(.Offset(0), .Offset(3), .Offset(6), .Offset(9), .Offset(12), .Offset(15))
End With
With Range("D85:N85")
Set Vung2 = Union(.Offset(0), .Offset(3), .Offset(6), .Offset(9), .Offset(12), .Offset(15))
End With
If Not Intersect(Union(Vung1, Vung2), Target) Is Nothing And Target.Count = 1 Then
With ActiveSheet
.Unprotect: Target.Offset(2) = Time
.Protect: .EnableSelection = xlUnlockedCells
End With
End If
End SubPrivate Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.Cells(Target.Row + 2, 2) = "Time" Then
With ActiveSheet
If Target.Text <> "" Then
.Unprotect: Target.Offset(2) = Time
Else
.Unprotect: Target.Offset(2) = 0
End If
.Protect: .EnableSelection = xlUnlockedCells
End With
End If
End Sub
Cảm ơn các Bác đã quan tâm giúp e vấn đề trên nhiều lắm.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CutCopyMode = False
End SubBác Sealand ơi em đang sử tính năng cảnh báo lỗi sai số lớn nhưng trường hợp nhập 20 số EUT và REF trước sau đó mới nhập giá trị trong cell E22 --> E26 thì phần cảnh báo bỏ qua.
Sao không dùng hàm Now mà phải nối Time và Date?
Now thì tốt quá bác ạ ^^
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)
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 .
Code hoạt động bình thường, nhưng không rõ câu hỏi của bạn.
=IF(A1="","",IF(A2="",NOW(),A2))
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!
