用vba实现一个简单的工资系统

项目原型,小工厂中将考勤汇总,基本工资,实得工资混在了一起,然后生成两份工资表,一份汇总表,再另一份工资单,一份工资表是员工看到的员工所得工资表,另一份是管理人员看到的公司所付工资表(员工所得加上公司承担的各项费用),由于几乎所有的计算都是手工填入,因此两份工资表加上了一个验证命令,检查两份表的关键几个值相同,才能确认工资表填写的正确无误。初次接触到这份表单几乎让自己崩溃,几乎纯手工,干脆用word算了。万一员工人数有所变动,所有的表就得重新再来一次了。

初步考虑如下方案:

1、设立几个基本表,由这个基本表创建出另外4个表,员工所得表,公司所付表,总表,工资单,并将此4个表存于一个工作薄中,以年月为单位,形如"2013年4月实际工资表.xls".

2、由于基本工资表也是在不断的变动中的,考虑到程序有可能重新生成前几个月的数据以便核对,基本工资表每个月备份一次,在基本工资表中以月为表名插入其后,生成的工作薄形如“2013年基本工资表.xls”,内有最多13张表,一张为基本表,另外的是每月备份表。

3、至于考勤汇总,则是以年为单位生成工作薄,每个工作薄中以月为单位最多12张工作表。

实际操作如下:

1、考勤汇总由考勤系统自动完成或是手工填写,基本工资表根据当月人数实际情况进行人员增减或是薪水的调整

2、在基本工资表中有一按钮,点击按钮,则跳出对话框,要求载入考勤汇总表,并且要求指定月份,然后检查填入的月份基本工资有没有备份,若无备份,则先生成工资表备份,并生成实际工资表中的4个分表,工作完成。

 

嗯,这是工资系统的初步想法,即在数据足够的情况下一键完成,免去每月的繁琐工作。

转载于:https://www.cnblogs.com/luhouxiang/archive/2013/04/22/3035679.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
好的,下面是用VBA编写一个简单的数据管理系统的详细步骤,并附上代码示例: 1. 打开Excel,新建一个工作簿,将其保存为宏启用的Excel工作簿(*.xlsm)。 2. 在工作簿中新建一个工作表作为数据表格,将需要管理的数据按照一定的规则排列在表格中。 3. 在Excel中打开VBA编辑器(快捷键为Alt + F11),在新建的工作簿中新建一个模块。 4. 在模块中编写VBA代码,实现数据管理系统的功能,包括:查询、添加、删除、修改等操作。 5. 针对每个功能,编写相应的代码实现其具体功能。 6. 在代码中添加必要的注释,方便自己或他人修改和理解代码。 7. 将VBA代码保存,关闭VBA编辑器,返回Excel界面。 8. 在Excel中打开数据表格,运行VBA代码,测试数据管理系统的各项功能。 9. 根据自己的需要,修改和完善数据管理系统的功能。 10. 最后,将数据管理系统保存,备份并使用。 下面是一个简单的示例代码,实现向数据表格中添加数据的功能: ```VBA Sub AddData() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("数据表格") '数据表格的名称 Dim lastRow As Long lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row '获取最后一行的行号 ws.Cells(lastRow + 1, 1).Value = InputBox("请输入姓名:") '添加姓名 ws.Cells(lastRow + 1, 2).Value = InputBox("请输入年龄:") '添加年龄 MsgBox "添加成功!" End Sub ``` 以上是一个简单的示例代码,实现向数据表格中添加数据的功能,希望对你有所帮助。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值