辦公考勤,每月一次,這大概是我國普遍實行辦法。但也有例外,如短期工和臨時工。工資結算另有方法。
考勤管理
這個考勤管理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 = "=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
結尾
很多時候,我們做不到完美,很多時候又在不完美中自我感覺完美。
人生就是這個無法自圓其說地循環著,假如有一天百倍喜悅地感覺良好,大概是太缺乏之後的一種自我安慰罷了。
這就今天要發布的全部內容,感謝閱讀。