使用VBA快速制作工资条

洗好澡还算清醒，再把很久以前给我爸写的工资条制作方法整理下。

首先还是看下案例表Sheet1的结构：

	A	B	C	D	E	F
1	姓名	业绩	底薪	工龄	工龄工资	应发薪水
2	苏玟洁	450000	10000	1	1500	11500
3	罗丹伶	500000	15000	5	4000	19000
4	颜世璇	800000	15000	4	3000	18000
5	苏俊明	1000000	20000	3	2500	22500
6	王思涵	2500000	25000	2	2000	27000

希望实现的效果：

	A	B	C	D	E	F
1	姓名	业绩	底薪	工龄	工龄工资	应发薪水
2	苏玟洁	450000	10000	1	1500	11500
3	姓名	业绩	底薪	工龄	工龄工资	应发薪水
4	罗丹伶	500000	15000	5	4000	19000
5	姓名	业绩	底薪	工龄	工龄工资	应发薪水
6	颜世璇	800000	15000	4	3000	18000
7	姓名	业绩	底薪	工龄	工龄工资	应发薪水
8	苏俊明	1000000	20000	3	2500	22500
9	姓名	业绩	底薪	工龄	工龄工资	应发薪水
10	王思涵	2500000	25000	2	2000	27000

以下是宏代码：

Sub 生成工资单()'将Sheets(1)表复制到Sheet(2)中,做备份Sheets(1).[A1].CurrentRegion.Copy Sheets(2).[A1]'定义变量num,赋值为1num = 1'设定循环条件,以100人为例,<=100*3Do While num <= 300'第num+1行，第1列的值为空，则把刚添加的标题行删除，结束If Cells(num + 1, 1).Value = "" Then'选中num行
        Rows(num).Select'删除num行
        Selection.DeleteExit SubEnd Ifnum = num + 2'选中第1行第1列Rows("1:1").Select'选区复制
    Selection.Copy'选中num行
    Rows(num).Select'将复制的第1行的内容插入到该行上方Selection.Insert Shift:=xlDownLoop
End Sub

也可在上述代码的基础上实现标题行为多行的工资单，如：

	A	B	C	D	E	F
1	工资单
2	姓名	业绩	底薪	工龄	工龄工资	应发薪水
3	苏玟洁	450000	10000	1	1500	11500
4	罗丹伶	500000	15000	5	4000	19000
5	颜世璇	800000	15000	4	3000	18000
6	苏俊明	1000000	20000	3	2500	22500
7	王思涵	2500000	25000	2	2000	27000

案例文件下载

转载于:https://www.cnblogs.com/daizm/archive/2012/09/17/2688057.html

使用VBA快速制作工资条相关推荐

vue 2个方法先后执行_有效快速制作工资条的2个方法
发工资是每个月员工们最期待的事情,但是对于HR来说却是非常头痛的工作.如何快速制作工资条?相信很多HR朋友们都很想知道,那么今天本文就和大家分享2个制作工资条的高效方法. 第一种:传统方式(Excel ...
WPS表格如何快速制作工资条
如下图是某公司员工工资表,现在想要快速将此工资表制作为工资条. 点击下图选项(Excel工具箱,百度即可了解详细的下载安装方法,本文这里不作详细叙述) 点击[会员工具] 选择[财务工具],点击[添加] ...
Excel（WPS部分功能不适用）技巧：快速制作工资条
把每个人的工资制成工资条步骤: (1)在右边一列输入如下所示. (2)复制"部门姓名工资",然后在A10至C13区域内粘贴 (3)选中D列,点击菜单-数据下的(排序). 结果 ...
Excel如何制作工资条，Leo老师来教你
在工作学习中,我们经常会遇到Excel快速制作工资条这样的问题.列夫托尔斯泰说过:人生不是一种享乐,而是一桩十分沉重的工作. 因此,面对Excel快速制作工资条我们应该有努力探索的精神.成功需要成本, ...
快速入门-Excel2013零基础入门视频课程-图文解析-15定位功能制作工资条
[说明]原视频基本不配说明文档,此文档为手敲+截图而来 , 缺少校对时间 , 有问题请留言或发信息 , 我会及时更正的,谢谢 ! [基本数据] 定位条件 [1]调出定位的方法1 [2]调出定位的方 ...
中高德地图只显示某一城市_干货 | 如何快速制作数据地图？让你的可视化逼格再高一级！...
在数据可视化中,地图可视化是高频应用的一种.我们在一些新闻报道和商业杂志上,会经常看到运用地图来分析展示商业现象,这样的利用地图来反映和分析数据的形式叫数据地图. 数据地图可以最直观的表达出数据之间的 ...
vue设置右边距_利用页面布局设置制作工资条（不用函数）
利用页面布局设置制作工资条(不用函数) 彭怀文第一节和第二节分别讲了使用函数或排序的办法,将工资表转化工资条,但是美中不足的是标题行只能是单标题行,对于多标题行或者含有合并单元格的标题行却没有办法解 ...
office快速制作贺报方法
office/wps快速制作贺报方法使用背景在保险.地产.中介等行业,经常需要制作贺报,且每次制作都是批量的填入指标达成情况等文字信息,制作过程繁琐复杂,故而制作快速贺报制作工具,使用VBA编写, ...
怎么用计算机绘制不规则表格,怎么绘制表格-Excel小技巧：快速制作工资表和不连续填充表格信息，人事必看...
小伙伴们,大家好!面对杂乱没有规律的工资内容,如何将它们转换成查阅方便的工资条是每个人事在月中或者月底进行工资核算和发放都会遇到的难题.如果将WORD中文字内容的工资明细,依次进行粘贴复制或者是手动输 ...

使用VBA快速制作工资条

使用VBA快速制作工资条相关推荐

最新文章

热门文章