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

Liên hệ QC
Xin lỗi e nhầm tí là các O11-O14-O17-O20-O23 ; O65-O68-O71-O74......... mới đúng chứ.
Ở đây em lấy trị tuyệt đối của O11 > 2*E2 tương tự như thế cho các O tiếp theo để đưa ra cảnh báo (đổi màu) sai số vượt quá 2 lần con số được nhập trong cột E (con số trong cột E là bất kỳ do mình nhập vào chứ ko cố định và luôn dương)
 
Mình tận dụng các ô màu tím để liên kết các ô E.
Bạn kiểm tra giúp vì mình không liên kết dữ liệu được
 

File đính kèm

  • Copy of time.xls
    43 KB · Đọc: 36
Sao em không thấy sai lệch lớn quá trời luôn mà nó không cảnh báo gì cả Bác Sealand ơi!
trình tự nhập liệu của em như sau:
Đầu tiên e nhập các số nguyên dương vào E22 đến E26 (E22= 0.1)
sau đó nhập lần lượt 10 cặp số EUT và REF vào sẽ cho ra độ sai lệch nếu trị tuyệt đối sai lệch lớn hơn nhiều lần(2) so với E22 thì cảnh báo để người nhập xem xét lại nếu chấp nhận thì OK còn thỏa mãn điều kiện nhỏ hơn 2*E22 thì không cảnh báo gì cả.
Lúc đầu em làm cảnh báo thay đổi màu như file gửi trước không có tác dụng buộc người nhập kiểm tra khi sai lệch lớn hơn 2 lần E22.
Bác xem và giúp e với nhé. Cảm ơn Bác nhiều lắm!
 
Xin lỗi em quên nữa em xin post lại file nhé!
 

File đính kèm

  • time.xls
    43.5 KB · Đọc: 14
Giờ mới test được, kiểm tra lại nhé.(Bạn phải sửa hết công thức nếu số bij chia=0-->0 tránh lỗi)
 

File đính kèm

  • Copy of time.xls
    45 KB · Đọc: 55
Lần chỉnh sửa cuối:
Nhưng có thể đưa ra cảnh báo sao khi nhập hết 10 cặp số không?
Khuya rồi chúc Bác ngủ ngon nhé. Để em test thử mai em sẽ báo cáo lại có gì Bác giúp em nhé!
 
Sửa lại chút lỗi, kiểm tra giúp
 

File đính kèm

  • Copy of time.xls
    47 KB · Đọc: 37
Đây là em tạo ra file lưu dạng template tất cả dữ liệu ban đầu là rỗng hoàn toàn ngoại trừ phần công thức tính toán thôi. Nên em thấy hình như còn vấn đề chưa ổn lắm
 
Nó không ổn trước hết là nếu dữ liệu trống công thức mắc lỗi chia cho 0!
 
Phải làm sao đây Bác!?
Trước tiên cell trống mới nhập số đầu tiên là cảnh báo rồi.
khi xóa ba cell cùng một lúc lại sinh ra những số không phía dưới nữa.
Ngay dòng 31,32 nhập hai con số có sai lệch lớn hơn 2 lần E22=0,1 cũng đâu có cảnh báo đâu?
Bác có thể làm cho kiểm tra để đưa ra cảnh báo kết quả sai lệch cuối cùng được không? hoặc cảnh báo khi 20 cell EUT và REF khác rỗng được không ạh?
 
Mình gửi lại file chỉ cảnh báo khi điền hết vùng dữ liệu
 

File đính kèm

  • Map time.xls
    52.5 KB · Đọc: 110
Cảnh Báo Theo Điều Kiện

Quên nữa không biết Bác có hàm Mround chưa nữa.
Em gửi lại file nhé. Vấn đề có thể chưa rõ Bác xem giùm e.
 

File đính kèm

  • 14.5.xls
    55 KB · Đọc: 40
MROUND là hàm của Analysis ToolPark chỉ cần vào ad-in bổ xung là được.
Còn cách tính hồi trễ chắc là phải từ từ mới hiểu được.
 
Bác làm như vậy là quá sự mong đợi của em rồi. Nhưng do người nhập hay copy đôi khi quên thay đổi chọn điểm hồi trễ làm trong cell G22 hoặc G56.... làm cho kết quả hồi trễ sai nếu phát hiện được thì quá tốt.
Bác cho em hỏi trong vùng D31:O48, D85:O102..... E muốn khóa tính nặng copy,paste, DragDrop được không?
Xin Cảm ơn
 
Đã khoá copy thì khoá tất không cho chép bất kể ô nào là xong,khi cần chép ta Rem câu lệnh là được. Chép xong lại bỏ Rem đi. Khi hoàn thiện bạn viết code khoá mở đàng hoàng có mật khẩu hẳn hoi.
Tạm thời dùng code sau là được

Mã:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CutCopyMode = False
End Sub
Bạn chép vào dưới code đã có và thoát ra.Giờ bạn xem có chép được không?
 
Mình gửi bạn mã khóa mở chế độ Copy
 

File đính kèm

  • khoa mo.xls
    31.5 KB · Đọc: 79
Mình gửi bạn mã khóa mở chế độ Copy
Bá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.
Bác có cách nào chặn được trường hợp này luôn không. gì người nhập cũng thường làm ngược lại.
Xin cảm ơn!
 
Để ghi lại thời gian nhập liệu mình dùng hàm như sau: Ở F2=IF(ISBLANK(E2),"",NOW()) (xin xem file đính kèm cho rõ), tuy nhiên khi mình fill cells thì có vấn đề là mỗi lần mình điền giá trị cho E3, E4, E5 thì thời gian ở F3,F4 cũng tự động thay đổi theo, và khi đó F3 = F4 = F5. Có bác nào thạo thì giúp mình với.
Tks các bác nhiều!
 

File đính kèm

  • VD1.xls
    14 KB · Đọc: 68
Trước hết mình bỏ lock các ô từ B3-K3 để có 10 ô nhập dữ liệu. Sau khi protect sheet thì chỉ nhập được 10 ô này mà thôi. Các trang trí màu mè không đề cập nữa. Khi mình nhập vào 1 ô thì phát sinh sự kiện Worksheet change (Bảng tính thay đổi). Sự kiện cũng báo cho biết đổi tại ô nào. Như vậy ta chỉ việc gán cho phía dưới =Time hoặc now() là được.
Giờ thì ta vào code cụ thể. Nhấn Alt+F11--> chọn sheet1-->Bạn sẽ thấy code sau


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 3 Then 'Nếu dòng thay đổi =3
Sheet1.Unprotect 'Tạm bỏ Protect
Target.Offset(1, 0) = Time 'Set ô phía duói =time
Sheet1.Protect 'Khóa lai
Sheet1.EnableSelection = xlUnlockedCells 'Cho phép chọn ô không khóa
End If
End Sub

Bạn cứ xem có gì hỏi lại sau

bạn cho hỏi tí, phần set time chỉ ghi lại thời gian là giờ, phút
bạn có cách nào để ghi lại cả ngày, tháng, năm không
nếu có thể tách thành 1 ô ngày và 1 ô giờ thì càng tốt
 
Đơ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
 
Web KT
Back
Top Bottom