[原创]一个简易的考勤系统(24楼更新)

andysky · 发表于 2008-6-4 17:45

本帖最后由 andysky 于 2013-8-28 09:56 编辑

一个简易的考勤系统

avB8Eu3O.rar (11.1 KB, 下载次数: 578)

9wXdXmaO.rar (10.99 KB, 下载次数: 283)

[原创]一个简易的考勤系统

Moneky · 发表于 2008-6-4 18:00

版主出品，实属精品。提个建议：

For i = 1 To 7 '  把7 改成 Sheets("参考值").[a1].end(xldown).row 更加具有灵活性，更易扩展
        With Application.CommandBars("cell").Controls.Add(Type:=msoControlButton, Temporary:=True)
            .Caption = Sheets("参考值").Cells(i, 1)
            .OnAction = "AA"
            .FaceId = 477 + i
        End With
    Next

[此贴子已经被作者于2008-6-4 18:30:29编辑过]

andysky · 发表于 2008-6-4 18:45

简易版就是供大家根据自己实际情况做修改的....

sheep204 · 发表于 2008-6-4 18:54

占位！学习！

独步论坛 · 发表于 2008-6-27 23:25

要是能自动汇总就更好了

李凤 · 发表于 2009-1-4 14:59

看看,呵呵,有多简易,

oyh499 · 发表于 2009-4-6 14:27

学习中，谢谢分享

lvyikun · 发表于 2009-4-10 17:48

好帖子,共同分享.

hwxboy · 发表于 2009-4-22 20:59

好帖好帖！！！！

menghuazhang · 发表于 2009-8-17 13:09

你好版主：

小小的考勤系统简单实用，很不错。学生学习了。。。。。。

有个需求能否改进？我所在的公司实行三班制：8小时一班分成白班中班夜班

可否按此在输入快捷性上增加这三个信息录入快捷方式？？

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

[原创]一个简易的考勤系统(24楼更新)

一个简易的考勤系统

确实不错