[分享]工资表按部门分组（非常实用）

weiguoyin868 · 发表于 2008-6-22 20:28

最近做个一个工资表按部门分组的程序，用VBA写的。根据工作需要，要实现的要求是： 1、根据部门的不同分页打印； 2、分类后的工资项中，数据计算的项，要求不是汇总数，而是汇总公式，如实发工资等； 2、每个部门需要有小计，但小计的内容不是汇总数，而是汇总公式； 3、一个部门人多一页纸打不下时（程序设定20行），需要一个每页有个“页小计”，最后一页不但有页小计，还有部门小计，同样要求的是写入汇总公式。 目的：这种设计首先是能快速统计部门的工资汇总表，便于部门人员工资签字。如果单位工资管理，完全由人力资源部门统一管理，这种形式基本能满足需要。但有的单位，工资表由人力资源部编制，需要下属单位审核确认，修改后，劳资员还需要发下去审核，经反复审核确认无误后，才能发放工资，为了加快修改的速度，对于在不同的部门出现的问题，每次只需要改动其中的数，合计就会自动计算，为满足这样需要，编写了这个程序。 特点： 1、自动分组、自动分页。 2、合计项无论行合计，还是列合计都自动写入公式并计算数值。 3、表格字体，表格线，统一设置。 3、通用性很强，容易修改复制。 原工资表样式：

kEEsI0fU.rar (43.4 KB, 下载次数: 763)

[此贴子已经被作者于2008-6-23 21:58:45编辑过]

slywtj123 · 发表于 2008-6-22 21:15

weiguoyin868：请发附件，便于学习！

123456@ · 发表于 2008-6-22 21:34

关注

123456@ · 发表于 2008-6-22 21:55

能否在最后一行统计整个合计数？谢谢。另你发的文件是否还有其他代码？

weiguoyin868 · 发表于 2008-6-23 09:41

程序没有其他代码，但有两个调用函数。汇总合计我另有一张表，是用函数编写的，含总计和部门合计。没在这个功能里

[此贴子已经被作者于2008-6-23 9:48:55编辑过]

123456@ · 发表于 2008-6-23 23:33

谢谢！有空再向您请教。

123456@ · 发表于 2008-6-23 23:42

我不懂VBA，但诚恳建议：1、修改页小计为部门小计，如“业务小计”、“安部页小计”、“安部小计”。2、设计一个部门可自选行数，不一定20行。

[此贴子已经被作者于2008-6-23 23:46:32编辑过]

weiguoyin868 · 发表于 2008-6-24 08:23

好建议，这个比较简单。

sznywyc · 发表于 2008-6-24 14:26

78nR64Jl.rar (48.55 KB, 下载次数: 76) 尊敬的weiguoyin868老师，您好。您的大作拜读多时，对我这个新手帮助很大，谢谢。现有一个在老师看来应该不是问题的问题。请先下载附上的图片看看。以上图片显示的是用鼠标点击Excel工作表时就会出来一大串“工具栏”。我是新手，在学习VBA录入宏时，不知道做了哪些操作，结果造成现在图片显示那样。现在是不管什么（Excel）文件，只要在工作表上击右键就会出来一大串的“工具栏”，我把录入的的宏全部删除还是不行。请老师指点，我该如何处理这个问题。在下先谢了。如果老师觉得这是个案的话，也可以把解决办法发到我的邮箱：<a href="mailto:sznywyc@sina.com" target="_blank">sznywyc@sina.com</a>再次谢谢。

weiguoyin868 · 发表于 2008-6-24 21:08

抱歉了，这个我也不明白。建议你重装EXCEL吧。

		自动登录	找回密码
密码			免费注册

[分享]工资表按部门分组（非常实用）

评分

[求助]请weiguoyin868老师帮助解决问题，先谢了