赋值ABCD-求助修改

准提部林

熊文来 发表于 2022-5-11 12:08
确实，规则变了，一切都得重新，那就辛苦您了！

只要改副程序即可//
A抓20%
A20%+B30% 抓50%--減去上面人數
A20%+B30%+C30% 抓80%--減去上面人數

Sub GetLrgV(X As Range, Y&, Zrr)
Dim Vn, Cn&, S&
ReDim LG(UBound(Zrr))
For i = 1 To UBound(Zrr) - 1
    S = S + Y * Zrr(i, 2)
    Vn = Application.Large(X, S)
    LG(i) = Vn
    If S >= Y Then Exit For
Next i
End Sub

熊文来

准提部林 发表于 2022-5-11 13:45
只要改副程序即可//
A抓20%
A20%+B30% 抓50%--減去上面人數

大师，我试试了，你的代码和函数得到的结果不一样。

但是理论上你的结果是正确的。

熊文来

准提部林 发表于 2022-5-11 13:45
只要改副程序即可//
A抓20%
A20%+B30% 抓50%--減去上面人數

我试了下 您的代码，还是您的代码正确，函数出了点问题 就是 5年级那里的 出现小数时，四舍五入时，全部用的是入，结果导致了一点点不对。

熊文来

准提部林 发表于 2022-5-11 13:45
只要改副程序即可//
A抓20%
A20%+B30% 抓50%--減去上面人數

我自己核对了下数据，你的代码的到的结果和函数得到的结果不同，当年级总人数乘以比例得到小数时，你的代码是四舍五入，而函数全部都是入。

两种方法真好。看领导最终决定用哪一种。

感谢您的帮助！

准提部林

熊文来 发表于 2022-5-12 11:23
我自己核对了下数据，你的代码的到的结果和函数得到的结果不同，当年级总人数乘以比例得到小数时，你的代 ...

唉! 要會自己學變通, 不是小問題都無法自行排解~~
S = S + Application.Round(Y * Zrr(i, 2), 0)
S = S + Application.Roundup(Y * Zrr(i, 2), 0)
S = S + Application.Rounddown(Y * Zrr(i, 2), 0)

三擇一

熊文来

liulang0808 发表于 2022-5-9 07:58
Sub test()
    Set d = CreateObject("scripting.dictionary")
    Set dd = CreateObject("scripting.d ...

https://club.excelhome.net/thread-1644427-1-1.html

大师 帮我看看这个文件 行吗？