Cái quan trọng nhất là kiểm tra việc nhập ký tự vào cột nào thì bạn lại không cho biết. Thế này người muốn hỗ trợ thỏa mái đoán mò ý định người hỏi.
Chuẩn bị kích hoạt tính năng thầy bói thôi anh.
Tất cả các cột sau cột 'I' đó các anh, ráng giúp dùm em nó đi & sẽ được cảm ơn mà!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rws As Long, Col As Integer
Dim Rng As Range
Rws = Sheets("00.00").UsedRange.Rows.Count
Col = Sheets("00.00").UsedRange.Columns.Count
Set Rng = [J4].Resize(Rws, Col)
If Not Intersect(Target, Rng) Is Nothing Then
If Len(Target.Value) <>5 Then MsgBox "Nhâp Sai . . . Rôi!",,"Sao Mình Ngu Quá!"
End If
End Sub
dạ cái số này ạ nó không có tên hiển thị nên em không biết ạ(còn e nhập thì nhập tay thôi ạ nó chỉ có 4 số kèm thêm dấu cách là 5 số ạ)
nó nhỏ hơn hoặc lớn hớn 5 là sai á anh
em cảm on thầy,dạ code của thầy đã đáp ứng nhu cầu của em ạ .Nhưng cho em hỏi là sau khi xóa nó cũng hiện hộp thoại msg box ạ nó làm trậm thời gian e nhập tay ạ .và khi nhập trùng thì số nó có tô màu nên không ạ
em làm thực tế là không nhìn máy tính ạ chỉ nhìn hàng rồi nhập vào hết một panel thì e kiểm tra . trùng và thiếu thì e tìm hàng rồi sửa lại nó khá mất thời gian vậy có cú pháp hay câu lệnh nào trong excel mà khi nhập sai nó không cho nhập nữa không ạ.mong thầy giải đáp
dạ thưa thầy là các số trên file nó chia mỗi lot hàng khác nhau lên số liệu cả file sẽ trùng lặp. Nhưng khi nhập 1 lot no thì số trong đó sẽ không được trùng ạThì sửa lại điều kiện là Len(Target)>=1 & Len(target)<> 5 thủ cem sao:
Còn sự trùng là trùng với ai Hay trùng với kẻ trên hay người dưới?
thường thì sau khi kết thúc một lot no thì e sẽ hilight duplicate lên để tìm dữ liệu trùng nếu trùng số liệu thì đồng nghĩa việc nhập sai. nhưng khi có 2 lot thì số liệu sẽ lặp lại nên sẽ trùng vậy chỉ cần so sánh ngay tại thời điểm khi nhập tay sai mà nó tô màu lên để sửa thì sẽ tối ưu hơn ạ( em làm công nhân nên chủ yếu nhập liệu vào máy )
Thì sửa lại điều kiện là Len(Target)>=1 & Len(target)<> 5 thủ cem sao:
Còn sự trùng là trùng với ai Hay trùng với kẻ trên hay người dưới?
có dùng như khi nhập máy có hiện trạng giật ạ
mình dùng định dạng có điều kiện. hy vọng đúng ý bạn
dạ đúng rồi ạ vậy khi nhập trùng thì nó có tô màu lên không ạ
tại e nhập số trên con hàng chứ không trên giấy nên chủ yếu nhìn vào hàng hóa khi hết hàng e sẽ lọc trùng nếu sai nhiều thì khó phát hiện lên khi muốn nhập sai nó sẽ tự tô màu luôn để sửa vì hàng hóa nặng khi nhập lại lại phải tìm
cảm ơn vì tất cả đúng ý rồi ạ nhưng dùng định dạng máy giật quá ạ
dạ khi dùng code thì tên trùng nhiều thì giữ nguyên ạ chỉ lọc số thì xóa hay thêm câu lệnh gì ạ
có thể đièu kiện <>5 chỉ là số không ạ tại cột họ tên thì trùng nhau là đúng mà
Anh giải thích em đoạn này có tác dụng gì ạ?
Câu lệnh của bài #4 chỉ kiểm tra từ J4 trở đi nên mình không hiểu sao tên của bạn ở cột G cũng bị?
Mình cũng mới học VBA nên theo ý hiểu cá nhân của mình là :
anh ơi làm sao để code đó chỉ chạy một sheet chỉ định. tại code của anh khi e nhập nhiều số lượng not thì nó sẽ trùng nhiều e muốn tách riêng chỉ chạy một sheet nhập tay còn e copy qua sheet tổng để nó không tô màu nữa
Private Sub Worksheet_Change chỉ chạy khi có thay đổi trên chính sheet đó ở đây là sheet 00.00.
cũng chưa có máy tính học thêm tại nhà thấy nó hay thì học và hỏi thêm mong anh chỉ giúp
Nếu không viết tắt thì tỷ lệ hỗ trợ sẽ cao hơn nhiều.
dạ em có thử rồi nhưng code vẫn hoạt động trên các sheet ở file đó
Dạ khi e tạo sheet khác code vẫn chạy trên sheet đó ạ
Khi áp dụng code của anh mà khi thay đổi một sự kiện như kiểu nhập xong ở sheet có code dán vào sheet tổng rồi nhập lại lot khác thì code không chạy nữa
Dạ đây anh xem có phải do em copy xong xóa lên sự kiện nó không chạy không ạ
Bạn copy xong rồi bạn Xóa dòng thì UsedRange thay đổi như vậy code không chạy là đúng rồi.
dạ em cảm ơn anh ạ vậy anh có hướng đi khác anh có thể nói cho em hiểu với ạ
Em chỉ muốn khi nhập số sẽ không bị trùng và không nhập sai tại số em mặc định 5 kí tự nhưng khi làm thì sẽ có nhiều lot nó trùng lại số nên em tách code riêng để nhập liệu rồi em copy qua sheet khác không có code trên cùng file
em có làm nhưng khi copy xong quay lại nhập như anh nói thì code ở sheet nhập không chạy ạ
Bạn xem lại cách làm của bài #16 và tự tạo 1 file mới không dùng file bài #18 nữa vì code đó không đúng với yêu cầu của bạn.
Thưa thầy công việc của em chủ yếu là nhìn số trên con hàng nhập vào máy tinh để khi sau nay có lỗi sẽ biết ai lọt lỗi. trong quá trình nhập sẽ có hiện trạng sai thường sau mỗi lot hàng(500 con hàng em sẽ lọc trùng nhưng khi lọc trùng thì vẫn có nhiều số sai dưới hoặc trên 5 kí tự mà lọc trùng không rà soát hết lỗi được . em mong có công thức hoặc code mà khi e nhập sai hoặc trùng thì nó sẽ bôi màu lên ô để sửa tại thời gian nhập. Nhưng trong quá trình thì số con hàng trên nhiều lot sẽ trùng nhau nên phải nhập xong copy ra file khác không thì code sẽ sai..
dùng công thức có remoduplicate máy bị đơ anh ạ không nhập liệu được
