【導讀】按照浙江省人事廳的統(tǒng)一部署，我市于2021年2月初進行了機關事業(yè)單位工資制度改革，套改年限）進行套改。這對于具體負責工資調(diào)整的辦事人員來說，增加了許多工作，就一所。資就變得非常方便，下面簡要地介紹一下具體的開發(fā)過程。工作表“用戶密碼”等組成，這些工作表事先由手工插入并重命名。當系統(tǒng)運行后，一些工。輸入“歡迎使用”和“《XG人事工資管理系統(tǒng)》”）。選取整張工作表，將單元格顏色填充為“藍-灰”色。將第36行至65536行、第R列至IV列全部隱藏。格”宏，即可實現(xiàn)單元格的隱藏。至此人事工資管理系統(tǒng)工作簿建立完成，系統(tǒng)框架也基本形成。由1個用戶窗體和2個標簽、2個文本框及2個命令按。'如果用戶名和密碼都正確，就卸載用戶登錄窗口，

　　

【正文】 18) 23 Range(b9) = (j, 19):Range(d9) = (j, 20) Range(f9) = (j, 21):Range(g9) = (j, 22) Range(i9) = (j, 23):Range(k9) = (j, 24) Range(l9) = (j, 25):Range(m9) = (j, 26) Range(o9) = (j, 27):Range(p9) = (j, 28) Range(r9) = (j, 29):Range(t9) = (j, 30) 39。打印預覽 Worksheets(事業(yè)審批表 ).PrintOut copies:=1, collate:=True MsgBox 姓名為 + czry + 的教職工的審批單正在打印中 ,請稍候?? Exit Sub: End If: Next j MsgBox 沒有找到姓名為 + czry + 的教職工 ,請確認后重新輸入 ! Else: MsgBox 你輸入的姓名為空 ,請確認后重新輸入 ! End If: = True End Sub 代碼說明： 以上代碼 中先出現(xiàn)一個姓名輸入框 ，輸入需要單獨打印人員的姓名，然后把“在職名冊表”中此人員的數(shù)據(jù)對應取到“在職審批表”中， 并打 印出 此 人的審批表 ，如果姓名輸入框中未輸入姓名，或者輸入的姓名與“在職名冊表”中的不相符，就不打印審批表 。 圖 12 圖 13 “全部打印”和“查詢打印”兩個命令按鈕創(chuàng)建完成后的效果如圖 12 所示， 另外，為使打印的審批表上不出現(xiàn)添加的命令按鈕，應分別右 擊兩按鈕，選擇“設置控件格式”命令，切換到“屬性”選項卡，去掉“打印對象”復選框的選中狀態(tài)（如圖 13） 。 至此，在職審批表設計完成，如要打印某個人的審批表，只要按“查詢打印”命令按鈕，如要打印全部人員的審批表，只要按“全部打印”命令按鈕，是 不 是非常方便快捷。 2021 年 3 月 15 日 通訊地址：浙江省諸暨市濱江中路 19號會計核算中心 許國 辦公室電話 05757375026 郵政編碼 311800 Email： 網(wǎng)址： 打印命令按鈕 24 最新 EXCEL 人事工資管理系統(tǒng) —— 設計在職人員工改報批表 諸暨市教育局核算中心 許 國 諸暨市教育局 鄭文建 在職人員工改的最后一張表格為“在職人員 工改 報批表”，此表用于匯總每個單位各類人員的增資金額和增資人數(shù) ， 選擇 【 人事管理系統(tǒng) 】 → 【事業(yè)在職】 → 【在職 報 批表】菜單，打開“ 諸暨市事業(yè)單位工作人員收入分配制度改革 報 批 表 ”（以下簡稱在職 報 批表），如圖 14。 圖 14 六 、 在職 報 批 表 按工改的要求設計好在職 報 批表表格的相應欄目， 要能夠使“在職名冊表”對應信息自動 匯總 到“在職 報 批表”中， 需在 工作簿的 VBE窗口中插入一個模塊 16，并輸入如下代碼： Private Sub 生成匯總數(shù)據(jù) () Dim Irow As Integer, i As Integer, count As Integer Set syzzb = Worksheets(事業(yè) 在職表 ) Set sybpb = Worksheets(事業(yè)報批表 ) Irow = syzzb.[a65536].End(xlUp).Row = False 39。關閉屏幕更新 For i = 8 To Irow If Range(W amp。 i) = 處級正職 Then count = count + 1 39。變量 count 的值每次加 1 a = a + Range(AD amp。 i) 39。變量 a 的值為 I 行 i 列單元格的累計數(shù) End If: Next i: 25 Range(K7) = count 39。G11 單元格的值等于變量 count Range(K8) = a: count = 0: a = 0 39。對變量清零 For i = 8 To Irow If Range(W amp。 i) = 處級副職 Then ?? For i = 8 To Irow If Range(W amp。 i) = 正高 Then count = count + 1 a = a + Range(AD amp。 i) End If: Next i: Range(D7) = count Range(D8) = a: count = 0: a = 0 For i = 8 To Irow If Range(W amp。 i) = 副高 Then ?? For i = 8 To Irow If Range(W amp。 i) = 員級 Or Range(w amp。 i) _ = 見習 Then count = count + 1 a = a + Range(AD amp。 i) End If: Next i: Range(H7) = count Range(H8) = a: count = 0: a = 0 For i = 8 To Irow If Range(W amp。 i) = 技師 Then count = count + 1 a = a + Range(AD amp。 i) End If: Next i: Range(R7) = count Range(R8) = a: count = 0: a = 0 For i = 8 To Irow If Range(W amp。 i) = 高級工 Then ?? = True End Sub 代碼說明： 以上代碼 是先定義兩個工作 表對象， 然后對“ 事業(yè) 在職表 ”中 W 列（工改后職務列）進行判斷，如果職務與程序中的某一職務相同，就累計此職務的人數(shù)和“月增資額” 金額，并把累計數(shù)寫入到“ 事業(yè) 報批表 ” 的 相應列中，從而使得報批表的匯總工作非常方便。 上述代碼輸入完成后退出并保存，然后我們在要工作表窗口中創(chuàng)建一個命令按鈕，選擇［視圖］ →［工具欄］ →［窗體］命令，出現(xiàn)［窗體］控件，選擇［窗體］→［按鈕］命 26 令，移開鼠標，光標變成小十字形，然后將小十字形移到適當位置，按下左鍵拖動鼠標，直到出現(xiàn)的方框大小合適后，釋放鼠標左鍵，形成一個按鈕，點擊按鈕輸入 “ 生成匯總數(shù)據(jù) ”文字，然后在此按鈕上單擊右鍵，選擇［指定宏］命令，彈出“宏”對話框，選定宏“ 生成匯總數(shù)據(jù) ”，單擊對話框右上方的［確定］按鈕。 圖 15 至此，在職報 批表設計完成， 如要生成“在職報批表”匯總數(shù)據(jù)， 只要按圖 15 中 的“生成匯總數(shù)據(jù)”按鈕 ， 即可在此表的“人數(shù)”和“月增資額”行所在的單元格中生成匯總數(shù)據(jù)，是 不 是 既準確又 快捷。 2021 年 3 月 15 日 通訊地址：浙江省諸暨市濱江中路 19號會計核算中心 許國 辦公室電話 05757375026 郵政編碼 311800 Email： 網(wǎng)址： “報批表”匯總數(shù)據(jù)生成按鈕 27 最新 EXCEL 人事工資管理系統(tǒng) —— 設計離退休人員工改表 格 諸暨市教育局核算中心 許 國 諸暨市教育局 鄭文建 進入系統(tǒng)后，選擇 【 人事管理系統(tǒng) 】 → 【事業(yè) 離退休 】 → 【離退休名冊表】菜單，可打開 “ 諸暨市事業(yè)單位 離退 休人員增加離退休費 名冊表 ” （ 以下簡稱 離退休 名冊表 ， 如圖 16） 。 圖 16 七 、 離退休 名冊表 按工改的要求設計好此表格的相應欄目，然后輸入 離退休 人員的相關信息，其中 A列至 G 列 及 I 列（備注欄列） 的信息由手工輸入， H 列的信息由計算機自動給出。 表中的 “ 職務 （享受待遇）” 列 的 名稱要統(tǒng)一標準 ，標準名稱為處級、副處級、科級、副科級、教授、副教授、講師、技師 。 為了能使離退休人員的“月增 離退休費 ” 自動給出，需 在 工作簿的 VBE 窗口中插入一個模塊 18，并輸入代碼如下： Private Sub 離退休工資 () Dim Irow As Integer Irow = Worksheets(離退休 名冊表 ).[a65536].End(xlUp).Row 39。取得行數(shù) = False 39。關閉屏幕更新 For i = 4 To Irow 39。如果職務為處級 ,那么月增離退休費 670 元 If Range(G amp。 i) = 處級 And Range(I amp。 i) = 離休 Then 28 Range(h amp。 i) = 670 ElseIf Range(G amp。 i) = 副處級 And Range(I amp。 i) = 離休 Then Range(h amp。 i) = 490 ElseIf Range(G amp。 i) = 科級 And Range(I amp。 i) = 離休 Then Range(h amp。 i) = 350 ElseIf Range(G amp。 i) = 教授 And Range(I amp。 i) = 離休 Then Range(h amp。 i) = 990 ElseIf Range(G amp。 i) = 副教授 And Range(I amp。 i) = 離休 Then Range(h amp。 i) = 540 ElseIf Range(G amp。 i) = 處級 And Range(I amp。 i) = 離休 Then Range(h amp。 i) = 670 ElseIf Range(I amp。 i) = 離休 Then: Range(h amp。 i) = 350 ElseIf Range(G amp。 i) = 廳級 Then Range(h amp。 i) = 750 ElseIf Range(G amp。 i) = 處級 Then Range(h amp。 i) = 450 ElseIf Range(G amp。 i) = 科級 Then Range(h amp。 i) = 275 ElseIf Range(G amp。 i) = 教授 Then Range(h amp。 i) = 700 ElseIf Range(G amp。 i) = 副教授 Then Range(h amp。 i) = 400 ElseIf Range(G amp。 i) = 講師 Then Range(h amp。 i) = 275 ElseIf Range(G amp。 i) = 技師 Then Range(h amp。 i) = 275 Else: Range(h amp。 i) = 180: End If Next i: = True End Sub 代碼說明： 以上代碼 是 根據(jù)職務，以及是離休還是退休，相應增加離退休費標準 ， 如離休人員，職務為科級的，增加離休費 350 元，增加退休費 275 元。 上述代碼輸入完成后退出并保存，然后我們 利用工具欄中的“窗體”工具欄 在 此 工 作表 的標題下方添加一個命令按鈕，并改名為 “ 開始增資 ” 兩字 ， 并 把 “ 離退休工資 ” 宏 指定給此按鈕 ， 按此命令按鈕即可 完成離退休人員的增資工資 。 八 、 離退休審批 表 此表的操作與事業(yè)審批表基本相同，只不過是取數(shù)的工作表名稱和取數(shù)的單元格不同，只要相應修改代碼中的工作表名稱和取數(shù)單元格的相應代碼即可完成。打印也分為“全部打印”和“查詢打印” ，既方便，又靈活。 九 、 離退休審報批 表 選擇 【 人事管理系統(tǒng) 】 → 【事業(yè)離退休】 → 【離退休報批表】菜單，可打開“ 諸暨市事 29 業(yè)單位 離退休人員增加離退休費報批 表 ”（以下簡稱離退休報批表） ， 如圖 17。 圖 17 要使“離退休名冊表”對應信息自動匯總到“離退休報批表”中，需在 工作簿的 VBE 窗口中插入一個模塊 19，并輸入如下代碼： Private Sub 生成離退休匯總數(shù)據(jù) () Dim Irow As Integer, i As Integer, count As Integer Set ltsmcb = Worksheets(離退休 名冊表 ) Set ltsbpb = Worksheets(離退休報批表 ) Irow = ltsmcb.[a65536].End(xlUp).Row = F