赋值ABCD-求助修改

准提部林

熊文来 发表于 2022-5-10 11:00
谢谢 这个我运行了下 5个等级可以 3个等级不行

我从昨晚开始 就在看你的代码 我实在不懂代码 只能在你 ...

28樓附件仔細看,
已不用switch了, 變動元素數量, 不適用~~

准提部林

熊文来 发表于 2022-5-10 11:00
谢谢 这个我运行了下 5个等级可以 3个等级不行

我从昨晚开始 就在看你的代码 我实在不懂代码 只能在你 ...

看起來沒錯!!!
我這裡也改成一樣, 進行ok

熊文来

准提部林 发表于 2022-5-10 11:03
28樓附件仔細看,
已不用switch了, 變動元素數量, 不適用~~

大师，28的的附件 5个等级就能运行  我把D和E等级删了，把比例改了，运行报错

准提部林

熊文来 发表于 2022-5-10 11:18
大师，28的的附件 5个等级就能运行  我把D和E等级删了，把比例改了，运行报错

Drr = [y2:z6]  這個範圍要改
比率也要正確

准提部林

Drr = Range([y2], [z600].End(3))

自動抓範圍吧!

熊文来

准提部林 发表于 2022-5-10 11:40
Drr = Range([y2], [z600].End(3))

自動抓範圍吧!

确实这个更佳  成功了 完美

熊文来

准提部林 发表于 2022-5-10 11:40
Drr = Range([y2], [z600].End(3))

自動抓範圍吧!

大师，现在情况有点变化。可否帮我再改改。谢谢！


结果描述：以一年级举例说明                                               
按照原始设定人数：20%（A等级）+30%（B等级）=188+282=470                                               
                                               
实际中是A等级235人+B等级266人=501人，已经满足大于或等于原始设定的人数470人，这样就可以了，

不用像之前那样还要满足B等级要>=282人，所以这2个公式的做法是正确的。



还是要麻烦您借助之前VBA的方法，按照上面的要求写个代码完成第二张工作表【九科赋等级】。


谢谢！

准提部林

熊文来 发表于 2022-5-10 23:15
大师，现在情况有点变化。可否帮我再改改。谢谢！

改變這規則, 等於推翻之前的所有算法(包括原來的代碼),
再想想看~~

准提部林

熊文来 发表于 2022-5-10 23:15
大师，现在情况有点变化。可否帮我再改改。谢谢！

是不是等于上一級多出來的人, 要擠掉下一級的應有人數???
A=188 取235 多了47人
那就 B=282-47
只要A+B=470 + 再加該級最低分同分人數, 即可
想清楚再說, 免得做白工~~

如果公式是正確的, 就用公式! 請給你公式的大大幫你完善9個科目吧!

熊文来

准提部林 发表于 2022-5-11 11:21
改變這規則, 等於推翻之前的所有算法(包括原來的代碼),
再想想看~~

确实，规则变了，一切都得重新，那就辛苦您了！