tìm ra phần tử không đúng với điều kiện

[LOIKS]

chào mọi người, mình có 1 file dữ liệu sau, mình muốn tìm ra dữ liệu lấy vào không trùng với điều kiện và sau đó msgbox sẽ thông báo số hàng của phần tử không đúng với điều kiện đó
điều kiện so sánh với cột "D" nếu 3 kí tự bên phải không phải là "max" hoặc "min" thì msgbox sẽ thông báo là dữ liệu không đúng và tìm ra số hàng chứa dữ liệu không đúng
For i = 2 To 100
If Right(Cells(i, "D"), 3) <> "Max" Or Right(Cells(i, "D"), 3) <> "Min" Then
'If Right(Cells(i, "D"), 3) Is Not "MAX" Then
MsgBox ("SAI DU LIEU")
Exit For
End If
Next
end sub

 

[snow25]

chào mọi người, mình có 1 file dữ liệu sau, mình muốn tìm ra dữ liệu lấy vào không trùng với điều kiện và sau đó msgbox sẽ thông báo số hàng của phần tử không đúng với điều kiện đó
điều kiện so sánh với cột "D" nếu 3 kí tự bên phải không phải là "max" hoặc "min" thì msgbox sẽ thông báo là dữ liệu không đúng và tìm ra số hàng chứa dữ liệu không đúng
For i = 2 To 100
If Right(Cells(i, "D"), 3) <> "Max" Or Right(Cells(i, "D"), 3) <> "Min" Then
'If Right(Cells(i, "D"), 3) Is Not "MAX" Then
MsgBox ("SAI DU LIEU")
Exit For
End If
Next
end sub

Đây nhé bạn xem có sai không

 

[LOIKS]

Đây nhé bạn xem có sai không

file này mở không được luôn

 

[snow25]

file này mở không được luôn

ban lắp vào code nhé
Sub CommandButton1_Click()
Dim a As Long
a = Range("d" & Rows.Count).End(xlUp).Row
For i = 2 To a
If Right(Cells(i, "D"), "3") = "Max" Or Right(Cells(i, "D"), "3") = "Min" Then
Else
MsgBox ("SAI DU LIEU VÀ HÀNG SAI") & " " & i
Exit For
End If
Next
End Sub