EXCEL 工资条 VB 制作方法
2020EXCEL 工资条 VB 制作方法
VB 法
现在许多单位都实现了工资代储,但每月的工资清单 (工资
条)还得要发给职工。如果用 Excel 程序处理的工资表,打印后
每页只有一个表头,剪裁成条后除了每页的第一名职工外,其余
的就没有表头了,这样将使职工无法清楚工资条的数字对应什么
具体名目。怎样才能给每个职工的工资条加上工资表表头呢 ?这
里笔者将解决方案介绍给大家。
首先根据每个职工工资具有唯一电脑序号的特点,使用 VB
里的判断语句,让循环从第一个电脑序号开始,如果 Excel 表中
相邻两行的电脑序号不同, 就在这两行之间插入一个空白行,
然后使用循环语句,把表头的内容依次复制粘贴到每个空白行。
下面是具体的操作步骤:
1. 在 Excel 中打开需要制作工资条的工资表文件。
2. 打开“工具”/“宏”(如果在菜单中没有看见“宏”,让鼠标在菜
单上稍停留或者按向下的双箭头就会出现),选择“Visual
Basic 编辑器”(图 1)打开 VBA 编辑器窗口,在 VBAProject
的工程资源管理器中双击 Sheet1,会出现代码编辑窗口,在代
码编辑窗口输入如下代码(图 2):