利用Excel 97打印工资条
吴加明
2000年 第2期
问
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
提出:虽然现在有许多的财务软件，它们都有工资管理功能，但由于软件的价格因素，或软件自身存在的不足(如软件的针对性较差，不能满足单位的具体需要)，财务软件在企业和事业单位的应用并不广泛。现实的情况是:在许多单位，特别是事业单位，他们的工资处理都是利用微软的电子
表格
关于规范使用各类表格的通知入职表格免费下载关于主播时间做一个表格详细英语字母大小写表格下载简历表格模板下载
软件——Excel97。
但在使用Excel97的过程中，可能会有一个问题一直困扰着会计人员，这就是:用Excel97打印的工资条只有第一个人有工资条的条头(如:编号、姓名、工资、津贴……)(见^02050202a^1)，而我们的要求是每个人都要有工资条的条头(见^02050202b^2)(因为工资条是要裁开发给每个人的)。
当然，有些人可能认为这个问题很容易解决，即只要在每个人的前头插入工资条的条头不就好了嘛!但实际是:若单位里有100多个人的话，你就要复制100多次，这显然就不能体现计算机的长处。更要命的是:前面的操作每个月都要如此反复。某些人可能会提议，那就把前面的设置另存为模板吧。当然，这也不失为一种
方法
快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载
，但君不见，这样一来，每个人的工资数在
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
格中就让工资条的条头给隔开了，以至于不能利用Excel97的填充柄来复制数据、公式(可知道这正是Excel97备受青睐的重要因素之一!)，也就是说，你同样要复制数据、公式上百次。
解决思路:通过一段时间的摸索，我把问题归结为:在表1的表格(称之为源表格)中输入、处理工资数，然后以表2的表格(称之为目标表格)的形式打印，即现在的核心问题是把表1的表格转换为表2的表格，而这可以用嵌入Excel97中的VBA语言来编程实现。
程序
清单
安全隐患排查清单下载最新工程量清单计量规则下载程序清单下载家私清单下载送货清单下载
:假设如表1的表格在工作簿中的sheet1工作表(为活动工作表)中，而如表2的表格要在工作簿中的sheet2工作表中，则程序清单如下:
Option Base1
Dim aa(13)As Range，xm As Range ′xm准备存放条头的项目
Dim List_1 As Integer ′源表格中的行定位变量
Dim List_2 As Integer ′目标表格中的行定位变量
Dim List_str As String ′源表格中的行定位变量，字符型
Sub mymain()
List_1=2 ′从源表格的第二行开始
List_2=2
Do
List_str=RTrimS(LTrimS(StrS(List_1)))
Set aa(1)=ActiveSheet，Range(″A″,List_str) ′读编号
Set aa(2)=ActiveSheet，Range(″B″,List_str) ′读月份
If aa(1)=aa(2) Then Exit Do ′编号、月份均空白时不再读
transform List_2
List_1=list_1，1
List_2=List_2，2
Loop
End Sub
Sub transform(num As Integer)
Dim n As Integer
Dim v As String ′源表格的列定位变量
Dim nl As Variant′目标表格的列定位变量
Dim w As Variant ′目标表格的行定位变量
n1=num
w=n1，1
For n=1 To 11 Step 1 ′准备传送工资条的条头及工资数
With Worksheets(″sheet2″)
v=Chr(64，n) ′源表格的数据从A列开始
Set xm=ActiveSheet.Range(v,″1″)
Range(Chr(n，64),n1)=xm ′传送工资条的条头
Set aa(n，2)=ActiveSheet.Range(v,List1_str)
Range(Chr(n，64),w)=aa(n，2) ′传送工资条的工资数
End With
Next
End Sub
浙公网安备 33021202002483