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

long826121 · 发表于 2011-6-5 15:00

回复 mxg825 的帖子

感谢你哈！
把这个也改下吧！
刚我测试了一下，当我输入用户名：long 后，级别：自动选择为2级；部门：自动选择为统计部；
我要的效果是：当用户名输入后再输入密码，如果这两个同时是正确的，然后级别部门才自动显示！
这个做好了，昨天我发的那个帖子也采纳你为最佳答案！你真厉害！佩服佩服...............................

mxg825 · 发表于 2011-6-5 15:25

本帖最后由 mxg825 于 2011-6-5 15:25 编辑

回复 long826121 的帖子

级别和部门
在用户名和密码验证后显示
效果实现，但一闪而过可能看不到！

long826121 · 发表于 2011-6-5 15:49

回复 mxg825 的帖子

你说的很准确！看来这种效果一点都没有啊！把你的QQ号码给我吧！我们好交流！
再麻烦一下：
那就改成：根据用户名来判断级别和部门吧！谢谢！这样的效果很好！
我现在要去采纳我昨天发的帖子，采纳你为最佳！谢谢！

mxg825 · 发表于 2011-6-5 15:57

本帖最后由 mxg825 于 2011-6-5 15:58 编辑

加一句欢迎窗口吧
MsgBox "欢迎【" & TextBox4.Text & "】的[" & TextBox1.Text & "]进入本系统", , "欢迎词"
加在‘ （Unload Me '删除窗体）前面

long826121 · 发表于 2011-6-5 16:04

回复 mxg825 的帖子

你太有才了！哈哈！但我给你一个建议哈！
当弹出欢迎词对话框后，Userform1窗体应该立即关闭！这样更完美了！
你先帮我该下：以用户名来判断级别部门，自动显示！

mxg825 · 发表于 2011-6-5 16:07

两句代码位置换一下就实现了！

long826121 · 发表于 2011-6-5 16:20

回复 mxg825 的帖子

你太厉害了！看样子我又该发帖找你回答了！
你先帮我改下：以用户名来判断级别部门，自动显示！
行吗？？

mxg825 · 发表于 2011-6-5 16:25

干脆列表框加个自动筛选！

long826121 · 发表于 2011-6-5 16:33

回复 mxg825 的帖子

你干脆把这个VBA程序改下就可以实现了！
只是出现一个错误！ If (arr(x, 1) = TextBox1.Value And arr(x, 2) = TextBox2.Value * 1) Then
就是类型不匹配！

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

mxg825 · 发表于 2011-6-5 16:39

将 Value 改成 Text
If (arr(x, 1) = TextBox1.TEXT And arr(x, 2) = TextBox2.TEXT) Then

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