考勤表模板，員工考勤就這麼做，Excel表格一鍵完成

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

考勤管理

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

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

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

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

說明一下：

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

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

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

考勤表

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

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

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

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

這個考勤表有一個特點

它是自動生成的，只要在設定表內把姓名新增進去就可以了。

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

生成考勤記錄表

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

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

列印預覽

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

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

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

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

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

系統設定

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

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

後臺程式碼

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

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

Private Sub 重新整理考勤表_Click（）newKQEnd Sub

重新整理函式

Sub 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 = “=row（）-3”w。Range（“B” & iRow & “：B” & sRow + iRow）。Select ‘’‘選擇姓名單元格sRow = s。Range（“D65535”）。End（xlUp）。RowSelection。Value = s。Range（“D2：D” & sRow）。Valuew。Range（Cells（3， 1）， Cells（w。Range（“A65535”）。End（xlUp）。Row， 33））。SelectSelection。Borders。LineStyle = 1End Sub

結尾

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

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

這就今天要釋出的全部內容，感謝閱讀。