[已解决]请教变量赋值的问题。

无聊的疯子

代码思路有Bug,虽然你使用Combobx事件把密码提取到了,

但是在 CommandButton1_Click 事件中并没有判断 Combobox 有没有值的代码

如果用户没选择 用户名,而直接输入密码然后点确定,就直接关闭文件了,这是不是不太智能呢??

所以还是判断一下Combobox有没有值吧??
ComboboX的事件也不需要了,直接在 按钮事件里查找密码,这样还可以改变一下变量的生存期!!

另外,你只是关闭了文件,而并没有退出程序,这是不是也不太好呢??

如果是打开有有多个 Excel,这当然不能关闭程序,而只有这一个程序的时候,还是关了比较好吧??

添加上判断后,使用 application.quit 来退出应用程序吧

silenthunter

无聊的疯子 发表于 2013-2-17 22:18
代码思路有Bug,虽然你使用Combobx事件把密码提取到了,

但是在 CommandButton1_Click 事件中并没有判断 C ...

是的，要把判断改改。明天再想

combobox事件的内容可以放到click里。

用户完全有可能打开多个文件，所以还是不要退出程序好。

silenthunter

爱疯 发表于 2013-2-17 21:06
Worksheets("user&password").Range("a:a").Find(user_name)
并不是返回字符串，而是因你把返回这个ran ...

那么在VBA内部，Worksheets("user&password").Range("a:a").Find(user_name) 解释为什么？必须解释为range对象吧？只有range才存在offset。

爱疯

silenthunter 发表于 2013-2-17 23:13
那么在VBA内部，Worksheets("user&password").Range("a:a").Find(user_name) 解释为什么？必须解释为rang ...

无聊的疯子

silenthunter 发表于 2013-2-17 23:10
是的，要把判断改改。明天再想

combobox事件的内容可以放到click里。

关闭时,检查打开的工作薄数量,如果只打开了一个,就退出程序,这样不就解决了??

yuhe0008

User_Password = Worksheets("user&password").Range("a:a").Find(User_Name)(1, 2)