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

　　

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