辦公考勤,每月一次,這大概是我國普遍實行辦法。但也有例外,如短期工和臨時工,工資結算另有方法。
考勤管理
這個考勤管理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
很多時候,我們做不到完美,很多時候又在不完美中自我感覺完美。
人生就是這個無法自圓其說地循環着,假如有一天百倍喜悅地感覺良好,大概是太缺乏之後的一種自我安慰罷了。
這就今天要發布的全部内容,感謝閱讀。
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!