作為一個(gè)編程外行，卻總想著到程序員的世界去看看。

簡(jiǎn)單工作小妙招 | Excel專題

細(xì)節(jié)決定成敗。即使是微不足道的一點(diǎn)點(diǎn)改變，仍舊可以讓你輕松工作，愉悅生活！以下案例，就是講述工作中的“小細(xì)節(jié)、好習(xí)慣”，是如何將人資工作者從繁忙的事務(wù)性工作中擺脫出來，轉(zhuǎn)而將更多精力用在服務(wù)公司職工的優(yōu)質(zhì)服務(wù)上。

場(chǎng)景概述

2020年4月16日，職能部門下達(dá)歸檔工作任務(wù)，要求在一周內(nèi)完成《XX年度薪檔動(dòng)態(tài)積分歸檔表》打印、核對(duì)及歸檔，目前主要完成方式是通過手工輸入人員編號(hào)，自動(dòng)獲取其他信息并逐張通過手工打印。**
不得不說，以上工作方法其實(shí)已經(jīng)減少了大量的工作量了，而在過去很有可能就是手工填寫，之后逐個(gè)職工完成確認(rèn)了，更是費(fèi)事費(fèi)力。

應(yīng)用工具

WPS2016表格；啟動(dòng)宏命令；VBA代碼7行；Hp打印機(jī)一臺(tái)。

解決方案

1. 人工選取本單位需進(jìn)行打印職工人員編號(hào)。
2. 利用宏命令將已選取人員編號(hào)逐一錄入到人員編號(hào)處。
3. 《XX年度薪檔動(dòng)態(tài)積分歸檔表》通過原有功能填入其他信息。
4. 調(diào)用默認(rèn)打印機(jī)進(jìn)行打印。

VBA代碼共享：

Sub 歸檔表逐頁(yè)填報(bào)并打印()
Dim i%   
     For i = 2 To 125    
     Sheet2.Cells(3, 2) = Sheet2.Cells(i, 11)    
     ActiveSheet.PrintOut    
     Next
 End Sub

妙招效果

• 原工作方案：復(fù)制/粘貼一個(gè)人員編號(hào)或者輸入一個(gè)人員編號(hào)約需15s，核對(duì)15s，點(diǎn)擊打印機(jī)5s，設(shè)置分?jǐn)?shù)5s，加之工作疲勞打印一張耗時(shí)約1分鐘，百人制單位需要花費(fèi)近2小時(shí)。
• 現(xiàn)解決方案：選取本單位需打印人員編號(hào)15s，啟動(dòng)宏命令5s，之后打印機(jī)自行工作，而你可以繼續(xù)其他工作。當(dāng)然還得加上解決方案作者的時(shí)間約半小時(shí)，但對(duì)于全公司5000余份的工作量，總計(jì)節(jié)約的時(shí)間約6.5個(gè)工作日，是非常可觀的。

更多的小細(xì)節(jié)、好習(xí)慣請(qǐng)聯(lián)系我們，平臺(tái)共享！
歡迎大家一起討論繼續(xù)完善！
交流郵箱：dtsg@foxmail.com