黄小毛 刘清钰

一、整理基础数据

本文使用的工资数据模板如下所示。

第1行为标题行，第2行为数据的头行，以下为数据区域。

第A列至第D列依次为“员工编号”、“员工姓名”、“员工部门”和“员工岗位”，这四列显示了员工的基本信息。

第E列至第I列为各项该名员工本月应该发放的工资，依次为“基本工资”、“绩效工资”、“奖金”、“补贴”和“加班工资”，然后第J列为这五项的汇总项，代表了本月该员工在未扣除相关项目时应得的工资，以J2为例，J2=E2+F2+G2+H2+I2。

第K列和第N列为扣除项，依次为“五险一金扣除”、“事、病假扣除”、“其他扣款”和所得税扣款。其中“其他扣款”指的是不能分类进其他扣除项目的项目，例如以前月份多扣工资的返还，如果是扣除项则以正数表示，如果是增加项则以负数表示。第O列是“实发工资”，表示该名员工本月应该收到的钱，以O2为例，O2=J2-K2-L2-M2-N2。

二、补充基础数据

由于需要使用Outlook邮箱来发送工资条，在原有数据的右边增设“邮箱”一列，即P列，使用VLOOKUP函数在“联系方式工作表”中按员工编号来查找“邮箱”，以P1为例，P1输入函数VLOOKUP（A2，联系方式!A2：E11，5，0）。

另外在R列插入标题为“图片文件名”一列，在此例中，邮件的标题与生成的工资条图片相同，故不额外填写邮件标题，以R1为例，输入公式“A2&”-“&B2&”-“2020年1月工资明细”，命名格式为“员工编号-员工姓名-2020年1月工资明细”。

三、生成工资条

首先在数据工作表中插入一个“按钮（窗体控件1）”，命名为“Step1：Make Pay Stub”，在VBA模块中输入以下代码：

这串代码首先会声明一个名为“number1”的Integer型的变量，变量的值为当前工资表包含A1单……