Excel制作漂亮的工资条的方法

2024-07-24

Excel制作漂亮的工资条的方法(精选3篇)

Excel制作漂亮的工资条的方法 篇1

如何使用Excel进行工资条的制作,也许有些网友使用已经很长时间了,但如何更快更好的做出漂亮的工资条,看看作者的方法吧,

“小问题难倒老财务”,也许你已经在财务口上工作多年,也许你天天都要面对Excel那张老脸,也许你已经习惯了用工资明细表做员工工资统计并 向上级汇报,把表中的条目一条条复制粘贴后打印发给每个员工。可你是否想过,找一个更简单更有效率的方法?看起来这似乎有些困难:在工资明细表中,工资的 项目(即表头)一般只出现在表格开头的某一行,而在工资条中,为了便于阅读则要求每个人的工资都有表头,那么如何巧妙地把工资明细表制作成便于打印的工资 条呢?如图所示,这就是我们要完成的工作(原工资表见图1,转换成工资条后的效果见图2):

图1 原工资表

图2 转换后效果

“条条大路通罗马”,不过路有远近之分,方法也有难易之别,这里给大家提供三种最简单易用的方法。

方法一:宏命令控制法

对于Office家族的宏功能,大家或许早有耳闻,但由于需要使用VBA进行编程,所以宏一直让许多人望而却步,不过要使用一个现成的宏就简单 多了。首先打开要处理的Excel表,选择“工具→宏→Visual Basic 编辑器”,在编辑器左边的窗口中用鼠标双击Sheet1,会出现代码编辑窗口,在代码编辑窗口输入如下代码(为了不破坏原有的工资表,所以这里采用了将 Sheet1的内容复制到Sheet2的方法,所以最后的生成结果是在Sheet2中显示):

Sub MakeSalaryList()

Dim i As Integer

Dim endrow As Integer

测出数据的最后一行

endrow = Sheet1.Range(“a65536”).End(xlUp).Row - 1

把标题贴过去

Worksheets(1).Range(“1:1”).Copy (Worksheets(2).Cells(1, 1))

For i = 3 To endrow

把每条数据抬头贴过去

Worksheets(1).Range(Cells(i, 1), Cells(i, 256)).Copy (Worksheets(2).Cells(3 * i - 6, 1))

Next i

End Sub

关闭编辑器,将自动返回到刚才的Excel表,选择“工具→宏→宏”,将弹出如下对话框:(见图3)

图3 添加宏

点击“执行”,将在Sheet2生成如Gz-2所示的转换成工资条,怎样,不复杂吧,

当然,如果你的表总Sheet2已经输入了别的内容,就可以将他复制到Sheet3来生成,代码修改也很简单,把其中的Sheet2修改成Sheet3就可以了,其它代码不变。下一页更精彩

Excel制作漂亮的工资条的方法 篇2

某校机制1001班计算机应用考试成绩统计单, 包括作业、测验、期中、期末考试的成绩。

2 操作步骤

2.1 打开“计算机应用成绩表” (如图1所示) , 利用公式输入每个学生的期评。

(1) 单击F3单元格, 输入公式:=B3*$B$17+C3*$C$17+D3*$D$17+E3*$E$17, 按回车。

(2) 将F3单元格中的公式复制到F4∽F12单元格 (可采用拖曳的方法) 。

2.2计算期评平均分

(1) 单击F13单元格, 单击工具栏中函数按钮, 弹出“粘贴函数”对话框, 在函数分类框中选择“常用函数”, 在函数名中选择AVERAGE, 单击“确定”按钮。

(2) 弹出“求平均值函数”对话框, 单击NUMBER1框的折叠按钮, 在当前的工作表中选择F3:F12区域, 按回车后返回到“求平均值函数”对话框, 单击“确定“按钮。将F13单元格中的公式复制到B13∽E13单元格 (可采用拖曳的方法) 。

(3) 求期评最高分。单击F14单元格, 用函数直接输入法输入:=MAX (F3:F12) , 按回车。将F14单元格中的公式复制到B14∽E14单元格 (可采用拖曳的方法) 。

2.3 计算总人数

(1) 单击B15单元格, 单击工具栏中函数按钮, 弹出“粘贴函数“对话框, 在函数分类框中选择“统计”, 在函数名中选择COUNT, 单击“确定”按钮。

(2) 弹出“求个数函数”对话框, 单击VALUEL框的“折叠”按钮, 在当前工作表中选择B3:B12区域, 按回车后返回到“求个数函数”对话框, 单击“确定”按钮。

2.4 计算优秀数

单击D15单元格, 用函数直接输入法输入:=COUNTIF (F3:F12, ”>=80”) , 回车。

2.5 计算优秀率

单击F15单元格, 输入公式:=D15/B15, 回车。

在“总评”列, 输入每个学生的总评。

(1) 单击G3单元格, 用函数直接输入法输入:=IF (F3>=80, ”优秀”, ”一般”) , 回车。将G3单元格中的公式复制到G4∽G12单元格 (可采用拖曳的方法) 。

2.6 图表的创建

(1) 取表格中所有学生的期评成绩, 创建嵌入式的“柱形圆锥图”图表, 图表标题为“计算机应用期评成绩”。

(2) 对工作表Sheet1图表进行编辑:

移动、放大图表到A19:I33区域, 将图表类型改为“三维簇状柱形图”。为图表添加分类轴标题“姓名”和数值轴标题“成绩”。

(3) 对工作表Sheet1图表进行如下格式化:

将图表标题设置“计算机应用期评成绩”设置为粗体、16号、蓝色;分类轴标题“姓名”设置为粗体、12号, 红色, 数值轴标题“成绩”设置为粗体、12号、红色、90度方向。设置背景墙的图案颜色为浅蓝色。

(4) 取表格中所有学生的“作业”、“测验”、“期中考试”、“期末考试”的数据系列, 创建独立的“柱形圆柱图”图表, 图表标题为“计算机应用平时成绩”。分类轴标题为“姓名”, 数值轴标题为“成绩”。

(5) 最终效果如图2所示:

摘要:以学生计算机应用成绩表为例, 介绍成绩统计及图表使用的方法

关键词:成绩,期评,总评,图表

参考文献

[1]许晞.计算机应用基础.北京:高等教育出版社, 2007.6.

[2]Excel Home.Excel函数与公式实战技巧精粹.北京:人民邮电出版社, 2008.

Excel制作漂亮的工资条的方法 篇3

关键词:Excel;宏;VBA(Visual Basic for Applications)语言;排序

中图分类号:TP31 文献标识码:A文章编号:1007-9599 (2010) 13-0000-02

The Method&Discussion of EXCEL for Wage Paper Printing

Gao Weiwei

(Shaanxi School of Electronics Industry,Baoji721001,China)

Abstract:Microsoft Excel is a powerful spreadsheet software.It can easily complete the data of various types mathematical operations,and use a variety of two-dimensional or three-dimensional graphic image to express them,which greatly simplifies the data processing work.However,if only use Excel's common functions to handle the more complex data,may still be a lot of manual operations.But Excel's powerful than people imagine to make it into the macro unlimited scalability,which can solve the complex data processing problems.

Keywords:Excel;Macro;VBA(Visual Basic for Applications)language;

Sort

隨着支持Windows的应用程序的不断增多和功能的不断增强,越来越多的程序增加了宏处理来方便用户的自由扩展,VBA(Visual Basic for Applications)语言是从流行的Visual Basic编程语言中派生出来的一种面向应用程序的语言,它适用于各种Windows应用程序,可以解决各应用程序的宏语言不统一的问题。使用VBA语言还有如下优点:1.VBA是一种通用程序语言,通过它不仅可以共享Microsoft相关的各种软件(如Excel、Word、Access)……,而且随着其它的一些软件(如大名鼎鼎的AutoCAD2000)等对VBA的支持,这些软件也已进入到了VBA的控制范围;2.可以将用VBA编写的程序复制到Visual Basic中调试并运行,从而实现用Visual Basic来控制有关的应用程序;3.VBA提供的大量内部函数大大简化了用户的操作。

无论在那个行业,每个月都要给职工发工资,职工工资构成非常复杂,往往超过10项,因此每月发工资时要向职工提供一包含工资各构成部分的项目名称和具体数值的工资条。打印工资条时要求在每个职工的工资条间有一空行便于彼此裁开。所以打印工资就成了财务或者人事部分的到月底完成的事情。

以前我们大部分的打印机都采用的是针式打印机,并且经常用那种穿孔纸,只要将要页面设置改成我们工资条一样的宽度,针式打印机就能够很好的完成我们现在所要求的打印工资条。但是现在我们很难找到那样的打印机,大部分打印机都是喷墨或者激光打印机,不能通过页面设置来完成工资条的打印。

对于企业人数比较大的话,就会买专门软件来完成工资条的打印,但是对于人数比较少的单位来说,去买昂贵的软件无疑是一种浪费,经过自己的经验,得到了三种方法。供大家来讨论和评价。

一、三种方法的简介

第一种:应用办公软件WORD中邮件合并。这种办法在网络上介绍比较多,在这里就不在赘述。

第二种:应用办公软件EXCEL(宏)打印工资条。

第三种:应用办公软件EXCEL中的排序来完成打印工资条。

二、数据库文件转化成EXCEL

具体操作如下:

不论数据库是MDB、SQL、DBF等等,我们都可以将其转化为EXCEL文件。转化方法如下:

(一)MDB,直接选择其表,按右键将其表导出成EXCEL文件。

(二)SQL,首先建立一个电子表格EXCEL文件,打开企业管理器,找到相应的表,然后将其导出到我们所建立的电子表格。

(三)DBF,首先用VFP打开相应的表,然后在文件菜单中选择导出功能,直接导成EXCEL文件。

不论数据库是什么,都将其转换为EXCEL。通过设计一个宏来完成工资条的打印。

三、打印工资条

由于第一种方法大家已经见的很多,我们现在只讨论后面两种方法。

第二种:宏

(一)打开要打印的EXCEL数据,在工具菜单中找到宏,进入visual basic 编辑器,应用VBA语言编写如下程序代码。

Sub gongzitiao( )

Application.ScreenUpdating = False

'为避免破坏表一,将表一内容完整复制到表二

Sheets(1).[A1].CurrentRegion.Copy Sheets(2).[A1]

'定义循环变量的最大值不小于表二中职工数的二倍(单位职工总数为55)

a = Application.WorksheetFunction.CountA(Sheets(2).[A2:A55]) * 2

'如果第一列(职工的工资电脑序号)上下单元格的值不相等,则在它们之间插入一个空白行

For i = 2 To a Step 2

If Sheets(2).Cells(i, 1) <> Sheets(2).Cells(i + 1, 1) And (Sheets(2).Cells(i, 1) <> "") Then

Sheets(2).Rows(i + 1).Insert

End If

'如果第一列中的单元格为空,则将表中[A1:Q1](工资清单表头项目)复制到此行,最好将[A1:Q1]范围设置的大点。

If Sheets(2).Cells(i, 1) <> " " And Sheets(2).Cells(i + 1, 1) = "" Then

Sheets(2).[A1:Q1].Copy Sheets(2).Cells(i + 1, 1)

End If

Next

Application.ScreenUpdating = True

End Sub

(二)然后直接在visual basic 编辑器中运行刚才建立的宏,就能在SHEET2中得到需要的结果,直接设置在打印机打印。

第三种:应用办公软件EXCEL(排序)打印工资条

1.打开要打印的EXCEL数据,然后在要排序的数据表SHEET1中添加一列,命名为“排序”。下面工资表为例。

2.给排序这列添加数值,从2、4、6、8等偶数。并且在数据低下的地方复制表头8(根据数据量来确定)。

3.将后面复制的单元格中的排序删除,并且添加相应的数字,从3、5、7等等。

四、结束语

以上是笔者从事教学工作多年的一点经验,简单的流露于文字,希望能给各位启示,在以后的工作和学习中有所帮助。

参考文献:

[1]马宁,杨静.计算机应用基础,机械工业出版社2009,3

上一篇:石油大学c语言在线下一篇:五年级反思