Code VBA ghi thời gian nhập dữ liệu (1 người xem)

[tantan]

Em có cài đặt 1 phần mềm free để để xuất trọng lượng sản phẩm trực tiếp từ cân vào excel (cân 10 hộp/ lần) một ngày cân khoảng 50 lần (N#)

Khi bấm cân trọng lượng 10 hộp thì số liệu tự động cập nhật vào các ô từ V7 - V16; V28 - V37; V49 - V58...

Phần mềm này không hiển thị thời gian và ngày tháng của 1 lần nhập dữ liệu, nên em không biết nhân viên cân thời điểm nào,

Các anh chị có code VBA để tự động ghi thời gian nhập dữ liệu vào cột Time/Date tương ứng cho em tham khảo với.

File đính kèm của em có 3 sheet dùng cho 3 dây chuyển khác nhau.

Cảm ơn các anh chị.

 

[huuthang_bd]

Em có cài đặt 1 phần mềm free để để xuất trọng lượng sản phẩm trực tiếp từ cân vào excel (cân 10 hộp/ lần) một ngày cân khoảng 50 lần (N#)

Khi bấm cân trọng lượng 10 hộp thì số liệu tự động cập nhật vào các ô từ V7 - V16; V28 - V37; V49 - V58...

Phần mềm này không hiển thị thời gian và ngày tháng của 1 lần nhập dữ liệu, nên em không biết nhân viên cân thời điểm nào,

Các anh chị có code VBA để tự động ghi thời gian nhập dữ liệu vào cột Time/Date tương ứng cho em tham khảo với.

File đính kèm của em có 3 sheet dùng cho 3 dây chuyển khác nhau.

Cảm ơn các anh chị.

Bạn dùng code này thử xem

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column > 21 And Target.Column < 74 Then
If Target.Row > 6 And Target.Row < 59 Then
If Round(Target.Column Mod 3, 0) = 1 Then
If Round((Target.Row - 7) Mod 21, 0) < 10 Then
    Application.EnableEvents = False
    Target.Offset(, 1).Value2 = Time
    Target.Offset(, 2).Value2 = Date
    Application.EnableEvents = True
End If: End If: End If: End If
End Sub

 

[tantan]

Cảm ơn anh, em đã giải quyết được công việc rồi, nhẹ cả người.

 

[tantan]

Trường hợp sau khi nhập dữ liệu cân vào các ô V7 - V16; V28 - V37; V49 - V58... đến dữ liệu cuối cùng (ô V16, V37...) sau 10 lần cân, em cần lock dữ liệu cân lại, để nhân viên không sửa số liệu cân, có thể làm được không ạ?
Để nhập được dữ liệu cân em đã unlock các ô này
Cột thời gian và ngày em hide đi rồi protect sheet.
Em cảm ơn anh chị.

 

[Thong Hoang Tien 250691]

Trường hợp sau khi nhập dữ liệu cân vào các ô V7 - V16; V28 - V37; V49 - V58... đến dữ liệu cuối cùng (ô V16, V37...) sau 10 lần cân, em cần lock dữ liệu cân lại, để nhân viên không sửa số liệu cân, có thể làm được không ạ?
Để nhập được dữ liệu cân em đã unlock các ô này
Cột thời gian và ngày em hide đi rồi protect sheet.
Em cảm ơn anh chị.

mình nghĩ có 2 cách cho bạn.
1. tạo 1 form nhập liệu bằng private sub hoặc user form, không tác đông trực tiếp lên sheets có data mà ẩn nó dưới dạng xlSheets veryhide ( đặt pass cho vbs thì người không biết pass sẽ không thể biết được sự tồn tại của sheets data)
2. sau khi nhập liệu xong bạn lock cell đó lại và protect sheets, đặt pass cũng ổn. cách này có vẻ không ổn bằng cách 1.