运用vba程序代码实现工资条的制作

运用vba程序代码实现工资条的制作

excel具有快速输入数据的方法和强大的数据处理能力。这是公司管理中最常用的数据处理软件之一。在企业的劳资人事管理中,常常需要将工资表转换成工资条,然后将工资条打印后发放给职工。用Excel制作工资条的方法通常有两种:一是用人工通过复制和粘贴等操作来实现;二是使用函数的方法来实现。这两种方法都有各自的缺点。第一种方法的工作量很大;第二种方法要求操作人员具有较高的函数应用水平,操作过程也比较复杂,一般人员比较难以掌握,而且还容易出现错误。在这里,笔者将介绍运用VBA程序代码来实现工资条的制作方法。这种方法可以克服上述两种方法的缺点。1vba的应用VBA(VisualBasicforApplications)是新一代标准宏语言,是基于VisualBasicforWindows发展而来的,两者有着相似的语言结构,严格地说,VBA是VB的子集。作为VB的一个分支,VBA继承了VB很大一部分编程方法。VB中的语法结构、变量声明以及函数的使用等内容,在VBA语言中同样可以正常使用。VBA与传统的宏语言不同,传统的宏语言不具有高级语言的特征,没有面向对象的程序设计概念和方法。而VBA提供了面向对象的程序设计方法,提供了一套完整的程序设计语言。VBA专门应用于MicrosoftOffices的各个应用程序的工程项目只能由使用VBA的Excel、Word、PowerPoint、Access等称为宿主(Host)的Offices应用程序来调用运行,也就是说,用ExcelVBA设计编制的程序代码,只能在Excel环境中运行。并且在Excel环境中,使用宏记录器可以很容易地将日常工作转换为VBA程序代码,使工作能自动化。另外,由于VBA可以直接应用Office套装软件的各项强大功能,所以对于程序设计人员的程序设计和开发更加方便快捷。VBA语言简单易学,但功能却非常强大。例如可以将Excel用作开发平台来开发应用程序。使用VBA可以实现的功能包括使重复的任务自动化、自定义Excel工具栏、菜单和界面、简化模板的使用、自定义Excel使其成为开发平台、创建报表以及对数据进行复杂的计算和分析等等。2以身作则2.1“工资表”包括假设“工资表”内容有:序号、姓名、岗位工资、工龄工资等等信息,如图1所示。2.2用工资表的内容制作工资条我们知道,工资条是由“一个标题行、一个数据行和一个空行”这样的结构所组成的。因此,用工资表的内容制作工资条的关键就是在各个数据行之间插入标题行和空行。抓住这个关键,我们运用Excel的VBA在工资表文件中建立一个程序模块,并设计编制一段工资条制作的应用程序代码,以达到自动生成工资条的目的2.3成功的生产2.3.1下降视觉基本打开“工资表”文件,单击功能区的“开发工具”选项卡,然后单击“VisualBasic”按钮命令,打开VisualBasic编辑器。在编辑器左边的工程窗口中创建一个“模块1”对象,如图2所示。2.3.2分离器边的代码双击“模块1”对象,打开VisualBasic编辑器右边的代码窗口,输入如下程序代码:关闭VisualBasic编辑器后,上述程序VBA代码会以“生成工资条”为名出现在“宏”命令对话框中。3操作完成后的效果3.1“宏”命令添加工资条3.1.1单击功能区的“开发工具”选项卡,然后单击“宏”按钮命令,打开“宏”命令对话框,如图3所示。(注:操作环境为Excel2007版本)3.1.2在“宏”命令对话框中,选择“生成工资条”程序,然后单击“执行”按钮。3.1.3在“参数输入提示”对话框中,输入要生成工资条的表名,例如:1月份工资表,然后单击“确定”按钮即可,如图4所示。3.2运营效果在完成上述操作步骤后,“生成工资条”程序将自动完成被指定“工资表”的工资条制作工作,其运行效果如图5所示。4工资条工资表的决策程序运行生成工资条VBA程序声明了三个变量i、j、bm,允许程序在执行期间保存计算值。其中,bm是一个字符串变量,它保存被选择指定某个月的工资表表名,主要用于对原工作表的控制操作。另外两个变量i、j是程序循环控制变量,主要用于工资条工作表的行、列定位控制,变量i控制行定位,变量j控制列定位,通过对工作表行列的定位控制,可以精确地对工作表数据区中的每一个单元格进行各种处理操作。当程序运行时,首先会弹出“参数输入提示!”对话框,该对话框可供操作人员选择指定要制作工资条的工资表表名,这种设计可以给操作人员更多的选择。如果操作人员没有输入表名而单击了“确定”按钮,程序会给出提示,并退出运行。当操作人员输入正确的表名并单击了“确定”按钮后,程序继续运行。在第1个工作表之前插入一个新表,将新表重命名为某个工资条选择原工作表复制数据到新表中。在新表中,通过使用控制变量i来控制程序循环运行,判断i行的第一个单元格中是否为空来决定是否插入新行和退出循环运行,不为空则插入新行,然后利用j控制变量,结合i变量将字段标题复制到相应的单元格中。这个循环将一直进行下去,直到i行的第一个单元格中为空为止,这个处理过程最终实现了工资条制作的自动化。5操作人员:复合分配,西工式人工制作,宜使用函数制作。使用函数制作的法容易实现运用VBA程序代码来实现工资条的制