khi ở câu lệnhDoWhile Sheets("11")Range("I"& i)Value <> "" And i < 110lại

Chào bạn câu lệnh của bạn đang không có đại lượng j ở đâu.

Mình hỏi câu lệnh ở trong bài đó ạ

Chào bạn bạn đang muốn hỏi đoạn code này

Sub Login_confirm()
    Dim username As String
    Dim password As String
        username = Sheets("11").Range("E108").Value
        password = Sheets("11").Range("E111").Value
    Dim i As Integer
        i = 108
    If username = "" Or password = "" Then
        MsgBox "Vui long nhap du thong tin UserName va Password"
        Exit Sub
    Else
        Do While Sheets("11").Range("I" & i).Value <> "" And i <  110
            If username = Sheets("11").Range("I" & i).Value And _
               password = Sheets("11").Range("J" & i).Value Then
                MsgBox "Dang nhap chinh xac"
                Exit Sub
            Else
                i = i + 1
            End If
        Loop
        MsgBox "Thong tin dang nhap khong chinh xac"
    End If
End Sub

Chào bạn trong đoạn code này sẽ sét đồng thời hai giá trị nên chỉ cần chạy 1 biến i nếu trùng cả hai thì sẽ vào được

username = Sheets("11").Range("I" & i).Value And _
password = Sheets("11").Range("J" & i).Value 

Còn không sẽ tìm kiếm đến khi hết vòng lặp