作为一个编程外行，却总想着到程序员的世界去看看。

简单工作小妙招 | Excel专题

细节决定成败。即使是微不足道的一点点改变，仍旧可以让你轻松工作，愉悦生活！以下案例，就是讲述工作中的“小细节、好习惯”，是如何将人资工作者从繁忙的事务性工作中摆脱出来，转而将更多精力用在服务公司职工的优质服务上。

场景概述

2020年4月16日，职能部门下达归档工作任务，要求在一周内完成《XX年度薪档动态积分归档表》打印、核对及归档，目前主要完成方式是通过手工输入人员编号，自动获取其他信息并逐张通过手工打印。**
不得不说，以上工作方法其实已经减少了大量的工作量了，而在过去很有可能就是手工填写，之后逐个职工完成确认了，更是费事费力。

应用工具

WPS2016表格；启动宏命令；VBA代码7行；Hp打印机一台。

解决方案

1. 人工选取本单位需进行打印职工人员编号。
2. 利用宏命令将已选取人员编号逐一录入到人员编号处。
3. 《XX年度薪档动态积分归档表》通过原有功能填入其他信息。
4. 调用默认打印机进行打印。

VBA代码共享：

Sub 归档表逐页填报并打印()
Dim i%   
     For i = 2 To 125    
     Sheet2.Cells(3, 2) = Sheet2.Cells(i, 11)    
     ActiveSheet.PrintOut    
     Next
 End Sub

妙招效果

• 原工作方案：复制/粘贴一个人员编号或者输入一个人员编号约需15s，核对15s，点击打印机5s，设置分数5s，加之工作疲劳打印一张耗时约1分钟，百人制单位需要花费近2小时。
• 现解决方案：选取本单位需打印人员编号15s，启动宏命令5s，之后打印机自行工作，而你可以继续其他工作。当然还得加上解决方案作者的时间约半小时，但对于全公司5000余份的工作量，总计节约的时间约6.5个工作日，是非常可观的。

更多的小细节、好习惯请联系我们，平台共享！
欢迎大家一起讨论继续完善！
交流邮箱：dtsg@foxmail.com