Page 165 - Bửu Ngôn Du Lịch Ba Miền Tập 1

End If
Elself (Len(chatl) <> 0) And (Len(chat2) <> 0) Then
‘Trường hỢp có 2 chất; chatl và chat2
If (chatl = rng.Item(i, l).Value) And (chat2 =
rng.Item(i, 2).Value) Then
MsgBox "Tìm được PTPU ở hàng " & (rng.Row + i - 1)
End If .
Elself (Len(chatl) <> 0) And (Len(chatS) <> 0) Then
‘trường hỢp có 2 chất: chatl và chatS-
If (chatl = rng.Item(i, l).Value) And (chat3 = rng.Item(i,
3).Value) Then
MsgBox "Tìm được PTPƯ ở hàng " & (rng.Rovv + i - 1)
End If
Elself (Len(chat2) <> 0) And (Len(chat3) <> 0) Then
‘trường hỢp có 2 chất: chat2 và chats
If (chat2 = rng.Item(i, 2).Value) And (chats = rng.Item(i,
3).Value) Then
MsgBox "Tìm được PTPƯ ở hàng " & (rng.Row + i - 1)
E n d lf
Elself (Len(chatl) <> 0) Then
‘trường hỢp có 1 chất: chatl
If (chatl = rng.Item(i, l).Value) Then
MsgBox "Tìm được PTPU ở hàng " & (rng.Row + i - 1)
End If
Elself (Len(chat2) <> 0) Then
‘trường hỢp có 1 chất: chat2
If (chat2 = rng.Item(i, 2).Value) Then
MsgBox "Tìm được PTPU ở hàng " & (rng.Row + i - 1)
End If
Elself (Len(chat3) <> 0) Then
‘trường hỢp có 1 chất: chats
If (chats = rng.Item(i, 3).Value) Then

167