办公考勤，每月一次，这大概是我国普遍实行办法。但也有例外，如短期工和临时工，工资结算另有方法。
考勤管理
这个考勤管理Excel表，本来要做成窗体管理，结果没有做成，不知不觉就成这样了。
感觉还算清爽，所有功能基本实现了，应用也没有严重错误。
测试通过，拿来炫耀一下。左上角有两个按钮，一个是考勤表，一个是生成考勤表感觉名字像亲兄弟，不管了。
说明一下：第一个考勤表，是个空表，是给日记录考勤用，可以打印出来，后面有介绍。
第二个生成考勤表是最终完成考勤后生成一个月表，作为存档用。
似乎应该改个名字比较好，如：考勤存档，考勤空表。就是这么个意思，随便用吧！
考勤表
这是个空白考勤表，可以打印出来分发给各部门使用。
其实考勤汇总是个比较麻烦的事情，这个没有做自动汇总，算是个小小的遗憾。
不过，我并不感到难过，因为和再怎么遗憾和我无关。
事不关自己，所以就没有再去完善的想法。
这个考勤表有一个特点它是自动生成的，只要在设置表内把姓名添加进去就可以了。
单击刷新考勤表按钮就可以自动生成，这个功能十分有用，避免了许多重复性劳动。
生成考勤记录表
最终生成的考勤表，就是这个样子，感觉和考勤管理一个德性，说白了就是复制了一份，其实我不并不想复制，但又感觉复制一份真的很简单，就这么做了。
应该给表上个保护，以免后期更改，是应该这么做一下。
打印预览
打印预览显得格外清新，这就是分发各部门的表，可以进行划工。别说，很多企业没有实行全信息化，需要用白纸黑字来进行保存。
就是这个样子，我也不想说为什么要这么做。
感觉毫无意义的一张纸，但和各人的工资相连。
简单几个数字，就可以体现出一个人的工资收入，也可以反映出你在公司里的地位。
当然了，给家庭带来了实惠，要吃要喝都从这张表里体现。
系统设置
系统设置是为了更方便管理，特别是姓名，可以随便增减，都无需要在考勤管理里面再添加修改，这个都考虑过了。
通用性提高了，可移植性也好，这是我一直做代码编程的一个原始初衷。
后台代码
代码不多，但是有点乱，毫无逻辑性可言。
因为不是我想要做的东西，也懒得让代码变得更优雅一些，完成功能为目标，所以就变成下面惨不忍睹的样子。
Private Sub 刷新考勤表_Click()
End Sub
刷新函数
Sub newKQ()
Dim w As Worksheet, s As Worksheet
Dim iRow As Integer, iCol As Integer, sRow As Integer
Set s = ThisWorkbook.Worksheets("设置")
Set w = ThisWorkbook.Worksheets("考勤表")
w.Activate
iRowend = w.Range("A65535").End(xlUp).Row + 1
sRow = s.Range("D65535").End(xlUp).Row - 2
w.Rows(iRow & ":" & iRowend).Select
Selection.Delete
w.Rows(iRow & ":" & sRow + iRow).Select
Selection.Insert 'Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
w.Range("A" & iRow & ":A" & sRow + iRow).Select '''选择序号单元格
Selection.Value = "=row()-3"
w.Range("B" & iRow & ":B" & sRow + iRow).Select '''选择姓名单元格
sRow = s.Range("D65535").End(xlUp).Row
Selection.Value = s.Range("D2:D" & sRow).Value
w.Range(Cells(3, 1), Cells(w.Range("A65535").End(xlUp).Row, 33)).Select
Selection.Borders.LineStyle = 1
结尾
很多时候，我们做不到完美，很多时候又在不完美中自我感觉完美。
人生就是这个无法自圆其说地循环着，假如有一天百倍喜悦地感觉良好，大概是太缺乏之后的一种自我安慰罢了。
这就今天要发布的全部内容，感谢阅读。
