Lại chuyện đăng nhập: Code cho hộp thoại đăng nhập

[bebeen]

Chào các thành viên GPE! Chúc mọi người ngày cuối tuần thật nhiều vui vẻ và hạnh phúc!
Em đang mắc trong ví dụ viết code cho hộp thoại đăng nhập chương trình. Mình có 1 danh sách người dùng. Và bây giờ làm sao để mình nhập vào mục Username và Password nó sẽ tìm và so sánh với danh sách dưới sheet: Nếu nó đúng thì nó sẽ thông báo "Bạn đã chọn đúng hoặc nếu không đúng nó sẽ thông báo "Bạn chưa chọn đúng"
Vậy mình đưa lên đây nhờ mọi người xem dùm và hoàn thiện cho mình nhé!

 

[giaiphap]

Bạn sửa chổ màu đỏ này thử xem.

Private Sub CommandButton1_Click()
    Dim vung As Range
    Dim myvung As Range
    Set vung = S1.Range(S1.[A2], S1.[A50].End(3))
    Set myvung = vung.Find(DangNhap.ComboBox1.Value, , xlValues, xlWhole)
    'Minh co can tao them tim kiem them mat khau khong a?
    'Vi the nay thi moi tim duoc ten Username thui
    With DangNhap
        If (myvung Is Nothing) And (myvung.Offset(, 2).Text = TextBox1.Text) Then
        'Neu tim dung username va password thi no se thong bao nhu o duoi
            MsgBox "You selected it ok", , "ABC"
        Else
        'Neu tim dung username va password thi no se thong bao nhu o duoi
            MsgBox "You don't select ok", , "ABC"
        End If
    End With
    Set vung = Nothing: Set myvung = Nothing
End Sub

 

[bebeen]

Bạn sửa chổ màu đỏ này thử xem.

Private Sub CommandButton1_Click()
    Dim vung As Range
    Dim myvung As Range
    Set vung = S1.Range(S1.[A2], S1.[A50].End(3))
    Set myvung = vung.Find(DangNhap.ComboBox1.Value, , xlValues, xlWhole)
    'Minh co can tao them tim kiem them mat khau khong a?
    'Vi the nay thi moi tim duoc ten Username thui
    With DangNhap
        If (myvung Is Nothing) And (myvung.Offset(, 2).Text = TextBox1.Text) Then
        'Neu tim dung username va password thi no se thong bao nhu o duoi
            MsgBox "You selected it ok", , "ABC"
        Else
        'Neu tim dung username va password thi no se thong bao nhu o duoi
            MsgBox "You don't select ok", , "ABC"
        End If
    End With
    Set vung = Nothing: Set myvung = Nothing
End Sub

Mình cũng vừa nghĩ ra cách làm và đã giải quyết xong. Mình định lên đây để thông báo rằng: Đã xử lý được rồi. Nhưng lại thấy bài của bạn giúp mình. Mình sẽ tham khảo.
Cám ơn @giaiphap nhiều!