[已解决]excel VBA高手请进！修改

long826121 · 发表于 2011-6-5 07:14

在excel中建立一个窗体：
用户名：文本框1
密码：文本框2
级别：文本框3
部门：文本框4
两个按钮：“进入系统”按钮1、“退出系统”按钮2
   当输入用户名：long  相应密码：2008 级别：自动选择为2级（根据用户名密码都正确来判断级别）  部门：自动选择为统计部（根据用户名密码都正确来判断部门），点击“进入系统”进入表sheet4；
注意：1.用户名密码级别部门有多组
      2.级别：生产部有1........5个等级；统计部、销售部有A......F五个等级；管理部有A......C三个等级
      3.当用户名密码和表sheet2信息完全不一致时【包括文本框1.文本框2.文本框3.文本框4任意一个为空时】，提示用户名密码错误，当次数查过三次的时，自动退出系统
部门：生产部、统计部、销售部、管理部
1、当部门是生产部时，“进入系统”表sheet3；
当部门是统计部时，“进入系统”表sheet4；
当部门是销售部时，“进入系统”表sheet5；
当部门是管理部时，“进入系统”表sheet6；
2、用户名、密码、级别、部门相关信息要求在同一张表sheet2上！

下列上传的文件是没有注意3时的文档，出现的错误是：
“运行时错误，类型不匹配”指的是： If arr(x, 1) = TextBox1.Value And arr(x, 2) = TextBox2.Value * 1 Then

SAP入库系统.rar (28.39 KB, 下载次数: 16)

mxg825 · 发表于 2011-6-5 08:35

选择或输入用名时，自动填充部门与级别。三次密码验证：自义一个公共变量，每次按下进入累计加1.。判定达三次输错，直接退出

long826121 · 发表于 2011-6-5 08:48

回复 mxg825 的帖子

请问有没有你编写的文档给我发过来行吗

mxg825 · 发表于 2011-6-5 13:29

这个最佳答案由 mxg825 给出，感谢 mxg825 的回答。

单击隐藏图章

本帖最后由 mxg825 于 2011-6-5 17:14 编辑

回复 long826121 的帖子

最终效果在22楼

mxg825 · 发表于 2011-6-5 13:59

回复 long826121 的帖子

请重新下载吧！
增加了禁用窗体（关闭）按键！

Dim R%, C%
Private Sub CommandButton1_Click() '进入验证
Dim arr, x%
If Len(ComboBox1.Text) = 0 Or Len(TextBox2.Text) = 0 Then
MsgBox "用户名或密码不能为空", , "提示"
Exit Sub
End If
arr = Sheets("sheet2").Range("A4:D" & R).Value
For x = 1 To UBound(arr)
If arr(x, 1) = ComboBox1.Value Then '对比用户名
If TextBox2.Text = arr(x, 4) Then '对比密码
Exit For
Else
C = C + 1
If C >= 3 Then
MsgBox "密码输错3次了，系统将退出"
ActiveWorkbook.Close True
Else
MsgBox "您输入的用户或密码有误，第" & C & "次"
Exit Sub
End If
End If
End If
Next x
Unload Me '删除窗体
If TextBox4.Value = "生产部" Then
Sheets("sheet3").Visible = True
Sheets("sheet3").Select
ElseIf TextBox4.Value = "统计部" Then
Sheets("sheet4").Visible = True
Sheets("sheet4").Select
ElseIf TextBox4.Value = "销售部" Then
Sheets("sheet5").Visible = True
Sheets("sheet5").Select
ElseIf TextBox4.Value = "管理部" Then
Sheets("sheet6").Visible = True
Sheets("sheet6").Select
End If
End Sub
Private Sub CommandButton2_Click() '退出关闭
ActiveWorkbook.Close True
End Sub
Private Sub ComboBox1_Click()
TextBox3.Text = ComboBox1.List(ComboBox1.ListIndex, 1) '取列表第2列内容（级别）
TextBox4.Text = ComboBox1.List(ComboBox1.ListIndex, 2) '取列表第3列内容（部分）
End Sub
Private Sub UserForm_Initialize() '窗体初始化
Dim SH%
For SH = 2 To Sheets.Count
Sheets(SH).Visible = False '隐藏工作表
Next SH
R = Sheet2.Range("A65536").End(xlUp).Row
ComboBox1.RowSource = "Sheet2!$A$4:$C$" & R '导入数据
ComboBox1.Style = fmStyleDropDownList '只能选取列表内容
TextBox3.Locked = True '不可修改
TextBox4.Locked = True
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = 1 '禁用用户在 UserForm.上选择“控制”菜单中的“关闭”命令
End Sub

复制代码

long826121 · 发表于 2011-6-5 14:01

回复 mxg825 的帖子

采纳了你的答案！

long826121 · 发表于 2011-6-5 14:25

回复 mxg825 的帖子

你好！你可以把用户名后面的列表框换成文本框吗？

mxg825 · 发表于 2011-6-5 14:32

为什么要这么做！这样不是很好吗？

long826121 · 发表于 2011-6-5 14:37

回复 mxg825 的帖子

没有评价好不好的问题，只是觉得：列表框找用户名的时候太难找了，还不如自己输入的快，所以就用文本框的！呵呵！

mxg825 · 发表于 2011-6-5 14:47

好吧！我帮你改一下! 请稍等

		自动登录	找回密码
密码			注册