怎么修改用户和密码登录界面？？

cam333

Sub test()
1:
n = n + 1
If n > 3 Then Exit Sub
user = InputBox("请输入用户名", "用户")
If user = "" Then MsgBox "用户名不能为空": GoTo 1
Set yh = Sheet1.Range("a:a").Find(user, , , xlWhole)
MsgBox "用户名正确，请输入密码"
If yh Is Nothing Then
GoTo 1
End If
2:
m = m + 1
If m > 3 Then Exit Sub
pass = InputBox("请输入密码", "用户密码")
If pass = "" Then MsgBox "密码不能为空": GoTo 2
If pass <> yh.Offset(0, 1).Value Then
GoTo 2
End If
MsgBox "登录成功"
End Sub
上述代码要怎么增加用户名录入错误，用消息框提示用户名不存在，请重新录入或者退出；密码录入错误时，消息框提示密码错误，并提示已经录入几次，总共有几次？？

liulang0808

楼主的n，m是用来记录次数的吧，在msgbox后面增加提示就可以了吧

这个是昵称吗

If yh Is Nothing Then 不就表示查找不到为nothing吗？
难道你写的都不懂
后面加个提示   用户名不存在 不就可以了

獨一無2

Sub test()
1:
n = n + 1
If n > 3 Then Exit Sub
user = InputBox("请输入用户名", "用户")
If user = "" Then MsgBox "用户名不能为空": GoTo 1
Set yh = Sheet1.Range("a:a").Find(user, , , xlWhole)
If yh Is Nothing Then
MsgBox "用户名不存在，请重新录入或者退出"
GoTo 1
End If
MsgBox "用户名正确，请输入密码"
2:
m = m + 1
If m > 3 Then Exit Sub
pass = InputBox("请输入密码", "用户密码")
If pass = "" Then MsgBox "密码不能为空": GoTo 2
If pass <> yh.Offset(0, 1).Value Then
MsgBox "密码错误，已经录入" & m & "次，总共有3次"
GoTo 2
End If
MsgBox "登录成功"
End Sub

cam333

谢谢独一无2的回答，基本达到要求，但是能否增加一个按钮 ，在用户名出错，可以按钮退出