用excel做了一个人事管理系统，现在出现一个问题我始终找不到原因。麻烦各位帮我...

apolar · 发表于 2016-1-22 12:47

本帖最后由 apolar 于 2016-1-25 16:27 编辑

用excel做了一个人事管理系统，现在出现一个问题我始终找不到原因。麻烦各位帮我看看，十分感谢！
问题点：
1、在没有其它excel文件打开的情况下（先打开附件的系统）一切正常。
2、当有其它的excel已打开，则会出现下界越标。
admin的登录密码为：123

谢谢！

为感谢各位我将这改好的共享给需要的人
管理员：admin
密码：888888

System-HR.zip (226.33 KB, 下载次数: 49)

n520 · 发表于 2016-1-24 11:35

图片选中的工作表没有啊

apolar · 发表于 2016-1-25 09:23

n520 发表于 2016-1-24 11:35
图片选中的工作表没有啊

不是这个问题，sheet4=sheets("设置")我改了也不行！

谢谢！

apolar · 发表于 2016-1-25 09:44

我想信一定有人能解决！

自己顶上去！！！

JX_shangrila · 发表于 2016-1-25 09:50

sheets("设置")前面加具体工作簿名称或者用with,me也尽量改成具体的工作簿名称

雪舞子 · 发表于 2016-1-25 09:54

这里加上一行代码试试：

Private Sub UserForm_Initialize()
Workbooks("人事管理系统").Activate
CboName.RowSource = "用户!A3:A" & Sheets("用户").Range("a65536").End(xlUp).Row
CboName.SetFocus
End Sub

apolar · 发表于 2016-1-25 11:55

雪舞子发表于 2016-1-25 09:54
这里加上一行代码试试：

Private Sub UserForm_Initialize()

谢谢！这种方式我试过了，不行的。

无聊的疯子 · 发表于 2016-1-25 14:40

出错的时候点调试

标黄代码    With Sheets("用户")

正如你所说，，不打开其它工作薄没错，打开了就报错，

因为  Sheets("用户")  前面省略了一些代码，会默认为当前激活的工作薄，工作表，

父路径添加上就行了，

With  ThisWorkbook.Sheets("用户")

你的工程里有很多地方都省略了 ThisWorkbook  ，自己慢慢添加吧

apolar · 发表于 2016-1-25 15:15

无聊的疯子发表于 2016-1-25 14:40
出错的时候点调试

标黄代码 With Sheets("用户")

十分感谢！！

apolar · 发表于 2016-1-25 16:06

JX_shangrila 发表于 2016-1-25 09:50
sheets("设置")前面加具体工作簿名称或者用with,me也尽量改成具体的工作簿名称

十分感谢！

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

用excel做了一个人事管理系统，现在出现一个问题我始终找不到原因。麻烦各位帮我...

相关帖子