多功能人事信息管理系统（附件已更新）

alzeng · 发表于 2009-6-16 08:04

原帖由 carmp3 于 2009-6-16 01:40 发表
打开时提示：运行时错误‘13’，类型不匹配！恳请楼主检查一下！

如果在你的电脑上出现这样的问题，就在Date前加上VBA，即VBA.Date ，这样应该就可以了。

alzeng · 发表于 2009-6-16 08:05

原帖由七戒于 2009-6-16 01:53 发表
垦请楼主或哪位高手把大家测试发现的问题调试重发下，供大家一起研究学习～。像这种宝贵的资源很容易用到工作中去，同时也非常感谢楼主的无私精神！！！

我今天抽时间加入一些处理过的数据，以利大家测试。

alzeng · 发表于 2009-6-16 08:43

附件已做更新，加入少量处理过的数据供测试。

lbl016 · 发表于 2009-6-16 08:53

原帖由 alzeng 于 2009-6-16 08:43 发表
附件已做更新，加入少量处理过的数据供测试。

我怎么打开时显示编译错误,找不到工程或库 ?如18楼图

cdmei_duan · 发表于 2009-6-16 08:58

谢谢楼主，正好要用到。

alzeng · 发表于 2009-6-16 09:00

原帖由 lbl016 于 2009-6-16 08:53 发表

我怎么打开时显示编译错误,找不到工程或库 ?如18楼图

引用一下 987654321 的解答：

1.在VBE窗口中选择出错的VBA工程
2.在“工具”-->“引用”，打开引用对话框
3.查找带勾项中含“丢失...”、“找不到...”、“MISSING...”的条目，并取消勾选！
3.1一般情况下，用第3步即可解决，如问题依旧，请在“可用的引用”中查找并勾选与丢失的条目类似的引用（一般除版本号不同，其它名称相同，如有多个版本，请选择最高版本）
如果还不能解决，可能是电脑中缺少控件或对象库，需要下载控件并注册，后返回上面步骤解决！

LAOMALIN · 发表于 2009-6-16 09:26

原帖由 alzeng 于 2009-6-16 09:00 发表

引用一下 987654321 的解答：

1.在VBE窗口中选择出错的VBA工程
2.在“工具”-->“引用”，打开引用对话框
3.查找带勾项中含“丢失...”、“找不到...”、“MISSING...”的条目，并取消勾选！
3.1一般情况下， ...

这个方法说明收藏ING，方便以后说明一些使用方法

dsp5000 · 发表于 2009-6-16 16:46

多谢分享

415823168 · 发表于 2009-6-16 18:21

LZ ，请问，我如果是把年龄=出生年月日，不从身份证上得到，程序该要做哪个位置修改，谢谢
Cells(irow, 6).FormulaR1C1 = "=If(Len(rc[9]) = 18, Year(today()) - Mid(rc[9], 7, 4), Year(today()) - 1900 - Mid(rc[9], 7, 2))"
Cells(irow, 6).FormulaR1C1 = "=If(Len(rc[9]) = 18, Year(today()) - Mid(rc[9], 7, 4), Year(today()) - 1900 - Mid(rc[9], 7, 2))"
年龄的公式不是这两条控制，因为有的没有身份的时候，年龄就不能统计了，如何修改，
.Cells(irow, 6).FormulaR1C1 = "=FLOOR(((TODAY()-rc[1])/365),1)"
用舍入函数好像不行啊，我改为上面的代码后，在点基本资料的查询修改按钮时，在下面这条报错
TBold = .Cells(irow, 6)
不会VB，楼主能不能帮忙改下，谢谢

lbl016 · 发表于 2009-6-16 18:57

原帖由 alzeng 于 2009-6-16 09:00 发表

引用一下 987654321 的解答：

1.在VBE窗口中选择出错的VBA工程
2.在“工具”-->“引用”，打开引用对话框
3.查找带勾项中含“丢失...”、“找不到...”、“MISSING...”的条目，并取消勾选！
3.1一般情况下， ...

.在“工具”-->“引用”，引用是灰色的无法选择

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

[分享] 多功能人事信息管理系统（附件已更新）

谢谢