员工考勤表模板的制作步骤员工考勤表模板excel _生活百科

办公考勤，每月一次，这大概是我国普遍实行办法。但也有例外，如短期工和临时工。工资结算另有方法。
考勤管理

文章插图
这个考勤管理Excel表，本来要做成窗体管理，结果没有做成，不知不觉就成这样了。
感觉还算清爽，所有功能基本实现了，应用也没有严重错误。
测试通过，拿来炫耀一下。
看左上角有两个按钮，一个是考勤表，一个是生成考勤表感觉名字像亲兄弟，不管了。
说明一下：
第一个考勤表，是个空表，是给日记录考勤用，可以打印出来，后面有介绍。第二个生成考勤表是最终完成考勤后生成一个月表，作为存档用。似乎应该改个名字比较好，如：考勤存档，考勤空表。就是这么个意思，随便用吧！
考勤表

文章插图
这就是空白考勤表，可以打印出来，分发各部门使用。
其实考勤汇总是个比较麻烦的事情，这个没有做自动汇总，算是个小小的遗憾。
不过，我并不感到难过，因为和再怎么遗憾和我无关。
【员工考勤表模板的制作步骤员工考勤表模板excel】事不关自己，所以就没有再去完善的想法。
这个考勤表有一个特点，它是自动生成的，只要在设置表内把姓名添加进去就可以了。
单击刷新考勤表按钮就可以自动生成，这个功能十分有用，解放了很多重复的工作。
生成考勤记录表

文章插图
最终生成的考勤表，就是这个样子，感觉和考勤管理一个德性，说白了就是复制了一份。
其实并不想复制，但又感觉复制一份真得很简单，就这么做了。
应该给表上个保护，以免后期更改，是应该这么做一下。
打印预览

文章插图
打印预览显得格外清新，这就是分发各部门的表，可以进行划工。别说，很多企业没有实行全信息化，需要用白纸黑字来进行保存。
就是这个样子，我也不想说为什么要这么做。
感觉毫无意义的一张纸，但和各人的工资想连。
简单几个数字，就可以体现出一个人的工资收入，也可以反映出你在公司里的地位。
当然了，给家庭带来了实惠，要吃要喝都从这张表里体现。
系统设置

文章插图
系统设置是为了更方便管理，特别是姓名，可以随便增减，都无需要在考勤管理里面再添加修改，这个都考虑过了。
通用性提高了，可移植性也好，这是我一直做代码编程的一个原始初衷。
后台代码

文章插图
代码不多，但是有点乱，毫无逻辑性可言。
因为不是我想要做的东西，也懒得让代码变得更优雅一些，完成功能为目标，所以就变成下面惨不忍睹的样子。
Private Sub 刷新考勤表_Click()newKQEnd SubSub newKQ()Dim w As Worksheet, s As WorksheetDim iRow As Integer, iCol As Integer, sRow As IntegerSet s = ThisWorkbook.Worksheets("设置")Set w = ThisWorkbook.Worksheets("考勤表")w.ActivateiRow = 4iRowend = w.Range("A65535").End(xlUp).Row + 1sRow = s.Range("D65535").End(xlUp).Row - 2w.Rows(iRow & ":" & iRowend).SelectSelection.Deletew.Rows(iRow & ":" & sRow + iRow).SelectSelection.Insert 'Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbovew.Range("A" & iRow & ":A" & sRow + iRow).Select '''选择序号单元格Selection.Value = https://www.08ts.cn/"=row()-3"w.Range("B" & iRow & ":B" & sRow + iRow).Select'''选择姓名单元格sRow = s.Range("D65535").End(xlUp).RowSelection.Value = https://www.08ts.cn/s.Range("D2:D" & sRow).Valuew.Range(Cells(3, 1), Cells(w.Range("A65535").End(xlUp).Row, 33)).SelectSelection.Borders.LineStyle = 1End Sub