Giúp thao tác nhanh hơn trong nhập dữ lệu (4 người xem)

[lad2000moet]

chào các AC, em có việc phải nhập hồ sơ, nhưng muốn giảm bớt 1 số thao tác nhập và có cảnh báo khi nhập liệu nếu nhập sai, mong các AC giúp đỡ

 

[nhapmon]

mình nghỉ chắc chỉ xài vba mới được, mà vba thì yêu cầu data phải rỏ ràng, chứ mà nằm lung tung thì ko biết đường đâu mà mò, bạn nên gởi file thật của bạn lên

bạn chép thử đoạn code này,(nó chỉ gói gọn trong vùng số liêu của bạn thôi nha

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next
If Not Intersect(Target, Range("B3:B5")) Is Nothing Then

If Target.Value = "Khác" Then
Target.Offset(0, 2).Select
Else
Target.Offset(0, 2).Select
End If
End If

If Not Intersect(Target, Range("B26:B40")) Is Nothing Then
sobang = Application.WorksheetFunction.VLookup(Target.Value, [B18:C21], 2, 0)
KiemTra = Application.WorksheetFunction.CountIf([B26:b40], Target.Value)
If KiemTra > sobang Then
MsgBox " " & Target.Value & " chi co " & sobang & " Bang Cap"

End If
End If
On Error GoTo 0
End Sub

 

[lad2000moet]

Cám ơn bạn đã giúp mình, Hôm nay mình mới cơ bản xong fần nhập liệu, mình mong công đồng GPEX giúp mình để khi nhập có cảnh báo không bị nhầm lẫn. Với code bạn cho mình vẫn chưa áp dụng được do vậy mình gửi lại file cụ thể bên dưới

mình nghỉ chắc chỉ xài vba mới được, mà vba thì yêu cầu data phải rỏ ràng, chứ mà nằm lung tung thì ko biết đường đâu mà mò, bạn nên gởi file thật của bạn lên

bạn chép thử đoạn code này,(nó chỉ gói gọn trong vùng số liêu của bạn thôi nha

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next
If Not Intersect(Target, Range("B3:B5")) Is Nothing Then

If Target.Value = "Khác" Then
Target.Offset(0, 2).Select
Else
Target.Offset(0, 2).Select
End If
End If

If Not Intersect(Target, Range("B26:B40")) Is Nothing Then
sobang = Application.WorksheetFunction.VLookup(Target.Value, [B18:C21], 2, 0)
KiemTra = Application.WorksheetFunction.CountIf([B26:b40], Target.Value)
If KiemTra > sobang Then
MsgBox " " & Target.Value & " chi co " & sobang & " Bang Cap"

End If
End If
On Error GoTo 0
End Sub

 

[nhapmon]

bạn thử xem có được không?

 

[lad2000moet]

Cám ơn bạn Nhapmon nhieu lam, cơ bản là đúng ý tưởng rồi, nhưng phần văn bằng nếu mình nhập thừa mà xóa đi 1 mã nhân viên thì nó lại báo lỗi và nhẩy về bảng code, bạn lại nghiên cứu giúp mình với nhé, mình đang thử áp dụng công thức cảu bạn trong bảng tính có j mình hỏi ý kiến bạn sau. à mà bạn có thể giải thích đoạn code của bạn để mình đc hiểu và học hỏi thêm.