Tìm dòng có mặt hàng không nằm trong danh mục bằng code VBA (6 người xem)

[thao nguyen01]

Kính gửi anh/chị trên diễn đàn,
Em đang vướng vấn đề: Em muốn tìm dòng có mặt hàng không nằm trong danh mục cho sẵn. Em có mô tả vấn đề trong file ạ.
Anh chị xem và hỗ trợ giúp em với ạ. Em cảm ơn nhiều ạ.

 

[Hoàng Tuấn 868]

Kính gửi anh/chị trên diễn đàn,
Em đang vướng vấn đề: Em muốn tìm dòng có mặt hàng không nằm trong danh mục cho sẵn. Em có mô tả vấn đề trong file ạ.
Anh chị xem và hỗ trợ giúp em với ạ. Em cảm ơn nhiều ạ.

Bạn này dùng khá nhiều về vba, vào diễn đàn đến năm thứ 6 rồi mà sao không chịu khó học để tự làm nhỉ. Có lẽ cứ đi nhờ đến khi nào không đi làm nữa mất thôi.

 

[SA_DQ]

Tạm thời tham khảo con macro cù lần này trong file thực tế của bạn xem sao:

Sub InStr_()
 Dim DMMH As String, Tmp As String:         Const DF As String = ","
 Dim Cls As Range
 Dim VTr As Integer, Rws As Long, J As Integer
 
 For Each Cls In [F2].CurrentRegion.Offset(1)
    DMMH = DMMH & Cls.Value
 Next Cls
 Rws = [C2].CurrentRegion.Rows.Count
 For Each Cls In Range([C2], [C2].End(xlDown))
    For J = 1 To Len(Cls.Value)
        Tmp = Mid(Cls.Value, J, 1)
        If Tmp <> DF And Tmp <> " " Then
            VTr = InStr(DMMH, Tmp)
            If VTr < 1 Then
                MsgBox Tmp, , Cls.Value
            End If
        End If
    Next J
 Next Cls
End Sub