辦公考勤，每月一次，這大概是我國普遍實行辦法。但也有例外，如短期工和臨時工，工資結算另有方法。

這個考勤管理Excel表，本來要做成窗體管理，結果沒有做成，不知不覺就成這樣了。

感覺還算清爽，所有功能基本實現了，應用也沒有嚴重錯誤。

測試通過，拿來炫耀一下。

左上角有兩個按鈕，一個是考勤表，一個是生成考勤表感覺名字像親兄弟，不管了。

說明一下：

第一個考勤表，是個空表，是給日記錄考勤用，可以打印出來，後面有介紹。

第二個生成考勤表是最終完成考勤後生成一個月表，作為存檔用。

似乎應該改個名字比較好，如：考勤存檔，考勤空表。就是這麼個意思，随便用吧！

考勤表

這是個空白考勤表，可以打印出來分發給各部門使用。

其實考勤彙總是個比較麻煩的事情，這個沒有做自動彙總，算是個小小的遺憾。

不過，我并不感到難過，因為和再怎麼遺憾和我無關。

事不關自己，所以就沒有再去完善的想法。

這個考勤表有一個特點

它是自動生成的，隻要在設置表内把姓名添加進去就可以了。

單擊刷新考勤表按鈕就可以自動生成，這個功能十分有用，避免了許多重複性勞動。

生成考勤記錄表

最終生成的考勤表，就是這個樣子，感覺和考勤管理一個德性，說白了就是複制了一份，其實我不并不想複制，但又感覺複制一份真的很簡單，就這麼做了。

應該給表上個保護，以免後期更改，是應該這麼做一下。

打印預覽

打印預覽顯得格外清新，這就是分發各部門的表，可以進行劃工。别說，很多企業沒有實行全信息化，需要用白紙黑字來進行保存。

就是這個樣子，我也不想說為什麼要這麼做。

感覺毫無意義的一張紙，但和各人的工資相連。

簡單幾個數字，就可以體現出一個人的工資收入，也可以反映出你在公司裡的地位。

當然了，給家庭帶來了實惠，要吃要喝都從這張表裡體現。

系統設置

系統設置是為了更方便管理，特别是姓名，可以随便增減，都無需要在考勤管理裡面再添加修改，這個都考慮過了。

通用性提高了，可移植性也好，這是我一直做代碼編程的一個原始初衷。

後台代碼

代碼不多，但是有點亂，毫無邏輯性可言。

因為不是我想要做的東西，也懶得讓代碼變得更優雅一些，完成功能為目标，所以就變成下面慘不忍睹的樣子。

Private Sub 刷新考勤表_Click() newKQ 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 iRow = 4 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 End Sub

結尾

很多時候，我們做不到完美，很多時候又在不完美中自我感覺完美。

人生就是這個無法自圓其說地循環着，假如有一天百倍喜悅地感覺良好，大概是太缺乏之後的一種自我安慰罷了。

這就今天要發布的全部内容，感謝閱讀。

,