如何将VBA的单个计算变成批量计算（在线等）

灰袍法师

原帖由 glctgu 于 2010-10-27 10:15 发表

谢谢法师，解析均为单一值，不知能否扩展到批量数据，比例VBA，函数等不同方式，有劳了。
具体详见附件：
定义G列为应发数，自动拆分最优数。

试试这个行不行

[ 本帖最后由 灰袍法师 于 2010-10-27 21:56 编辑 ]

灰袍法师

由于之前的代码直接用工作表计算结果，速度是很慢的

2楼简单地直接套用之前的代码那肯定是不行的，因为原来的代码实在是太慢。。。。。。了

而且貌似计算结果跟我的原贴不一致，不清楚什么改动导致差异。

我自己考虑过纯用VBA做，速度可以快一千倍吧。

但是这样一来以后税率变化就要改VBA，用户也多半不会改

所以还是继续沿用公式算了，毕竟现在平均下来一秒也能计算好几十行。数千人的工资也就十分钟，应该够用了。

解答在这里，http://club.excelhome.net/viewth ... 1501&highlight=

顺便批评楼主同一话题重复开帖的行为。

你如果真的很急迫需要别人帮助，那么就顶自己好了，再开新帖会浪费别人的时间。

貌似这个东东应该HR会很有用，为什么论坛以前没人做过呢，奇怪了。

[ 本帖最后由 灰袍法师 于 2010-10-28 04:19 编辑 ]

glctgu

虚心接受法师批评，以后注意！：）

hupanshan

半路杀进来确实不好下手

wangtx218

原帖由 灰袍法师 于 2010-10-27 21:45 发表


试试这个行不行

请问一年收入498000应交多少税？
收益最大计算表.rar (7.24 KB, 下载次数: 18)

2010-10-31 05:40 上传

点击文件名下载附件

灰袍法师

原帖由 wangtx218 于 2010-10-31 05:40 发表
请问一年收入498000应交多少税？
816316

非常感谢这位 wangtx218 朋友的提问和质疑

我纳闷了半天，才发现楼主的计税公式是错误的

其中每月工资的计税公式，忘记了先把年度工资总额/12才去算每月的税，而且算出每月的税以后还应该乘以12

具体来说，D列的计算每月个人所得税公式应该是如下
=(MAX((B3/12-2000)*5%*{1,2,3,4,5,6,7,8,9}-25*{0,1,5,15,55,135,255,415,615},0))*12

而楼主的原有公式是
=MAX((B3-2000)*5%*{1,2,3,4,5,6,7,8,9}-25*{0,1,5,15,55,135,255,415,615},0)

楼主想必是个粗心大意的家伙，哈哈哈。

这下可要误导许多人了，建议版主提醒楼主更改所有附件。

[ 本帖最后由 灰袍法师 于 2010-10-31 06:07 编辑 ]

wangtx218

原帖由 灰袍法师 于 2010-10-31 06:04 发表


非常感谢这位 wangtx218 朋友的提问和质疑

我纳闷了半天，才发现楼主的计税公式是错误的

其中每月工资的计税公式，忘记了先把年度工资总额/12才去算每月的税，而且算出每月的税以后还应该乘以12

具体来 ...

我的月税、年税公式是工作中用的！
收入计算表.rar (5.96 KB, 下载次数: 16)

2010-10-31 09:01 上传

点击文件名下载附件

[ 本帖最后由 wangtx218 于 2010-10-31 16:07 编辑 ]

wangtx218

原帖由 蓝桥玄霜 于 2010-10-27 11:15 发表
请见附件。

E-tax-VBA-adjust1027.rar (10.39 KB, 下载次数: 17)

2010-10-31 11:57 上传

点击文件名下载附件

学习，这对的！

wangtx218

原帖由 灰袍法师 于 2010-10-27 21:45 发表


试试这个行不行

我改了一下公式，对了，向你学代码！ VBA - 靠公式计算 - 批量优化年终奖减少个人所得税.rar (23.59 KB, 下载次数: 15)

2010-10-31 12:02 上传

点击文件名下载附件

wangtx218

收益最大计算表.rar (10.65 KB, 下载次数: 13)

2010-10-31 17:29 上传

点击文件名下载附件

请灰袍法师朋友，再优化一下，先谢谢了！