设为首页收藏本站
简字体切换切换到宽版

ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步，快速开始

快捷登录

搜索
ExcelHome技术论坛»论坛 › Office/Excel 行业应用交流与培训 › Excel人力资源管理 › 员 工 档 案 系 统
EH技术汇-专业的职场技能充电站 妙哉！函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器，一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理，一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
1 ...45678910111213... 278下一页
返回列表 发新帖
楼主: 学良

[分享] 员 工 档 案 系 统

    [复制链接]
zhaojing-joy

TA的精华主题

TA的得分主题
发表于 2010-3-26 16:31 | 显示全部楼层
[广告] ★Excel Home云课堂 - 专业的职场技能充电站★         ★Excel三大利器★        ★ 笨办法学VBA全系列★
谢谢，学习了！
回复

举报

邱小小

TA的精华主题

TA的得分主题
发表于 2010-3-26 16:47 | 显示全部楼层
[广告] ★用Excel做企业管理系统，Excel服务器学习和下载★
回复

举报

蓝色枪骑兵

TA的精华主题

TA的得分主题
发表于 2010-3-26 18:00 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助★
感谢分享，我先学习一下。
回复

举报

黄小妹

TA的精华主题

TA的得分主题
发表于 2010-3-26 21:09 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助★
下是下载了,但要是能够学到里面细节就更棒了!谢谢 !
回复

举报

Ste1a

TA的精华主题

TA的得分主题
发表于 2010-3-26 21:46 | 显示全部楼层
[广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★
学良老师牛人啊
回复

举报

fxfxlh

TA的精华主题

TA的得分主题
发表于 2010-3-26 21:53 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册★
下载了，谢谢
回复

举报

szrmghui

TA的精华主题

TA的得分主题
发表于 2010-3-26 23:31 | 显示全部楼层
[广告] ★ ReportLite:表哥表姐早下班神器，专治各种报表不服，拒绝无意义的重复劳动 ★
下载回来学习，谢谢学良老师！
回复

举报

YZLSZAJ

TA的精华主题

TA的得分主题
发表于 2010-3-27 07:30 | 显示全部楼层
[广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★
还是这段代码有意思——

Private Sub Workbook_Activate()
  On Error Resume Next
  Application.Caption = "学良" '改变EXCEL左上标题
    Sheets("首页").Select '并定位在窗口上。。。。。。
    Application.StatusBar = "本系统登录时间： " & Year(Now()) & "年" & Month(Now()) & "月" & Day(Now()) & "日" & "(" & Hour(Now()) & ":" & Minute(Now()) & ":" & Second(Now()) & ")" & " 〓★〓【学良 欢迎您】〓★〓 " & W
End Sub

谢谢版主分享！
回复

举报

fire_bird

TA的精华主题

TA的得分主题
发表于 2010-3-27 08:52 | 显示全部楼层
[广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★
谢谢老师，下载学习
回复

举报

lizi007

TA的精华主题

TA的得分主题
发表于 2010-3-27 09:21 | 显示全部楼层
[广告] ★Excel Home云课堂 - 专业的职场技能充电站★         ★Excel三大利器★        ★ 笨办法学VBA全系列★
学良老师辛苦了，但还是要提一点小小意见，其中有些函数和代码可以精简，举例如下：
1、出身年月
=IF(J3="","",IF(AND(LEN(J3)<>15,LEN(J3)<>18),"错误",IF(ISERROR(1*(TEXT(MID(J3,7,6+(LEN(J3)=18)*2),"#-00-00"))),"错误",IF(OR((1*(TEXT(MID(J3,7,6+(LEN(J3)=18)*2),"#-00-00")))<VALUE("1905-01-01"),(1*(TEXT(MID(J3,7,6+(LEN(J3)=18)*2),"#-00-00")))>TODAY()),"错误",VALUE(TEXT(MID(J3,7,6+(LEN(J3)=18)*2),"#年00月00日"))))))
可改为
=--TEXT(MID(K3,7,6+(LEN(K3)=18)*2),"#-00-00")
2、出生距离今天的天数
=IF(ISERROR(1*(TEXT(MID(J3,7,6+(LEN(J3)=18)*2),"#-00-00"))),"错误",IF(OR((1*(TEXT(MID(J3,7,6+(LEN(J3)=18)*2),"#-00-00")))<VALUE("1905-01-01"),(1*(TEXT(MID(J3,7,6+(LEN(J3)=18)*2),"#-00-00")))>TODAY()),"错误",DATEDIF(TEXT(MID(J3,7,6+(LEN(J3)=18)*2),"#-00-00"),TODAY(),"D")))
可改为
=DATEDIF(G3,NOW(),"d")
3、星期几
=CHOOSE(WEEKDAY(D55,2),"星期一","星期二","星期三","星期四","星期五","星期六","星期日")
可改为
=TEXT(D55,"aaaaa")
4、vba中的代码也可精简
Sub 清空表格()
Application.ScreenUpdating = False
            Sheets("录入登记表").Cells(2, 2) = ""
            Sheets("录入登记表").Cells(3, 3) = ""
            Sheets("录入登记表").Cells(3, 6) = ""
            Sheets("录入登记表").Cells(3, 8) = ""
            Sheets("录入登记表").Cells(3, 10) = ""
            Sheets("录入登记表").Cells(4, 7) = ""
            Sheets("录入登记表").Cells(4, 10) = ""
            Sheets("录入登记表").Cells(5, 3) = ""
            Sheets("录入登记表").Cells(5, 10) = ""
            Sheets("录入登记表").Cells(6, 3) = ""
            Sheets("录入登记表").Cells(6, 10) = ""
            Sheets("录入登记表").Cells(7, 3) = ""
            Sheets("录入登记表").Cells(7, 10) = ""
            Sheets("录入登记表").Cells(8, 10) = ""
            Sheets("录入登记表").Cells(9, 3) = ""
            Sheets("录入登记表").Cells(9, 5) = ""
            Sheets("录入登记表").Cells(9, 8) = ""
            Sheets("录入登记表").Cells(9, 11) = ""
            Sheets("录入登记表").Cells(11, 3) = ""
            Sheets("录入登记表").Cells(12, 3) = ""
            Sheets("录入登记表").Cells(13, 3) = ""
            Sheets("录入登记表").Cells(14, 3) = ""
            Sheets("录入登记表").Cells(15, 3) = ""
            Sheets("录入登记表").Cells(16, 3) = ""
            Sheets("录入登记表").Cells(18, 3) = ""
            Sheets("录入登记表").Cells(18, 5) = ""
            Sheets("录入登记表").Cells(18, 7) = ""
            Sheets("录入登记表").Cells(18, 10) = ""
            Sheets("录入登记表").Cells(18, 11) = ""
            Sheets("录入登记表").Cells(19, 3) = ""
            Sheets("录入登记表").Cells(19, 5) = ""
            Sheets("录入登记表").Cells(19, 7) = ""
            Sheets("录入登记表").Cells(19, 10) = ""
            Sheets("录入登记表").Cells(19, 11) = ""
            Sheets("录入登记表").Cells(20, 3) = ""
            Sheets("录入登记表").Cells(20, 5) = ""
            Sheets("录入登记表").Cells(20, 7) = ""
            Sheets("录入登记表").Cells(20, 10) = ""
            Sheets("录入登记表").Cells(20, 11) = ""
            Sheets("录入登记表").Cells(21, 3) = ""
            Sheets("录入登记表").Cells(21, 5) = ""
            Sheets("录入登记表").Cells(21, 7) = ""
            Sheets("录入登记表").Cells(21, 10) = ""
            Sheets("录入登记表").Cells(21, 11) = ""
End Sub
可改为
Sub 清空表格()
Sheets("录入登记表").Activate
Application.ScreenUpdating = False
            Cells(2, 2) = ""
            Cells(3, 3) = ""
            Cells(3, 6) = ""
            Cells(3, 8) = ""
            Cells(3, 10) = ""
            Cells(4, 7) = ""
            Cells(4, 10) = ""
            Cells(5, 3) = ""
            Cells(5, 10) = ""
            Cells(6, 3) = ""
            Cells(6, 10) = ""
            Cells(7, 3) = ""
            Cells(7, 10) = ""
            Cells(8, 10) = ""
            Cells(9, 3) = ""
            Cells(9, 5) = ""
            Cells(9, 8) = ""
            Cells(9, 11) = ""
            Cells(11, 3) = ""
            Cells(12, 3) = ""
            Cells(13, 3) = ""
            Cells(14, 3) = ""
            Cells(15, 3) = ""
            Cells(16, 3) = ""
            Cells(18, 3) = ""
            Cells(18, 5) = ""
            Cells(18, 7) = ""
            Cells(18, 10) = ""
            Cells(18, 11) = ""
            Cells(19, 3) = ""
            Cells(19, 5) = ""
            Cells(19, 7) = ""
            Cells(19, 10) = ""
            Cells(19, 11) = ""
            Cells(20, 3) = ""
            Cells(20, 5) = ""
            Cells(20, 7) = ""
            Cells(20, 10) = ""
            Cells(20, 11) = ""
            Cells(21, 3) = ""
            Cells(21, 5) = ""
            Cells(21, 7) = ""
            Cells(21, 10) = ""
            Cells(21, 11) = ""
End Sub
还有可精简的地方，就不一一列举了。
学良老师，在下班门弄斧了！
回复

举报

下一页 »
1 ...45678910111213... 278下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-23 16:06 , Processed in 0.035143 second(s), 7 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！     本站特聘法律顾问：李志群律师

快速回复 返回顶部 返回列表