使用Excel2003考勤记录模板制作考勤表

合集下载

excel考勤表的制作方法

excel考勤表的制作方法excel考勤表的制作方法：制作考勤表步骤1：首先，如下图，前三行留空。

在a4输入一个姓名，从a4开始直到h4加上边框。

制作考勤表步骤2：选择a1:h1，选择【合并单元格】。

制作考勤表步骤3：双击合并后的单元格，输入公式：=text(now(),"yyyy年mm月考勤表")注意：为了防止6月份该函数自动变化，可以在月末粘贴成数值保存。

制作考勤表步骤4：在b3输入1，并向右填充日期，本例填充7天，也就是当月的1到7号。

注意：实际情况可以填充到31，并用if判断，如果超过本月的最大天数显示空白。

制作考勤表步骤5：在b2输入当月的第一天，并向右填充。

注意：这里也可以用时间公式完成。

如果月份和年份处用下拉菜单生成，此处和表头均可以用公式自动生成，不会随着时间变化而变化。

制作考勤表步骤6：选中刚才输入的日期，鼠标右键，选择【设置单元格格式】。

在【自定义】处输入：aaaa，并点击【确定】按钮。

制作考勤表步骤7：这样，刚才输入的日期就变成“星期几”的显示样式了。

制作考勤表步骤8：在一个用不到的空白列输入对考勤的标记，然后在名称框输入【选项】并回车。

这样就定义了一个“选项”的名称。

制作考勤表步骤9：选中姓名右侧的空白位置，选择【数据】-【数据有效性】。

制作考勤表步骤10：在【允许】处选择“序列”，在来源处输入：=选项，勾选【提供下拉箭头】。

制作考勤表步骤11：这样，就在b到h列生成了下拉菜单，可以对员工的考勤情况进行标记。

制作考勤表步骤12：根据员工实际考勤情况在不同日期进行下拉菜单选择，完成后效果如下图：制作考勤表步骤13：最后一步，要对当月的考勤情况进行统计。

在记录区域的右方，如下图设置统计格式。

其中i4:n4要输入公式统计。

制作考勤表步骤14：双击i4单元格，输入公式：=countif($b4:$h4,i$3)注意：公式中对原始区域和表头的引用是特别要关注的地方。

excel制作考勤统计表的教程

excel制作考勤统计表的教程Excel中可以制作各种各样的统计表，其中考勤统计表也经常需要制作，考勤统计表具体该如何制作呢?接下来是小编为大家带来的excel制作考勤统计表的教程，供大家参考。

excel制作考勤统计表的教程制作考勤统计表步骤1：不少考勤系统记录下来的每天考勤情况形如下图所示，可以看到，当天所有的出勤记录都在一个单元格内，无法进行有效统计。

因此，需要对这些考勤记录进行分列，去掉非加班记录，才能进行加班工时统计。

excel制作考勤统计表的教程图1 制作考勤统计表步骤2：选中所有打卡记录，如下图所示，依次打开数据-分列菜单。

excel制作考勤统计表的教程图2 制作考勤统计表步骤3：接着，在文本分列向导里选择合适的文件类型。

一般各个记录之间是空格等分隔符号隔开，因此，需要选分隔符号。

然后单击下一步进行下一步骤的操作。

excel制作考勤统计表的教程图3 制作考勤统计表步骤4：接着，根据记录数据的情况选择分隔符号，例如本文演示的数据里用的是空格。

excel制作考勤统计表的教程图4 制作考勤统计表步骤5：接着再选择分列后每列的数据格式，一般选常规即可。

至此，分列设置完成，单击完成按钮即可。

excel制作考勤统计表的教程图5 制作考勤统计表步骤6：分列后，把非加班记录去掉，保留加班考勤记录供随后的统计用，例如下图所示的F和G列。

excel制作考勤统计表的教程图6 制作考勤统计表步骤7：去掉非加班考勤记录后，把加班记录整理成加班工时统计表，接着就可以进行工时统计了，例如下图所示。

制作考勤统计表步骤8：一般加班薪酬都是按小时计算的，而计算工时则是用半小时作为基准单位，不足半小时的部分舍去，例如加班50分钟只计算0.5个工时，而加班1小时10分钟只计算1个工时。

当然，具体的计算方法各个企业有不同的规定，本文以上述普遍规则来讲解,即以半小时作为工时计算基准单位。

excel制作考勤统计表的教程图7 制作考勤统计表步骤9：如下图所示，在D2里输入=INT((HOUR(C2-B2)*60+MINUTE(C2-B2))/30)/2，利用这个公式即可计算出编号为1001的员工的加班工时。

Exce中如何制作完整动态考勤表

Exce中如何制作完整动态考勤表例子：一．【插入】【窗体】【微调项】插入窗体到【月单元格前】，【选择窗体右键设置对象格式】【控制】【当前值为2023】【最小值2023】【最大值自己设】【步长1】【单元格链接为2023单元格】，同理，【复制前面的窗体移动到6前】【选择窗体右键设置对象格式】【控制】【当前值为6】【最小值1】【最大值12】【步长1】【单元格链接为6单元格】二．如何联动表头，在【表头内】输入【=2023单元格&年单元格&6单元格&月单元格&”考勤表”】，实现年月变化时表头变化三．日期联动，在【日期行单元格】输入【=DATE（2023单元格,6单元格，日为1）】，当出现图片2错误时，【右键设置单元格格式】【数字】【自定义改为d格式】，日期行第二格【=前一个+1】再往右拉填充，同理，选中【第二个以及后面的单元格】【右键设置单元格格式】【数字】【自定义改为d格式】四．星期联动，在【星期行第一个单元格输入=上方日期单元格】，【右键设置单元格格式】【数字】【自定义改为aaa格式】，向右填充五．考勤的填充，【选中考勤区域】【数据】【有效性】【有效性】【允许选择序列】，【来源选择已经编辑好的考勤符号】,即完成了下拉框制作六．周末标注颜色，选中【表格日期星期考勤区域】，【开始】【条件格式】【新建规则】【使用公式确定要设置格式的单元格】输入【=weekday(1号单元格锁行不锁列，2)>5】即【=weekday(c$4,2)>5】,【格式】【图案选择一个颜色】，即完成七．判断大小月份，如4月份只有30天，【选中日期星期两行】【开始】【条件格式】【新建规则】【使用公式确定要设置格式的单元格】【=month(日期第一行单元格，锁行不锁列）>上方4单元格】【格式】【自定义】【输入;;;表示隐藏的意思】即隐藏了日期30后的数字八．考勤表数据自动统计，用COUNTIF 函数,【COUNTIF(区域，条件)】，【COUNTIF （考勤行第一行锁列），条件为出勤符号锁列】，即函数【=COUNTIF($C6:$AF6,D$17)】，完成，再向右向下填充。

如何用Excel高效制作考勤表

如何用Excel高效制作考勤表办公室的内勤工作是公司里面上下联系的枢纽，每天会同一大堆琐碎事务打交道。

比如同事出差的机票和酒店预订、参与制度的制定、负责办公用品的采购和预算、员工考勤的统计、会议安排以及车辆安排等等。

因为要管理很多方面的事务，所以对数据统计功能强大的Excel是必须掌握的，起码要熟悉Excel的一些求和、求平均值等公式。

随着工作的开展，要管理的数据量增加，为了避免出错，这个时候就要学会使用一些复杂的公式帮助自己的工作了。

在这么多的工作中，最让人头疼的可能就是员工的考勤工作，因为这是关系到大家的工资收入的问题。

要是一不小心搞错了，导致同事扣钱那罪过就大了。

所以，我对这块工作异常仔细，终于摸索出一个用Excel管理考勤的方法，用这个方法不但减少了工作量，而且不会出错，让工作更轻松。

做好考勤数据整理繁杂无章变条理有序考勤管理工作必然涉及到公司考勤日期、人员名单、考勤登记符号等资料，而且为了便于每月月末制作工资表，还需要整理每个员工与工资表相关资料，如岗位、日资标准、保险金等等。

日常工作中将这些资料及时输入Excel是非常必要的。

启动Excel2003，新建一个工作簿，将其命名，如“海泽科技有限公司考勤管理明细表”，在其中新建一个工作表，命名为“基础资料”，在此表中输入公司员工名单、员工名单、岗位、日资标准、保险金、考勤年份、考勤月份、考勤符号以及考勤符号说明等内容。

所谓考勤符号，就是在每日登记考勤时我们所使用的记号，如“全”代表全班、“半”代表半天班、“休”代表休班等，考勤符号可以根据自己公司的使用习惯而定，既可以使用文字，也可以使用图形符号，而考勤符号说明则是为了方便考勤人识别，防止出错(图1)。

为了便于以后考勤工作引用这些基础数据，应该将一些基础数据区域予以定义名称，执行“插入→名称→定义”菜单命令，在弹出的“定义名称”对话框中，添加4个新名称，其分别为：员工名单，其引用位置为“=基本资料!$A$3:$A$22”;年份，其引用位置为“=基本资料!$E$3:$E$7”;月份，其引用位置为“=基本资料!$F$4:$F$15”;出勤，其引用位置为“=基本资料!$G$3:$G$8”。

excel制作考勤表的方法步骤详解_最简单的员工考勤表

excel制作考勤表的方法步骤详解推荐文章如何用excel做地图教程热度：Excel中进行设置双重密码的操作技巧热度： excel中求和筛选的使用教程热度： excel2007密码热度：关于excel密码热度：平常单位的一些进货单出库单类的表格都是用excel制作的，今天单位没有考勤表了，于是我就用excel制作考勤表，这样就不用出去买了，那么下面小编就教你怎么用excel制作考勤表。

希望对你有帮助！用excel制作考勤表的步骤先打开excel，我的建议是在表格中先输入你要输入的文字，然后再来编辑格式。

文字和数字输入完了，下一步就是调整字的大小，还有就是将表格用框框框起来，这样会更直观一些。

用excel制作考勤表的步骤图2如何在框中做斜线，请根据下面的图来做。

用excel制作考勤表的步骤图3带斜线的框中如何输入文字，先用插入命令画一个框框，然后再点右键，选择编辑文字，输入你要的文字.用excel制作考勤表的步骤图4然后进行这样的设置，如图，用excel制作考勤表的步骤图5有两格的合并起来，就成了一个格子。

如图所示。

用excel制作考勤表的步骤图6这样我们的考勤表就做好了，快动手试验一下，看一下自己的成果。

用excel制作考勤表的步骤图7excel创建考勤表的方法创建考勤表步骤1：首先，如下图，前三行留空。

在A4输入一个姓名，从A4开始直到H4加上边框。

创建考勤表步骤2：选择A1:H1，选择【合并单元格】。

excel创建考勤表的方法图2创建考勤表步骤3：双击合并后的单元格，输入公式：=TEXT(NOW(),"yyyy年mm月考勤表")注意：为了防止6月份该函数自动变化，可以在月末粘贴成数值保存。

excel创建考勤表的方法图3创建考勤表步骤4：在B3输入1，并向右填充日期，本例填充7天，也就是当月的1到7号。

注意：实际情况可以填充到31，并用IF判断，如果超过本月的最大天数显示空白。

制作excel自动化考勤表,七大功能,助你轻松搞定考勤统计

制作excel自动化考勤表,七大功能,助你轻松搞定考勤统计
hello，大家好，今天跟大家分享下如何制作考勤表，我们先来看下今天制作的考勤表都能达到那些效果
1. 表头根据所选月份自动变动
2. 自动判断当月天数星期
3. 周六周日自动填充颜色，选择单休仅周日填充颜色
4. 自动计算当月应出勤天数，遇到节假日需要手动添加节假日
5. 自动添加边框，公式自动填充，下拉
6. 自动汇总当月考勤
7. 汇总表缺勤自动填充颜色
以上就是今天我们需要制作的考勤表的大致内容，制作的方法大多使用的是公式以及条件格式，都是我们比较常用的功能，下面就让我们来一起操作下吧
一、表头根据所选月份自动变动
首先我们需要在第二列制作需要数据的内容，如下图，然后我们在第一列中创建合并单元格，然后在里面输入公式：=D2&'年'&H2&'月'&'考勤表'
在这里d2是年份，h2是月份然后我们使用链接符号将数据链接起来，这样的话就能能够达到表格自动变化的效果
打开UC浏览器查看更多精彩图片
设置完成后我们只需要选择星期这一行数据向下填充，在填充柄中选择仅填充格式即可，这样的话我们就批量的向下填充了格式
打开UC浏览器查看更多精彩图片
然后我们选择这几列数据，选择使用公式确定格式然后输入公式：=$A1<>''，紧接着点击格式，选则外边框即可，点击确定，这样的话每当读取到一个名字就会自动的为整行添加边框
怎么样？你觉得这些功能满足你的日常使用吗？。

使用Excel考勤记录模板制作考勤表

使用Excel考勤记录模板制作考勤表
汇报人:XX
2024-01-23
目
CONTENCT
录
ห้องสมุดไป่ตู้
• 考勤表制作背景与目的 • Excel考勤记录模板介绍 • 制作考勤表步骤详解 • 考勤表数据分析与可视化 • 常见问题及解决方案 • 总结与展望
01
考勤表制作背景与目的
背景介绍
企业或组织规模扩大，员工数量增多，传统考勤方式效率低下。
推广移动化考勤管理
对于组织而言，推广移动化考勤管理可以方便员工打卡，提高考勤管理的便捷性和准确性。
3
加强智能化数据分析应用
组织可以积极引入智能化数据分析技术，对考勤数据进行深入挖掘和分析，为管理提供更加全面和准确的信息支持。
THANK YOU
感谢聆听
模板使用方法和注意事项
使用方法
下载并解压模板文件后，在Excel中打开模板，根据实际需求调整表格结构和内容，然后录入员工的考勤数据。可以使用Excel的筛选、排序等功能对数据进行处理和分析。
注意事项
在使用模板前，建议先备份原始文件以防万一；在录入数据时，要确保数据的准确性和完整性；在处理大量数据时，建议关闭Excel的自动计算功能以提高性能；在分享或打印考勤表时，要确保表格格式和数据的正确性。
利用Excel的数据处理和分析功能，可以对考勤数据进行统计、分析和可视化，帮助管理者更好地了解员工的出勤情况和问题所在。
未来发展趋势预测
01
移动化考勤管理
随着移动互联网的普及，未来考勤管理将更加便捷，员工可以通过手机
等移动设备随时随地进行考勤打卡。
02
智能化数据分析
借助人工智能和大数据技术，未来的考勤系统将能够自动分析考勤数据

excel简单出勤统计表方法

excel简单出勤统计表方法在Excel中，你可以使用不同的方法来创建简单的出勤统计表。

以下是一种可以使用的方法：步骤1：数据录入-日期-员工姓名-上班时间-下班时间-工时计算然后，在“日期”列下输入出勤记录的日期，例如“1/1/2024”、“1/2/2024”等。

在“员工姓名”列下输入员工姓名，以及在“上班时间”和“下班时间”列下输入员工的上班和下班时间。

步骤2：计算工时在“工时计算”列下，使用Excel的公式功能来计算每个员工的工时。

假设上班时间和下班时间分别位于C列和D列。

在“工时计算”列的第一个单元格中，输入以下公式：=D2-C2然后，将该公式应用于“工时计算”列的所有单元格，以计算所有员工的工时。

步骤3：计算总工时在工作表的底部，创建一个总计行，用于计算所有员工的总工时。

在“工时计算”列下的总计行中，使用Excel的“SUM”函数来计算所有员工的总工时。

例如，在“工时计算”列的最后一个单元格中，输入以下公式：=SUM(E2:E10)其中，E2:E10是你的工时计算列的范围。

该公式将计算E2到E10范围内的所有值的总和，并显示在总计行中。

步骤4：添加其他统计信息（可选）如果你想要添加其他统计信息，例如每个员工的平均工时或最大工时，可以在工作表中创建其他公式来计算这些值。

例如，为了计算平均工时，可以使用Excel的“AVERAGE”函数。

步骤5：格式化表格最后，为了使出勤统计表看起来更专业和易于阅读，你可以对表格进行格式化。

可以设置表格的标题样式和列宽度，可以使用Excel的条件格式功能来对工时数据进行格式化，例如对超时工时进行突出显示。

在Excel中创建简单的出勤统计表可以帮助你快速和准确地记录和计算员工的工时，以及生成各种统计信息。

Excel教程——制作考勤表,自动统计出勤天数

相信不少公司都没上考勤管理系统，因此员工出勤情况只能手工记录。

今天我们就来制作一张考勤表，通过录入每天考勤情况，可以实现自动统计出勤、事假、调休等天数。

考勤表样式如下：
第1步，制作“考勤”工作表
“考勤”工作表，内容和格式如下：
第2步，制作“类别”工作表“类别”工作表的内容如下：
第3步，设置输入数据有效性和公式
首先，选中“考勤”表中R7：AV26区域，然后选中“数据”-“数据工具”-“数据验证”选项，弹出“数据验证”对话框。

其中，允许下拉列表选择“序列”选项，来源选择或数据数据源“=类别!$B$2:$B$16”，如下图所示：
第4步，设置公式
设置正常出勤工作日公式，其中C7单元格公式为：
=IF(COUNTIF(R7:AV7,$E$27)>0,COUNTIF(R7:AV7,$E$27),"")，其中E27表示正常出勤符号“√”所在单元格地址。

函数COUNTIF(R7:AV7,$E$27),"")表示R7至AV7区域值等于正常出勤符号“√”的个数。

再设置“加班”列公式，即D7单元格公式为：
=IF(COUNTIF(R7:AV7,$H$27)>0,COUNTIF(R7:AV7,$H$27),"")，其中H27表示加班符号“J”所在单元格地址。

最后，将中班、夜班、……、出差列所对应的第7行分别设置公式。

然后选中C7：Q7单元格区域，往下复制公式到C29：Q29区域。

最终实现效果演示：。

如何用excel做考勤表教程

如何用excel做考勤表教程Excel是一个办公很经常用到的一个办公软件，他主要用于数据的分析、查看、对比等，让数据看起来更直观，更容易对比，而有很多时候需要用表格绘制考勤表，接下来请欣赏店铺给大家网络收集整理的如何用excel做考勤表教程。

如何用excel做考勤表教程1：画表格如何用excel做考勤表教程2：打开一张空白的EXCEL工作表，先按下图所示画出样子。

如何用excel做考勤表教程3：图中M1:P1是合并单元格，用于填写“年”，S1:T1是合并单元格，用于填写“月”，为了醒目设置成浅蓝色底纹。

如何用excel做考勤表教程4：设置公式为了让第二行中的“星期”能自动显示，需要设置公式，如下：如何用excel做考勤表教程5：在D2单元格中输入公式=IF(WEEKDAY(DATE($M$1,$S$1,D3),2)=7,"日",WEEKDAY(DATE($M$1,$S$1,D3),2))这时就能看到D2单元格中出现一个表示星期的“日”字(这说明2011年5月1号是星期日)。

公式含义：先用DATE函数把M1格中的“年”、S1格中的“月”、D3格中的“日”组成一个电脑能识别的“日期”;再用WEEKDAY函数把这个“日期”变成星期所代表的数字。

如何用excel做考勤表教程6：WEEKDAY函数后面加了参数“2”，是为了让星期一显示为“1”，让星期二显示为“2”...让星期日显示为“7”。

如何用excel做考勤表教程7：由于我们不习惯把星期日叫成“星期7”，所以最后用IF函数做判断，把显示为“7”的自动改成“日”。

提示：函数DATE与WEEKDAY在EXCEL自带的帮助中有详细的用法介绍，想了解它们的朋友可以参考。

如何用excel做考勤表教程8：为了方便我们中国人的习惯，还要把显示为阿拉伯小写数字的星期变成中文数字，即“星期1”变成“星期一”这种格式。

这就需要通过定义单元格格式来实现。

使用Excel创建一个员工考勤

使用Excel创建一个员工考勤考勤是企业管理中非常重要的一项工作，它可以帮助企业准确记录员工的工作情况，包括上班时间、迟到早退、请假等。

在过去，考勤通常是由人力资源部门手动完成，但是随着技术的进步，我们可以利用Excel这一强大的工具来简化和自动化考勤管理。

本文将详细介绍如何使用Excel创建一个员工考勤表。

第一步：创建考勤表格首先，打开Excel软件，创建一个新的工作表。

在第一行输入以下列标题：员工姓名、日期、上班时间、下班时间、工作时长、迟到早退、请假、加班等。

这些列将帮助我们记录员工的考勤情况。

第二步：填写员工信息在第一列下方的每一行中，填写员工的姓名。

同时，在日期列下方的每一行中，填写考勤日期。

这样，我们就可以通过姓名和日期来准确记录每个员工每天的考勤情况。

第三步：填写考勤数据在上班时间和下班时间列中，我们可以输入员工的实际上班和下班时间。

工作时长列中，可以通过简单的计算公式来计算员工的工作时长，例如，下班时间减去上班时间即可得到工作时长。

第四步：处理迟到早退情况如果员工迟到或早退，我们可以在迟到早退列中输入相应的信息，如“迟到30分钟”或“早退1小时”。

这样，我们就能够准确记录员工的迟到和早退情况。

第五步：请假管理如果员工请假，我们可以在请假列中输入请假的时间段，如“请假9:00-12:00”。

这样，我们就能够清楚地了解每个员工的请假情况。

第六步：加班管理有时候，员工需要加班完成工作任务。

我们可以在加班列中记录员工的加班时间，如“加班2小时”。

这将帮助我们了解员工的加班情况。

第七步：数据统计和分析通过Excel提供的各种函数和工具，我们可以对考勤数据进行统计和分析。

例如，可以计算每个员工的总工作时长、迟到早退次数、请假次数等。

这将为企业管理者提供重要的决策依据。

第八步：数据可视化利用Excel丰富的图表功能，我们可以将考勤数据进行可视化展示。

通过图表，企业管理者可以更直观地了解员工的考勤情况，并进行比较和分析。

Excel教程——制作考勤表,自动统计出勤天数

相信不少公司都没上考勤管理系统，因此员工出勤情况只能手工记录。

今天我们就来制作一张考勤表，通过录入每天考勤情况，可以实现自动统计出勤、事假、调休等天数。

函数COUNTIF(R7:AV7,$E$27),"")表示R7至AV7区域值等于正常出勤符号“√”的个数。

再设置“加班”列公式，即D7单元格公式为：
=IF(COUNTIF(R7:AV7,$H$27)>0,COUNTIF(R7:AV7,$H$27),"")，其中H27表示加班符号“J”所在单元格地址。

最后，将中班、夜班、……、出差列所对应的第7行分别设置公式。

然后选中C7：Q7单元格区域，往下复制公式到C29：Q29区域。

最终实现效果演示：。

excel做考勤表格用Excel做考勤统计的详细方法

excel做考勤表格用Excel做考勤统计的详细方法用Excel做考勤统计的详细方法.txt时尚，就是让年薪八千的人看上去像年薪十万。

我们总是要求男人有孩子一样的眼神，父亲一样的能力。

一分钟就可以遇见一个人，一小时喜欢上一个人，一天爱上一个人，但需要花尽一生的时间去忘记一个人。

用Excel做考勤统计的详细方法花了整整五天的时间，终于完成了。

虽然还不是很完善，但从零开始，边学边做，到最后终于可以用了，还是有那么点小小的成就感的。

下面将具体方法详述如下，欢迎提出建议：上班安排：假设某公司有甲、乙、丙、丁四个部门，以甲部门为例（因为其他部门的方法是一样的，只不过时间设置不同而已），其上下班时间安排是：A班：7：30-16：30B班：12：00-21：00C班：10：00-19：00D班：8：30-17：30考勤规则：上班时间后5分钟内打卡不算迟到，加班半小时以下不计加班。

首先，按名称好每个人的上下班的打卡时间（有电子打卡机的可以直接导入数据，手动打卡钟的就只能手动输入时间了）第二步，在好的上下班时间工作表的第一行依次输入姓名（即A1格）、日期（即B1格）、排班（即C1格）、上班时间（后面的以此类推）、下班时间、考勤结果（上班）、考勤结果（下班），标准下班时间、加班时间、加班时间修正等行名第三步，如果有几个部门，且每个部门的上下班时间不一致，则最好按部门将员工分类在同一个工作表的不同工作薄里，第四步，设置单元格的1、凡是用时间表示的，都用“hh:mm”的格式2、记得在输入时间的时候关闭输入法第五步，下面将进行具体的计算公式设置（以甲部门的A班为例，其他部门的不同班次，只是公式里的时间不同）1、上班的考勤结果计算公式：=IF(AND(D2>=VALUE("07:35"))=TRUE,"迟到",IF(D2=0,"未打卡",""))此公式的意思是，如果“D2”格，即上班时间列中的时间大于等于“7：35”，则显示“迟到”，如果“D2”格中无数据，即为“0”的时候，则显示“未打卡”，以上两个条件都不符合的时候，则显示为空白，即正常上班的意思；2、下班的考勤结果计算公式：=IF(AND(E2>=VALUE("16:30"))=TRUE,"加班",IF(E2=0,"未打卡","早退"))此公式的意思是，如果“E2”格，即下班时间列中的时间大于等于“16：30”，则显示为“加班”，如果“E2”格中无数据，即为“0”的时候，则显示“未打卡”，以上两个条件都不符合的时候，则显示为“早退”3、加班时间的计算公式=IF((E2-H2)此计算结果本来只需要“E2-H2”即可，即用“下班打卡时间”减去“标准下班时间”即可，但这样的计算结果有可能会产生负数，比方说员工早退的时候，以至于造成后面的计算产生错误，因此需要调整一下公式。

用Excel制作自动记录的考勤表-推荐下载

用Excel制作自动记录的考勤表wuaihui1010 的用Excel制作自动记录的考勤表单位传统的考勤登记方式有工作量大、出错几率高、统计分析麻烦等特点，现在已经进入了信息时代，为何不用电脑来帮我们进行考勤呢？用Excel 2002制作简单、快捷、准确的考勤表，你就能切身体会到信息时代的方便与快捷。

一、基本框架设置首先要进行的工作当然就是新建工作簿，在工作表中输入姓名、日期，制订考勤表的基本框架。

1. 启动Excel 2002，新建一个工作簿，命名为“2004年员工考勤表”，在工作簿中建立12个工作表。

2. 在当月工作表的A1、B1单元格中分别输入“姓名”、“日期”，在A2单元格中输入第1个员工的姓名，接着选择A2、A3单元格，然后单击“合并及居中”按钮将两个单元格合并为1个单元格，按照以上方法录入其他员工的姓名（如图1）。

图1创建考勤表 3.在单元格C1中输入“7-1”，程序将自动转成“7月1日”（这里假定考勤从7月1日开始）。

用鼠标点选单元格C1，并移动鼠标到单元格的右下角，待出现实心“十”字的填充柄后，按住左键拖动到需要的位置，这样在7月1日后便形成了一个日期序列。

4.单击日期序列最后的“自动填充选项”智能填充标记，在弹出来的菜单中点选“以工作日填充”项，程序便自动将星期六、日去掉，不记入考勤日期。

5.选中整个日期行，在“单元格格式”对话框中点选“日期”选项卡。

在“分类”列表中点选“自定义”项，在类型框中输入“d"日"”，然后单击“确定”按钮。

二、录制宏 1.点选工作表中的任意一个单元格，然后单击“工具→宏→录制新宏”菜单项，进入“录制新宏”对话框。

在“宏名”框中输入准备录制的宏的名称——“返回当前时间”，“确定”后即进入宏的录制阶段（如图2）。

图2“录制新宏”对话框 2.输入公式“=now( )”，然后按回车键，接着单击“停止录制”工具栏中的“停止录制”按钮结束录制。

用Excel制作自动记录的考勤表（图解）

⽤Excel制作⾃动记录的考勤表（图解）单位传统的考勤登记⽅式有⼯作量⼤、出错⼏率⾼、统计分析⿇烦等特点，现在已经进⼊了信息时代，为何不⽤电脑来帮我们进⾏考勤呢？⽤Excel 2002制作简单、快捷、准确的考勤表，你就能切⾝体会到信息时代的⽅便与快捷。

⼀、基本框架设置⾸先要进⾏的⼯作当然就是新建⼯作簿，在⼯作表中输⼊姓名、⽇期，制订考勤表的基本框架。

1. 启动Excel 2002，新建⼀个⼯作簿，命名为“2004年员⼯考勤表”，在⼯作簿中建⽴12个⼯作表。

2. 在当⽉⼯作表的A1、B1单元格中分别输⼊“姓名”、“⽇期”，在A2单元格中输⼊第1个员⼯的姓名，接着选择A2、A3单元格，然后单击“合并及居中”按钮将两个单元格合并为1个单元格，按照以上⽅法录⼊其他员⼯的姓名（如图1）。

图1创建考勤表 3.在单元格C1中输⼊“7-1”，程序将⾃动转成“7⽉1⽇”（这⾥假定考勤从7⽉1⽇开始）。

⽤⿏标点选单元格C1，并移动⿏标到单元格的右下⾓，待出现实⼼“⼗”字的填充柄后，按住左键拖动到需要的位置，这样在7⽉1⽇后便形成了⼀个⽇期序列。

4.单击⽇期序列最后的“⾃动填充选项”智能填充标记，在弹出来的菜单中点选“以⼯作⽇填充”项，程序便⾃动将星期六、⽇去掉，不记⼊考勤⽇期。

5.选中整个⽇期⾏，在“单元格格式”对话框中点选“⽇期”选项卡。

在“分类”列表中点选“⾃定义”项，在类型框中输⼊“d"⽇"”，然后单击“确定”按钮。

⼆、录制宏 1.点选⼯作表中的任意⼀个单元格，然后单击“⼯具→宏→录制新宏”菜单项，进⼊“录制新宏”对话框。

在“宏名”框中输⼊准备录制的宏的名称——“返回当前时间”，“确定”后即进⼊宏的录制阶段（如图2）。

图2“录制新宏”对话框 2.输⼊公式“=now( )”，然后按回车键，接着单击“停⽌录制”⼯具栏中的“停⽌录制”按钮结束录制。

三、制作宏按钮 1.单击“视图→⼯具栏→绘图”菜单项，调出“绘图”⼯具栏，接着选择“绘图”⼯具栏中的“绘图→对齐→对齐⽹格”项。

excel怎么做考勤表格用Excel做考勤统计的详细方法

excel怎么做考勤表格用Excel做考勤统计的详细方法用Excel做考勤统计的详细方法.txt时尚，就是让年薪八千的人看上去像年薪十万。

我们总是要求男人有孩子一样的眼神，父亲一样的能力。

一分钟就可以遇见一个人，一小时喜欢上一个人，一天爱上一个人，但需要花尽一生的时间去忘记一个人。

用Excel做考勤统计的详细方法花了整整五天的时间，终于完成了。

虽然还不是很完善，但从零开始，边学边做，到最后终于可以用了，还是有那么点小小的成就感的。

下面将具体方法详述如下，欢迎提出建议上班安排假设某公司有甲、乙、丙、丁四个部门，以甲部门为例（因为其他部门的方法是一样的，只不过时间设置不同而已），其上下班时间安排是A班730-1630B班1200-2100C班1000-1900D班830-1730考勤规则上班时间后5分钟内打卡不算迟到，加班半小时以下不计加班。

首先，按名称整理好每个人的上下班的打卡时间（有电子打卡机的可以直接导入数据，手动打卡钟的就只能手动输入时间了）第二步，在整理好的上下班时间工作表的第一行依次输入姓名（即A1格）、日期（即B1格）、排班（即C1格）、上班时间（后面的以此类推）、下班时间、考勤结果（上班）、考勤结果（下班），标准下班时间、加班时间、加班时间修正等行名第三步，如果有几个部门，且每个部门的上下班时间不一致，则最好按部门将员工分类在同一个工作表的不同工作薄里，第四步，设置单元格的格式1、凡是用时间表示的，都用“hh:mm”的格式2、记得在输入时间的时候关闭输入法第五步，下面将进行具体的计算公式设置（以甲部门的A班为例，其他部门的不同班次，只是公式里的时间不同）1、上班的考勤结果计算公式=IF(AND(D2>=VALUE("07:35"))=TRUE,"迟到",IF(D2=0,"未打卡",""))此公式的意思是，如果“D2”格，即上班时间列中的时间大于等于“735”，则显示“迟到”，如果“D2”格中无数据，即为“0”的时候，则显示“未打卡”，以上两个条件都不符合的时候，则显示为空白，即正常上班的意思；2、下班的考勤结果计算公式=IF(AND(E2>=VALUE("16:30"))=TRUE,"加班",IF(E2=0,"未打卡","早退"))此公式的意思是，如果“E2”格，即下班时间列中的时间大于等于“1630”，则显示为“加班”，如果“E2”格中无数据，即为“0”的时候，则显示“未打卡”，以上两个条件都不符合的时候，则显示为“早退”3、加班时间的计算公式=IF((E2-H2)此计算结果本来只需要“E2-H2”即可，即用“下班打卡时间”减去“标准下班时间”即可，但这样的计算结果有可能会产生负数，比方说员工早退的时候，以至于造成后面的计算产生错误，因此需要调整一下公式。

考勤打卡机导出的excel考勤时间表如何生成实用的考勤表

考勤打卡机导出的excel考勤时间表如何⽣成实⽤的考勤表该excel表有如下结构姓名\⽇期周1周2周3　周4周5张三 7:3518:027:3518:027:4617:56李四7:3518:027:0218:0018:02需要判断每天是否迟到早退，并⽣成考勤表⽤如下⾃定义函数cal或者calsPublic Function cal(ByVal cs As Range) As Integer'计算单元格并返回相应值如下'没打卡 1'正常上下班 0'迟到 2'迟到超过2⼩时 11'早退 3'早退超过2⼩时 12'迟到+早退 5'迟到+早退分别都超过2⼩时'只有上班打卡，没有下班打卡 4'只有上班打卡，迟到，没下班打卡 2+4=6'只有下班打卡，没有上班打卡 7'只有下班打卡，早退，没有上班打卡 3+7=10'⼀天3次打卡记录30'⼀天n次以上（n>3)打卡记录 N*10=10n'异常打卡 10:00-15:30打卡 8Const morning_time = "08:00"Const evening_time = "17:30"'超过120分钟算旷⼯Const offset_point = 120'单元格每⾏是⼀个数组元素lines()Dim lines() As String'单元格有多少⾏Dim count As Integer'没打卡-空值，返回1 相当于count=0If IsEmpty(cs) Thencal = 1Exit FunctionEnd Ifcount = Len(cs.Text) - Len(Application.WorksheetFunction.Substitute(cs.Text, Chr(10), "")) + 1'⼤于3次以上的打卡记录返回10*nIf count >= 3Thencal = count * 10Exit FunctionEnd If'处理只有⼀条记录的，并计算是否上班If count = 1ThenDim offset_morning, offset_evening As Integeroffset_morning = Hour(CDate(cs.Text) - CDate(morning_time)) * 60 + Minute(CDate(cs.Text) - CDate(morning_time)) offset_evening = Hour(CDate(cs.Text) - CDate(evening_time)) * 60 + Minute(CDate(cs.Text) - CDate(evening_time)) 'MsgBox offset_morningIf CDate(cs.Text) <= CDate(morning_time) Then' 只有上班打卡，没有下班打卡cal = 4'MsgBox calExit FunctionIf CDate(cs.Text) >= CDate(evening_time) Then' 只有下班打卡，没有上班班打卡cal = 7Exit FunctionEnd IfIf (CDate(cs.Text) > CDate(morning_time)) And (CDate(cs.Text) < CDate(evening_time)) ThenIf offset_morning < 120Then'只有上班打卡，迟到，没有下班打卡cal = 6ElseIf offset_evening < 120Then'只有下班打卡，早退，没有上班打卡cal = 10Else'异常打卡cal = 8End IfExit FunctionEnd If'count=1End If'count=2Dim line1, line2 As StringDim moring_tmp, evening_tmp As Integermorning_tmp = 0evening_tmp = 0'提取第⼀⾏打卡和第⼆⾏打卡时间line1是上班打卡，line2是下班打卡line1 = Left(cs.Text, 5)line2 = Split(cs.Text, Chr(10))(1)'MsgBox "line1:" & line1'MsgBox "line2:" & line2'分别给出 morning_tmp值:如果line1早于8点则返回0，晚于8点且不超过2⼩时为迟到2,超过2⼩时取值11offset_morning = Hour(CDate(line1) - CDate(morning_time)) * 60 + Minute(CDate(line1) - CDate(morning_time)) offset_evening = Hour(CDate(line2) - CDate(evening_time)) * 60 + Minute(CDate(line2) - CDate(evening_time))'MsgBox offset_morning'MsgBox offset_eveningIf CDate(line1) <= CDate(morning_time) Then' 正常上班打卡早于8点morning_tmp = 0ElseIf (CDate(line1) > CDate(morning_time)) And (offset_morning < 120) Then' 上班迟到morning_tmp = 2Else' 上班迟到超过2⼩时morning_tmp = 11End If'分别给出 evening_tmp值:如果line2晚于于17:30则返回0，早于17:30且不超过2⼩时为早退取值3,超过2⼩时给值12，If CDate(line2) >= CDate(evening_time) Then' 正常下班打卡evening_tmp = 0ElseIf (CDate(line2) < CDate(evening_time)) And (offset_evening < 120) Then' 早退evening_tmp = 3Else' 早退超过2⼩时evening_tmp = 12End If'最终cal= morning_tmp+evening_tmpcal = morning_tmp + evening_tmpPublic Function cals(ByVal cs As Range) As String'计算单元格并返回相应值如下'没打卡 1'正常上下班 0'迟到 2'迟到超过2⼩时 11'早退 3'早退超过2⼩时 12'迟到+早退 5'迟到+早退分别都超过2⼩时'只有上班打卡，没有下班打卡 4'只有上班打卡，迟到，没下班打卡 2+4=6'只有下班打卡，没有上班打卡 7'只有下班打卡，早退，没有上班打卡 3+7=10'⼀天3次打卡记录30'⼀天n次以上（n>3)打卡记录 N*10=10n'异常打卡 10:00-15:30打卡 8Const morning_time = "08:00"Const evening_time = "17:30"'超过120分钟算旷⼯Const offset_point = 120'单元格每⾏是⼀个数组元素lines()Dim lines() As String'单元格有多少⾏Dim count As Integer'没打卡-空值，返回1 相当于count=0If IsEmpty(cs) Thencals = "休息"Exit FunctionEnd Ifcount = Len(cs.Text) - Len(Application.WorksheetFunction.Substitute(cs.Text, Chr(10), "")) + 1'⼤于3次以上的打卡记录返回10*nIf count >= 3Thencals = "异常打卡" & CStr(count) & "次"Exit FunctionEnd If'处理只有⼀条记录的，并计算是否上班If count = 1ThenDim offset_morning, offset_evening As Integeroffset_morning = Hour(CDate(cs.Text) - CDate(morning_time)) * 60 + Minute(CDate(cs.Text) - CDate(morning_time)) offset_evening = Hour(CDate(cs.Text) - CDate(evening_time)) * 60 + Minute(CDate(cs.Text) - CDate(evening_time)) 'MsgBox offset_morningIf CDate(cs.Text) <= CDate(morning_time) Then' 只有上班打卡，没有下班打卡cals = "⽆下班打卡"'MsgBox calExit FunctionEnd IfIf CDate(cs.Text) >= CDate(evening_time) Then' 只有下班打卡，没有上班班打卡cals = "⽆上班打卡"Exit FunctionEnd IfIf (CDate(cs.Text) > CDate(morning_time)) And (CDate(cs.Text) < CDate(evening_time)) ThenIf offset_morning < 120Then'只有上班打卡，迟到，没有下班打卡cals = "迟到,⽆下班打卡"ElseIf offset_evening < 120Then'只有下班打卡，早退，没有上班打卡cals = "早退,⽆上班打卡"Else'异常打卡cals = "10点15点30之间异常打卡"Exit FunctionEnd If'count=1End If'count=2Dim line1, line2 As StringDim moring_tmp, evening_tmp As Integermorning_tmp = 0evening_tmp = 0'提取第⼀⾏打卡和第⼆⾏打卡时间line1是上班打卡，line2是下班打卡line1 = Left(cs.Text, 5)line2 = Split(cs.Text, Chr(10))(1)'MsgBox "line1:" & line1'MsgBox "line2:" & line2'分别给出 morning_tmp值:如果line1早于8点则返回0，晚于8点且不超过2⼩时为迟到2,超过2⼩时取值11offset_morning = Hour(CDate(line1) - CDate(morning_time)) * 60 + Minute(CDate(line1) - CDate(morning_time)) offset_evening = Hour(CDate(line2) - CDate(evening_time)) * 60 + Minute(CDate(line2) - CDate(evening_time))'MsgBox offset_morning'MsgBox offset_eveningIf CDate(line1) <= CDate(morning_time) Then' 正常上班打卡早于8点morning_tmp = 0ElseIf (CDate(line1) > CDate(morning_time)) And (offset_morning < 120) Then' 上班迟到morning_tmp = 2Else' 上班迟到超过2⼩时morning_tmp = 11End If'分别给出 evening_tmp值:如果line2晚于于17:30则返回0，早于17:30且不超过2⼩时为早退取值3,超过2⼩时给值12，If CDate(line2) >= CDate(evening_time) Then' 正常下班打卡evening_tmp = 0ElseIf (CDate(line2) < CDate(evening_time)) And (offset_evening < 120) Then' 早退evening_tmp = 3Else' 早退超过2⼩时evening_tmp = 12End If'最终cal= morning_tmp+evening_tmp'MsgBox morning_tmp + evening_tmpSelect Case (morning_tmp + evening_tmp)Case0cals = "全勤"Case1cals = "休息"Case2cals = "迟到"Case3cals = "早退"Case4cals = "⽆下班打卡"Case5cals = "迟到+早退"Case6cals = "上班迟到，下班没打卡"Case7cals = "⽆上班打卡"Case8cals = "10:00-15:30异常打卡"Case10cals = "早退,⽆上班打卡"Case11cals = "早退超2⼩时"Case23cals = "迟到早退都超2⼩时"Case Elsecalse = "异常打卡" & CStr(morning_tmp + evening_tmp) & "次"End SelectEnd FunctionPublic Function cal(ByVal cs As Range) As Integer'计算单元格并返回相应值如下'没打卡 1'正常上下班 0'迟到 2'迟到超过2⼩时 11'早退 3'早退超过2⼩时 12'迟到+早退 5'迟到+早退分别都超过2⼩时'只有上班打卡，没有下班打卡 4'只有上班打卡，迟到，没下班打卡 2+4=6'只有下班打卡，没有上班打卡 7'只有下班打卡，早退，没有上班打卡 3+7=10'⼀天3次打卡记录30'⼀天n次以上（n>3)打卡记录 N*10=10n'异常打卡 10:00-15:30打卡 8Const morning_time ="08:00"Const evening_time = "17:30"'超过120分钟算旷⼯Const offset_point = 120'单元格每⾏是⼀个数组元素lines()Dim lines() As String'单元格有多少⾏Dim count As Integer'没打卡-空值，返回1 相当于count=0If IsEmpty(cs) Then cal = 1 Exit FunctionEnd Ifcount = Len(cs.Text) - Len(Application.WorksheetFunction.Substitute(cs.Text, Chr(10), "")) + 1'⼤于3次以上的打卡记录返回10*nIf count >= 3 Then cal = count * 10 Exit FunctionEnd If'处理只有⼀条记录的，并计算是否上班If count = 1 ThenDim offset_morning, offset_evening As Integeroffset_morning = Hour(CDate(cs.Text) - CDate(morning_time)) * 60 + Minute(CDate(cs.Text) - CDate(morning_time))offset_evening = Hour(CDate(cs.Text) - CDate(evening_time)) * 60 + Minute(CDate(cs.Text) - CDate(evening_time))'MsgBox offset_morning IfCDate(cs.Text) <= CDate(morning_time) Then ' 只有上班打卡，没有下班打卡 cal = 4 'MsgBox cal Exit Function End If If CDate(cs.Text) >= CDate(evening_time) Then ' 只有下班打卡，没有上班班打卡 cal = 7 Exit Function End If If (CDate(cs.Text) > CDate(morning_time)) And (CDate(cs.Text) < CDate(evening_time)) Then If offset_morning < 120 Then '只有上班打卡，迟到，没有下班打卡 cal = 6 ElseIf offset_evening < 120 Then '只有下班打卡，早退，没有上班打卡 cal = 10 Else '异常打卡 cal = 8 End If Exit Function End If 'count=1End If'count=2Dim line1, line2 As StringDim moring_tmp, evening_tmp As Integermorning_tmp = 0evening_tmp = 0'提取第⼀⾏打卡和第⼆⾏打卡时间line1是上班打卡，line2是下班打卡line1 = Left(cs.Text, 5)line2 = Split(cs.Text, Chr(10))(1)'MsgBox "line1:" & line1'MsgBox "line2:" & line2'分别给出 morning_tmp值:如果line1早于8点则返回0，晚于8点且不超过2⼩时为迟到2,超过2⼩时取值11offset_morning = Hour(CDate(line1) - CDate(morning_time)) * 60 + Minute(CDate(line1) - CDate(morning_time))offset_evening =Hour(CDate(line2) - CDate(evening_time)) * 60 + Minute(CDate(line2) - CDate(evening_time))'MsgBox offset_morning'MsgBox offset_eveningIf CDate(line1) <= CDate(morning_time) Then ' 正常上班打卡早于8点 morning_tmp = 0 ElseIf (CDate(line1) >CDate(morning_time)) And (offset_morning < 120) Then ' 上班迟到 morning_tmp = 2 Else ' 上班迟到超过2⼩时morning_tmp = 11 End If'分别给出 evening_tmp值:如果line2晚于于17:30则返回0，早于17:30且不超过2⼩时为早退取值3,超过2⼩时给值12，If CDate(line2) >= CDate(evening_time) Then ' 正常下班打卡 evening_tmp = 0 ElseIf (CDate(line2) < CDate(evening_time)) And (offset_evening < 120) Then ' 早退 evening_tmp = 3 Else ' 早退超过2⼩时 evening_tmp = 12 End If'最终cal= morning_tmp+evening_tmpcal = morning_tmp + evening_tmpEnd FunctionPublic Function cals(ByVal cs As Range) As String'计算单元格并返回相应值如下'没打卡 1'正常上下班 0'迟到 2'迟到超过2⼩时 11'早退 3'早退超过2⼩时 12'迟到+早退 5'迟到+早退分别都超过2⼩时'只有上班打卡，没有下班打卡 4'只有上班打卡，迟到，没下班打卡 2+4=6'只有下班打卡，没有上班打卡 7'只有下班打卡，早退，没有上班打卡 3+7=10'⼀天3次打卡记录30'⼀天n次以上（n>3)打卡记录 N*10=10n'异常打卡 10:00-15:30打卡 8Const morning_time ="08:00"Const evening_time = "17:30"'超过120分钟算旷⼯Const offset_point = 120'单元格每⾏是⼀个数组元素lines()Dim lines() As String'单元格有多少⾏Dim count As Integercount = Len(cs.Text) - Len(Application.WorksheetFunction.Substitute(cs.Text, Chr(10), "")) + 1'⼤于3次以上的打卡记录返回10*nIf count >= 3 Then cals = "异常打卡" & CStr(count) & "次" Exit FunctionEnd If'处理只有⼀条记录的，并计算是否上班If count = 1 ThenDim offset_morning, offset_evening As Integeroffset_morning = Hour(CDate(cs.Text) - CDate(morning_time)) * 60 + Minute(CDate(cs.Text) - CDate(morning_time))offset_evening = Hour(CDate(cs.Text) - CDate(evening_time)) * 60 + Minute(CDate(cs.Text) - CDate(evening_time))'MsgBox offset_morning IfCDate(cs.Text) <= CDate(morning_time) Then ' 只有上班打卡，没有下班打卡 cals = "⽆下班打卡" 'MsgBox cal Exit Function End If If CDate(cs.Text) >= CDate(evening_time) Then ' 只有下班打卡，没有上班班打卡 cals = "⽆上班打卡" Exit FunctionEnd If If (CDate(cs.Text) > CDate(morning_time)) And (CDate(cs.Text) < CDate(evening_time)) Then If offset_morning < 120 Then '只有上班打卡，迟到，没有下班打卡 cals = "迟到,⽆下班打卡" ElseIf offset_evening < 120 Then '只有下班打卡，早退，没有上班打卡 cals = "早退,⽆上班打卡" Else '异常打卡 cals = "10点15点30之间异常打卡" End If Exit Function End If 'count=1End If'count=2Dim line1, line2 As StringDim moring_tmp, evening_tmp As Integermorning_tmp = 0evening_tmp = 0'提取第⼀⾏打卡和第⼆⾏打卡时间line1是上班打卡，line2是下班打卡line1 = Left(cs.Text, 5)line2 = Split(cs.Text, Chr(10))(1)'MsgBox "line1:" & line1'MsgBox "line2:" & line2'分别给出 morning_tmp值:如果line1早于8点则返回0，晚于8点且不超过2⼩时为迟到2,超过2⼩时取值11offset_morning = Hour(CDate(line1) - CDate(morning_time)) * 60 + Minute(CDate(line1) - CDate(morning_time))offset_evening =Hour(CDate(line2) - CDate(evening_time)) * 60 + Minute(CDate(line2) - CDate(evening_time))'MsgBox offset_morning'MsgBox offset_eveningIf CDate(line1) <= CDate(morning_time) Then ' 正常上班打卡早于8点 morning_tmp = 0 ElseIf (CDate(line1) >CDate(morning_time)) And (offset_morning < 120) Then ' 上班迟到 morning_tmp = 2 Else ' 上班迟到超过2⼩时morning_tmp = 11 End If'分别给出 evening_tmp值:如果line2晚于于17:30则返回0，早于17:30且不超过2⼩时为早退取值3,超过2⼩时给值12，If CDate(line2) >= CDate(evening_time) Then ' 正常下班打卡 evening_tmp = 0 ElseIf (CDate(line2) < CDate(evening_time)) And (offset_evening < 120) Then ' 早退 evening_tmp = 3 Else ' 早退超过2⼩时 evening_tmp = 12 End If'最终cal= morning_tmp+evening_tmp'MsgBox morning_tmp + evening_tmpSelect Case (morning_tmp + evening_tmp)Case 0cals = "全勤"Case 1 cals = "休息"Case 2 cals = "迟到"Case 3 cals = "早退"Case 4 cals = "⽆下班打卡"Case 5 cals = "迟到+早退"Case 6 cals = "上班迟到，下班没打卡"Case 7 cals = "⽆上班打卡"Case 8 cals = "10:00-15:30异常打卡"Case 10 cals = "早退,⽆上班打卡"Case 11 cals = "迟到超2⼩时"Case 12 cals = "早退超2⼩时"Case 23 cals = "迟到早退都超2⼩时"Case Else calse = "异常打卡" & CStr(morning_tmp + evening_tmp) & "次"End SelectEnd Function。

利用excel制作考勤统计系统

利用excel制作考勤统计系统为配合手写签到考勤，利用excel制作了一个考勤统计系统。

一、主要功能：简化手写签到记录的录入，自动统计考勤数据，即可电脑显示也可打印输出，既可查看年度、月份统计情况，也可查看每天的考勤情况，还可以通过电脑截屏将统计结果的图片插入word文档，使考勤资料得到充分利用。

二、使用方法1、双击打开文件，进入首页：2、点击文字前面的按钮进入相应表，如点击“日常考勤统计”前面的按钮，进入如下页面:3、在《年度考勤累计表》的姓名栏输入姓名、序号栏输入序号，其他月份表和活动会议表中的姓名自动生成，且其他表中的姓名不可编辑。

4、按ctrl+b返回首页。

5、在月份表的“星期”栏输入具体的星期（如：一、二、三、四、五、六、日），节假日、公休日输入“休”。

输入“休”时，所在列变成红色。

“应出勤”栏自动扣除公休日和节假日并显示应出勤天数。

6、在考勤区用鼠标单击右下角的下拉按钮，选择相应的考勤符号。

每天只用一个符号即可反映考勤情况。

比如：◇表示迟到+早退，在统计栏中分别显示出勤=1，迟到=1，早退=1。

如下图：7、月考勤结果在“月考勤统计”区自动生成。

同时在“年度累计统计”表中自动累计当前日期以前考勤情况。

自动生成区不可编辑。

8、即可统计年数据也可统计月、季数据。

9、“会议活动考勤”是对市局召开的会议、集中学习、集体活动等考勤资料的汇总统计。

“会议活动考勤”表中的日期输入：如：1月3日，输入1-3即可。

活动名称简要输入即可。

考勤统计显示在表左侧（便于察看）。

此表按一年时间考虑的，也可做月统计。

10、日常考勤统计表打印（A4），月份表打印（A3），选择需要打印的页即可。

11、Office2007以上版本，宏安全性设置，启用宏。

三、制作过程：（一）、建立表月份表，将sheet1重命名为“1”，作为月份考勤表的“1月份表”。

1、设置好序号、姓名、日期、星期、应出勤、实出勤、事假、病假、休假、公出、迟到、早退、旷工等栏目。