| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1180 人关注过本帖
标题:excel登录机制的vb宏,报错了
只看楼主 加入收藏
josephlzh
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2017-4-13
结帖率:0
收藏
已结贴  问题点数:20 回复次数:5 
excel登录机制的vb宏,报错了
错误的参数号或无效的属性赋值
Private Sub CommandButton1_Click()
Dim MyLoginStatus As Single
MyLoginStatus = 0
For i = 2 To ThisWorkbook.Sheets("UserLoginInfor").UsedRange.Rows.Count
If (Trim(ThisWorkbook, Sheets("UserLoginInfor").Cells(i, 1).Value)) = Trim(TextBox1.Value) And (Trim(ThisWorkbook.Sheets("UserLoginInfor").Cells(i, 2).Value)) = Trim(TextBos2.Value) Then
MyLoginSatus = MyLoginStatus + 1
If (Trim(ThisWorkbook.Sheets("UserLoginInfor").Cells(i, 3).Value) = "最高权限") Then
ThisWorkbook.Sheets("UserLoginInfor").Visible = True
Else
ThisWorkbook.Sheets("UserLoginInfor").Visible = False
End If
End If
Next i
If (MyLoginStatus >= 1) Then
MsgBox "登陆成功", vbInformation, "系统消息"
UserForm1.Hide
Else
MsgBox "错误的用户名和密码", vbCritical, "系统消息"
End If
End Sub

这是登录按钮的代码,过不去啊,大神看看哪的问题,我都是按百度抄的
2017-04-13 09:43
josephlzh
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2017-4-13
收藏
得分:0 
http://www.
附上抄袭的地址
2017-04-13 09:44
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:938
专家分:5244
注 册:2015-8-10
收藏
得分:20 
If (Trim(ThisWorkbook, Sheets("UserLoginInfor").Cells(i, 1).Value)) = Trim(TextBox1.Value) And (Trim(ThisWorkbook.Sheets("UserLoginInfor").Cells(i, 2).Value)) = Trim(TextBos2.Value) Then
改成
If (Trim(ThisWorkbook. Sheets("UserLoginInfor").Cells(i, 1).Value)) = Trim(TextBox1.Value) And (Trim(ThisWorkbook.Sheets("UserLoginInfor").Cells(i, 2).Value)) = Trim(TextBos2.Value) Then
这种错误不应该啊,而且报错时候也定位到这行了,检查这行就行。仔细一点嘛
2017-04-13 12:32
josephlzh
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2017-4-13
收藏
得分:0 
回复 3楼 xiangyue0510
老哥稳,新手太菜了,可是缺少对象我就想不通了,我感觉没少呢
调试用.rar (18.35 KB)
2017-04-13 12:56
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:938
专家分:5244
注 册:2015-8-10
收藏
得分:0 
TextBos2??
还有一个地方是MyLoginSatus 应该是 MyLoginStatus
你这种情况,两个建议:
1. 利用VB的自动修改大小写的功能,前面定义变量时用混用大小写,比如 Dim MyRecordset
   后面写代码的时候不必刻意去按照前面的大小写输入,其实最好不要, 直接输入myrecordset。 VB就可以自动修改为MyRecordset。
   如果输入错误,那就不会变。这个方法可以有效的避免手误。   
2. 学VB或者其他编程,不能不会调试。 代码调试时出错,添加监视去看看每一个变量的数值是否正确。
2017-04-13 16:00
josephlzh
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2017-4-13
收藏
得分:0 
回复 5楼 xiangyue0510
谢谢您了,我对这东西真是一窍不通
2017-04-13 16:30
快速回复:excel登录机制的vb宏,报错了
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017308 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved