修改书上的代码，确定按钮的，有2个不懂，求教。

stoncold

下面的代码是根据书上的内容做了修改的。但是有两个不明白，为什么判断用户名的时候可以直接做对比，而判断密码的时候CStr(Password.Value) 这个要使用CStr呢？用户名那里不使用却没有问题，我也测试过这两个输入的数值，是一样的，为什么会这样？
这里判断3次的机会登录，应该是exit sub清空了i这个变量的内存，所以每次就重算，那么怎样才可以做到记次呢？


Private Sub CmdOK_Click()

Application.ScreenUpdating = False

Dim us As Range, passw As Range
Dim ipassw As Long, i As Integer
i = 1
If User.Value = "" Then
    MsgBox "用户名不能为空！"
    Exit Sub
End If

If Password.Value = "" Then
    MsgBox "密码不能为空！"
    Exit Sub
End If


    For Each us In Worksheets("namepassword").Range("A1:A10")
        If us.Value = User.Value Then
            ipassw = us.Row()
           '下面的Password.Value要通过CStr才能正常，不使用就不行，而上面的us.Value却可以呢？
            If CStr(Password.Value) = Worksheets("namepassword").Range("B" & ipassw).Value Then
               'MsgBox "相同"   '测试值
                Unload Me
                Application.Visible = True
                Application.ScreenUpdating = True
                Exit Sub
            Else
               'MsgBox Password.Value       '测试值
               'MsgBox Worksheets("namepassword").Range("B" & ipassw).Value       '测试值
                If i = 3 Then
                    MsgBox "对不起你无权打开工作簿!"
                    ThisWorkbook.Close savechanges:=False
                Else
                    MsgBox "输入密码错误，你还有" & (3 - i) & "次输入机会!"
                   '为什么这里的i变量不会变化呢？是因为后面的exit sub退出此过程导致把变量清空？
                    i = i + 1
                    'MsgBox "输入密码不正确！"

                    Application.ScreenUpdating = True
                End If
                Exit Sub     '这里做退出处理，不退出会导致后面的那个Msgbox "输入用户名不正确！"会显示
            End If
        End If
    Next
MsgBox "输入用户名不正确！"

Application.ScreenUpdating = True



End Sub





用户登录(需改进).rar (19.98 KB, 下载次数: 3)

2018-9-30 15:11 上传

点击文件名下载附件

xd3210

Worksheets("namepassword").Range("B" & ipassw).Value 是一个双精度数值，而Password.Value是不一个文本值，两者比较返回false，故不能达到目的为什么if us.Value = User.Value能返回true呢？因为us是一个单元格，单元格的值类型是variant,当是文本时us.value返回文本，是数值则返回双精度数值，当us为文本时自动转换数据为文本类型，Worksheets("namepassword").Range("B" & ipassw).Value 自动转换为双精度类型，两者与文本类型变量比较时，一个返回true，而别一个返回false.

stoncold

xd3210 发表于 2018-9-30 15:56
Worksheets("namepassword").Range("B" & ipassw).Value 是一个双精度数值，而Password.Value是不一个文本 ...

在这先谢谢回答。
那可不可以这样说，就是如果用户名是数字的话，那us.Value也是跟Password.Value一样运行不了？
另外说如果密码不是纯文字，那Password.Value一样能运行？
因为上面的User.Value其实就是对应的Password.Value，只是两个判断语句调换了一下位置。

xd3210

stoncold 发表于 2018-9-30 16:23
在这先谢谢回答。
那可不可以这样说，就是如果用户名是数字的话，那us.Value也是跟Password.Value一样运 ...

换成这样说，是否方便你理解？
1.不是纯数字就是文本；
2.单元格value属性返回数值，text属性返回显示的文本，同一单元格value和text可能返回不一样；
3.窗体控件textbox返回的是纯文本；
4.user.value和password.value不是换位置的问题，而换了比较的对象；
5.为了便于理解，user、password都用text属性，即user.text、password.text;
6.单元格中的用户名或密码尽量用text属性，即us.text、pwdrng.text