| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1189 人关注过本帖
标题:excel登录机制的vb宏,报错了
取消只看楼主 加入收藏
josephlzh
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2017-4-13
结帖率:0
收藏
已结贴  问题点数:20 回复次数:3 
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
josephlzh
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2017-4-13
收藏
得分:0 
回复 3楼 xiangyue0510
老哥稳,新手太菜了,可是缺少对象我就想不通了,我感觉没少呢
调试用.rar (18.35 KB)
2017-04-13 12:56
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.061467 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved