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

wangtx218 · 发表于 2010-10-29 12:20

前几天，工作中需求年收益最大化，根据经验，编制了年收益计算表（求最大）。

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

请老朋友，新朋友指正！

密码：wangtx218

在灰袍法师帮助下，代码改了好一点：

[ 本帖最后由 wangtx218 于 2010-11-2 05:59 编辑 ]

Admin · 发表于 2010-10-30 12:30

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。

为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

wangtx218 · 发表于 2010-10-30 12:43

原帖由 Admin 于 2010-10-30 12:30 发表

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以 ...

不是讨论，是经验分享，这么好的贴子，这么没人顶呢？

灰袍法师 · 发表于 2010-10-30 20:21

我来顶，不过主要目的是打击楼主，呵呵呵。

楼主的表格很漂亮详细，而且这种程序很有使用价值，建议标题加上最优，最低所得税之类吸引人的字眼

这个程序的缺点是：速度慢到无法忍受，原因是以下代码大量操作单元格
For i = 0 To 1200000 Step 10
。。。。。。这中间一大堆单元格计算
End Sub

最后，加了工作表保护，VBA密码，虽然楼主提供了密码，但是还是给别人阅读造成麻烦，建议在上传时去掉，给用户使用才加。

下面是一个类似的问题，不过由于没有涉及四金计算，所以算出的结果必定跟楼主不同，仅供参考

其实楼主可以把以下附件跟自己的计算表格结合，只需要把总收入，以及公式计算后的实际总收入，分别放到对应的单元格即可
http://club.excelhome.net/viewth ... p;page=2#pid4356447

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

wangtx218 · 发表于 2010-10-31 04:36

原帖由 灰袍法师 于 2010-10-30 20:21 发表
我来顶，不过主要目的是打击楼主，呵呵呵。

楼主的表格很漂亮详细，而且这种程序很有使用价值，建议标题加上最优，最低所得税之类吸引人的字眼

这个程序的缺点是：速度慢到无法忍受，原因是以下代码大量操作单 ...

谢谢，这题不用VBA ，用函数（实际工作中用函数），如朋友是代码大师，请帮忙优化，再次谢你！

另：去除四金后，结果应一致。假定按你说的不考虑四金，49.8万，应交多少税（最小），
应得多少薪（最大）。

我的结果：498000(一年收入)-89925(个人调节税)=408075(实得收入)

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

灰袍法师 · 发表于 2010-10-31 05:49

哦，那么是我误会了

楼主原来使用了VBA和公式两种方法去做

用公式的话，绝对比我上面的链接更高速

用VBA加速其实意义不大，因为大量公式计算还是比VBA里面读写多个单元格要快的

另外，通过对比楼主的计算表格，发现我上面的链接，其计算方式是错误的，请大家留意了。

楼主才是正确的。

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

枫桥夜泊lwb · 发表于 2010-10-31 07:22

楼主VBA计算速度慢啊

wangtx218 · 发表于 2010-10-31 09:20

原帖由 枫桥夜泊lwb 于 2010-10-31 07:22 发表
楼主VBA计算速度慢啊

你能否使他快点！

wangtx218 · 发表于 2010-10-31 17:25

原帖由 枫桥夜泊lwb 于 2010-10-31 07:22 发表
楼主VBA计算速度慢啊

我改了一下代码,还不是最优.

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

灰袍法师 · 发表于 2010-10-31 17:40

原帖由 wangtx218 于 2010-10-31 17:25 发表

我改了一下代码,还不是最优.
816523

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

If [L3] > Max Then
   Max = [L3]: MM = i
End If
If [B3] < 0 Then
   [F3] = MM
   Exit For
End If

step太大我也有点不放心

其实这种问题最快速做法是计算出所有数值的最佳，然后直接查表即可。

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

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

〖Excel Home友情提示〗

回复 1楼 wangtx218 的帖子