月收入与一次性奖金的分配比例

wangtx218

原帖由 灰袍法师 于 2010-10-31 17:40 发表


这一段读取单元格三次，写入一次，而实际上你只需要读取一次，写入一次
arr=.value
计算arr()
最后 [F3].value=MM 即可

    If [L3] > Max Then
       Max = [L3]: MM = i
    End If
    If  < 0 The ...

请你出手写一个，谢了！

灰袍法师

尝试了一下，速度才提高30％，估计是楼主附件的公式太复杂了，导致读写单元格的减速效应不明显

建议楼主在我的上面的链接的基础上，增加自己的公式好了

而且我也没看懂楼主的附件跟上面连接的附件有什么不同，除了信息多了很多以外。

wangtx218

原帖由 灰袍法师 于 2010-11-1 17:59 发表
尝试了一下，速度才提高30％，估计是楼主附件的公式太复杂了，导致读写单元格的减速效应不明显

建议楼主在我的上面的链接的基础上，增加自己的公式好了

而且我也没看懂楼主的附件跟上面连接的附件有什么不同， ...

请把写好的发上来，大家交流、学习一下吗？

terqm

看不明白,但可以肯定,这样写的代码绝对很慢,VBA快事因为可以直接处理数据.....你这样写会导致EXCEL不断的重算.和不断地读取某一单元格,而且居然要循环1200000次.能快才怪.

灰袍法师

原帖由 terqm 于 2010-11-1 19:44 发表
看不明白,但可以肯定,这样写的代码绝对很慢,VBA快事因为可以直接处理数据.....你这样写会导致EXCEL不断的重算.和不断地读取某一单元格,而且居然要循环1200000次.能快才怪.

如你所言，楼主的主要问题是循环次数太多，而且每次循环都读写大量单元格

其实楼主并没有做120万次循环，而且120万次循环对如今的电脑来说也就一秒钟的事情，关键还是要减少读写单元格的次数, 少一次读写，就快50％

另外，最重要的是，把循环的步长加大，基本上加大100倍，就会快100倍

附件1秒之内完成。

其实我在上面的链接，其处理手法更加合理，避免了加大步长的漏算。

因为现在的办法类似于工作表迭代，不断地增加写入单元格的值，公式计算结果，读取公式的结果
这样每次循环读写一次，已经不可能优化了

可以优化的只是降低循环的次数，但这样一来，有可能漏算某些值

如步长为1000，那么100000直接就到101000，100001到100999的值全部没有计算

而且到了最后的一步，假设是100500的总收入

那么实际上只计算了100000的所得税，要是100500刚好跨了税率区间，那么就可能不对了.

实际上，楼上附件算50500的话，两个最优值是不一致的

因为加大第二次循环的步长，等于是每月工资只能取某些值的倍数，那么就一定不会是最优值，不懂楼主为什么要算两次。

而这个第二次循环，跟第一次唯一差异就是每月工资要取整数。

[ 本帖最后由 灰袍法师 于 2010-11-1 20:30 编辑 ]

wangtx218

原帖由 灰袍法师 于 2010-11-1 20:06 发表


如你所言，楼主的主要问题是循环次数太多，而且每次循环都读写大量单元格

其实楼主并没有做120万次循环，而且120万次循环对如今的电脑来说也就一秒钟的事情，关键还是要减少读写单元格的次数, 少一次读写，就 ...

学习你的代码，再一次感谢你！

terqm

呵呵....大侠你误解我的意思了.....我的意思是说"EXCEL不断的重算.和不断地读取某一单元格"这个过程循环120万次.而不是单纯了For   i = 1 to  1200000
                       j=j+1
                  next
这样的过程,正如你加大步长,使   "EXCEL不断的重算.和不断地读取某一单元格"    这一过程次数减少   ,使得速度就快.

灰袍法师

嗯，楼主的第二次循环是不必要的

第一次循环算出最佳的奖金，那么每月工资 X = ( 总金额－奖金总额) / 12 即可

如果要发放整数工资，那么分别算一下 int(X) 和 roundup(X) 看哪个较好即可

terqm

虽然看不懂,但这种单变量求最大值 用规划求解应该可以的.若然真的要用代码写的话,就得把所有的关系用代码表示,那样才有更好的速度

wangtx218

原帖由 灰袍法师 于 2010-11-1 20:39 发表
嗯，楼主的第二次循环是不必要的

第一次循环算出最佳的奖金，那么每月工资 X = ( 总金额－奖金总额) / 12 即可

如果要发放整数工资，那么分别算一下 int(X) 和 roundup(X) 看哪个较好即可

主要是看，有几种算法，如一年收入：1、66000=4000*12+18000；2、66000=3500*12+24000
第一个方案最佳：税交最少，月收入最大！