Bẫy lỗi nhập trùng dữ liệu trong phạm vi cột chỉ định thì hiện hộp thoại thông báo

[ngoc76hoang]

Chào các anh, chị trên diễn đàn !
Nhờ anh, chị viết dùm code trong vba nhập trùng dữ liệu thì hiện hộp thoại thông báo.
Nội dung yêu cầu tôi đã trình bày rõ trong filemau đính kèm.
Xin trích dẫn như sau:
Bẫy lỗi nhập trùng dữ liệu trong phạm vi cột chỉ định:
- Phạm vi 1 là cột E
- Phạm vi 2 là cột F:-O
- Phạm vi 1 không liên quan gì đến phạm vi 2
- Cột A,B,C và D không liên quan gì đến phạm vi 1 và 2
Tập tin đính kèm:

View attachment 13806


Trân trọng cảm ơn ! Thân chào !

View more random threads:

• Video hướng dẫn VBA cho người mới bắt đầu
• Các anh chị pro ơi!!!!!!!!!!!! help me!!!!!!!!
• tìm số mũ của luỹ thừa
• Tạo dòng cộng cuối trang sổ nhật ký chung bằng Excel
• Các ví dụ về Form, Combo box, list box ...rất hay
• [Help] Tự động liên kết các file excel lại với nhau
• Cách chuyển dữ liệu từ máy chấm công sang bảng chấm công có sẵn.
• Xin hỏi cách tạo hàm tự động đếm trong excel
• Chuyên Đề : Trích Lọc Sổ Cái
• Code lọc dữ liệu trong excel

[dunk90]

Ðề: Bẫy lỗi nhập trùng dữ liệu trong phạm vi cột chỉ định thì hiện hộp thoại thông báo

Chào các anh, chị trên diễn đàn !
Nhờ anh, chị viết dùm code trong vba nhập trùng dữ liệu thì hiện hộp thoại thông báo.
Nội dung yêu cầu tôi đã trình bày rõ trong filemau đính kèm.
Xin trích dẫn như sau:
Bẫy lỗi nhập trùng dữ liệu trong phạm vi cột chỉ định:
- Phạm vi 1 là cột E
- Phạm vi 2 là cột F:-O
- Phạm vi 1 không liên quan gì đến phạm vi 2
- Cột A,B,C và D không liên quan gì đến phạm vi 1 và 2
Tập tin đính kèm:

View attachment 13806


Trân trọng cảm ơn ! Thân chào !

Cái này dễ mà, nhưng tôi không rảnh để gửi File trả lời, vì lý do, hãy đọc bài này.

http://www.**************/forum/exce...-dinh-dang-kieu-chu-tu-dong-khong.202137.html

Và hãy đọc bài này để biết lý do.

http://www.**************/forum/tam-sui-dan-kei-toai-n/thieu-te-nhi.203093.html

Và hãy đọc thêm bài này.

http://www.**************/forum/chia-se-cung-dan-nha-ke/tai-sao-thieu-loi-cam.199723.html

[ichiase24h]

Ðề: Bẫy lỗi nhập trùng dữ liệu trong phạm vi cột chỉ định thì hiện hộp thoại thông báo

Bạn thử xài macro sự kiện sau; Nó sẽ triệu gọi macro sau bổ trợ việc tìm trùng cho bạn:

:ngugat:​

[COLOR=#000000]
Option Explicit[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Worksheet_Change[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ByVal Target [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Dim Rng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range  [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Not Intersect[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Target[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Columns[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"E:E"[/COLOR][COLOR=#007700])) [/COLOR][COLOR=#0000BB]Is Nothing Then    Set Rng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Columns[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"E:E"[/COLOR][COLOR=#007700])    [/COLOR][COLOR=#0000BB]GPE Rng[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Target[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]ElseIf [/COLOR][COLOR=#0000BB]Not Intersect[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Target[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Columns[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"F:O"[/COLOR][COLOR=#007700])) [/COLOR][COLOR=#0000BB]Is Nothing Then    Set Rng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Columns[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"f:o"[/COLOR][COLOR=#007700])    [/COLOR][COLOR=#0000BB]GPE Rng[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Target[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value End [/COLOR][COLOR=#007700]If[/COLOR][COLOR=#0000BB]End Sub[/COLOR] 

angcheo:​

Sub GPE(Rng As Range, Targ) 
Dim sRng As Range, MyAdd As String

 Set sRng = Rng.Find(Targ, , xlFormulas, xlWhole)
 If Not sRng Is Nothing Then
    MyAdd = sRng.Address
    Do
        If sRng.Address <> MyAdd Then
            MsgBox MyAdd, , "Chú Ý: Có Trùng"
            Exit Sub
        End If
        Set sRng = Rng.FindNext(sRng)
    Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
 End If
End Sub