用vba求全年工资和

cliiiiii · 发表于 2014-1-29 16:11

这个问题其实可以不用VBA，excel内置函数就可以搞定的。。。。

unts1980 · 发表于 2014-1-29 16:50

yjh_27 发表于 2014-1-28 14:47
按3月人员排序，3月没有的人员排尾。3月可修改（12月）

crr = YjhSort(brr, "1,a,1,1,1,1,1,1,1,1,1,1", "1u,2c;4,3c;3,4c;3,5;c3,6;c3,7;c3,8;c3,9;c3,10;c3,11;c3,12;c3", , 1, n, , , , drr)
这个代码什么含义

若改成12个月需要修改什么地方

unts1980 · 发表于 2014-1-29 16:51

cliiiiii 发表于 2014-1-29 16:11
这个问题其实可以不用VBA，excel内置函数就可以搞定的。。。。

可以用但是数据量太大带公式会很大的

unts1980 · 发表于 2014-1-30 11:07

zax010 发表于 2014-1-28 13:31
请测试。

谢谢您的帮助我又可以学习了

jjmysjg · 发表于 2014-1-30 11:13

zax010 发表于 2014-1-28 13:31
请测试。

项目顺序不一致的时候，能自定筛选出不重的，然后汇总吗

zax010 · 发表于 2014-1-31 10:35

jjmysjg 发表于 2014-1-30 11:13
项目顺序不一致的时候，能自定筛选出不重的，然后汇总吗

只要各月份表格式不变，人员的增减和前后顺序变化不影响年末汇总。

cliiiiii · 发表于 2014-2-2 11:33

unts1980 发表于 2014-1-30 11:07
谢谢您的帮助我又可以学习了

好像最多只能有100行数据。。。
建议使用动态数组

yjh_27 · 发表于 2014-2-2 14:59

unts1980 发表于 2014-1-29 16:50
crr = YjhSort(brr, "1,a,1,1,1,1,1,1,1,1,1,1", "1u,2c;4,3c;3,4c;3,5;c3,6;c3,7;c3,8;c3,9;c3,10;c3,11 ...

巳是12个月的合计，如需按12月份的名单排序，则前面drr赋值句中的3月（5列），改为12月（14列）。

yjh_27 · 发表于 2014-2-4 18:59

unts1980 发表于 2014-1-29 15:58
大大你的模块2是什么东东哦哦

有注释啊。
参见
· 多Key数组排序(分类、统计、重复处理)-自定义函数

zax010 · 发表于 2014-2-4 19:19

cliiiiii 发表于 2014-2-2 11:33
好像最多只能有100行数据。。。
建议使用动态数组

谢谢提醒，当时只是随手而写，图省力而已。

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