使用Excel宏功能将考勤记录生成上班工时表-Toy模板网

这篇具有很好参考价值的文章主要介绍了使用Excel宏功能将考勤记录生成上班工时表。希望对大家有所帮助。如果存在错误或未考虑完全的地方，请大家不吝赐教，您也可以点击"举报违法"按钮提交疑问。

现有一份考勤记录表，需要计算出每个员工，每天上班总工时，加班工时。某公司上班时间 8：00-11.30 下午 12:30-17:00 晚上17：30后算加班。

使用Excel宏功能将考勤记录生成上班工时表

那么接下来介绍通过Excel的宏功能实现工时自动计算功能。最终成品效果如下：

使用Excel宏功能将考勤记录生成上班工时表

功能设计思路：

根据考勤日期获取当月天数，并自动填充为列头
根据考勤明细获取全部员工数，并自动填充，格式（部门，姓名，数据项目[上班时间，下班时间，上班工时，加班工时]）
根据已获取到的员工明细，依次获取考勤打卡时间，并与日期对应
通过运算规则计算出上班总工时，加班工时。到此整个功能完成

代码实现：文章来源地址https://www.toymoban.com/news/detail-504730.html

Sub CreateKaoQin()
    Dim 月份 As Date
    Dim iDay As Integer
    Dim i, j, k, 总人数 As Double
    Dim 结果起始行 As Double
    Dim 数据表 As String
    Dim 数据表起始行 As Double
    Dim 数据表结束行 As Double
    Dim 部门 As String
    Dim 姓名 As String
    
    Dim 旧部门 As String
    Dim 旧姓名 As String
    
    Dim 结果当前行 As Double
    
    
    Dim 数据表日期 As Date
    Dim 上班时间 As Date
    Dim 下班时间 As Date
    Dim 数据表天数 As Integer
    Dim 加班时间, 小时, 分钟 As Double
        
    '清空数据区
    Sheets("考勤数据").Range(Cells(4, 1), Cells(65534, 35)).Clear
    
    结果起始行 = 3
    
    '获取月份
    月份 = CDate(Sheets("考勤数据").Range("B1").Value)
    '通过月份获取当月总天数
    iDay = Day(DateSerial(Year(月份), Month(月份) + 1, 1) - 1)
    数据表 =

到了这里，关于使用Excel宏功能将考勤记录生成上班工时表的文章就介绍完了。如果您还想了解更多内容，请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章，希望大家以后多多支持TOY模板网！