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

aeph · 发表于 2009-8-13 08:55

相當之好﹐但打開時顯示如下圖片所示﹕

aeph · 发表于 2009-8-13 09:00

相當之好﹐但打開時顯示如下圖片所示﹕

alzeng · 发表于 2009-8-13 09:31

原帖由 aeph 于 2009-8-13 09:00 发表
相當之好﹐但打開時顯示如下圖片所示﹕

请查看顶楼底部的注释，以解决你所遇到的问题。

aeph · 发表于 2009-8-13 20:06

LZ，怎么运行的不了呀！

jynh11 · 发表于 2009-8-13 20:16

谢谢分享，学习了

aeph · 发表于 2009-8-13 20:29

在点击“综合查询时”中出现如下图示！

[ 本帖最后由 aeph 于 2009-8-13 20:47 编辑 ]

zhenghua9256 · 发表于 2009-8-14 09:32

谢谢楼主分享!

alzeng · 发表于 2009-8-14 09:39

原帖由 aeph 于 2009-8-13 20:29 发表
在点击“综合查询时”中出现如下图示！

My未定义：
Sub delp() '删除图片
Dim P As Shape
Dim My As Worksheet

Set My = Sheets("个人资料")
For Each P In My.Shapes
P.Delete
Next
End Sub

zxhmfk · 发表于 2009-8-16 12:40

我顶!!!
只是图片怎么加???
还有运行速度太慢了啊......

zxhmfk · 发表于 2009-8-16 16:23

原帖由 alzeng 于 2009-7-25 14:21 发表

在照片文件夹Pic里放一个名称为001的gif格式图片。

应该每个员工有一照片吧!!!

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

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