導讀辦公考勤，每月一次，這大概是我國普遍實行辦法。但也有例外，如短期工和臨時工，工資結算另有方法?？记诠芾磉@個考勤管理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

結尾

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

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

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