登录系统代码

[vista111111111]

我按如下代码操作，但总是显示“该公司没有这个员工，用户名输入错误”
请帮忙看看是哪里出了问题? (A1:B200,是员工编号和姓名的取值范围）

Private Sub CommandButton1_Click()
Dim count As Integer '定义count表示工作表当前数据行数
Dim sname As String, rpwd As String '定义sname表示注册名，rpwd表示注册密码
rname = TextBox1.Text '取得用户注册名
rpwd = TextBox2.Text '取得用户注册密码
On Error GoTo error1 '当公司没有对应的员工号码时会产生错误
Sheets("员工资料表").Activate '激活“员工资料表”工作表
pwd = Application.WorksheetFunction.VLookup(rname, Range("a1：b200"), 2, False)
'查询在公司中是否有该员工号码，没有则会出现错误error1
On Error GoTo error2
Sheets("用户权限").Activate '激活“用户权限”表
pwd = Application.WorksheetFunction.VLookup(rname, Range("C1:B200"), 2, False)
'查询在“用户权限”表中是否有这个号码了，没有则会出现错误用error2处理
MsgBox "该用户已经注册，不能重复注册" '如果没出错则说明存在该用户名
Exit Sub
error2: '出错则表示这个用户尚未注册
count = Sheets("用户权限").[B2].CurrentRegion.Rows.count
Cells(count + 1, 2) = rname '添加用户名
Cells(count + 1, 3) = "一般用户" '添加用户级别
Cells(count + 1, 4) = rpwd '添加用户密码
MsgBox "注册成功！" '提示注册成功
Exit Sub
error1: '没有员工发生错误时,进行提醒
MsgBox "该公司没有这个员工，用户名输入错误！"
End Sub

[wang405]

可能是用户名的格式错误,你的用户名是不是的用数字表示的?
如果还不是这个问题的话,你把你的原文件发我帮你调试下.
[e-mail]

[wang405]

我这里调试了一个没有问题
会不会是你的标点符号的问题“pwd = Application.WorksheetFunction.VLookup(rname, Range("a1：b200"), 2, False) ”，红色部分请检查一下是不是中文的字符。