用for计算太慢,求更快的代码,谢谢.

nnwyl

姓名	销售额	提成比例6%	出差补助1%
某某1	250000	15000	2500
某某2	250000	15000	2500
某某3	250000	15000	2500
某某4	250000	15000	2500
某某5	250000	15000	2500
某某6	250000	15000	2500
某某7	250000	15000	2500
某某8	250000	15000	2500
某某9	250000	15000	2500
某某10	250000	15000	2500
某某11	250000	15000	2500
某某12	250000	15000	2500
某某13	250000	15000	2500
某某14	250000	15000	2500
某某15	250000	15000	2500
某某16	250000	15000	2500
某某17	250000	15000	2500
某某18	250000	15000	2500
某某19	250000	15000	2500
某某20	250000	15000	2500
某某21	250000	15000	2500
某某22	250000	15000	2500
某某23	250000	15000	2500
某某24	250000	15000	2500
某某25	250000	15000	2500
某某26	250000	15000	2500
某某27	250000	15000	2500
某某28	250000	15000	2500

求助:用VBA算出提成比例/出差补助,用FOR太慢,能否用字典法来计算.提成比例按销售额的6%,出差补助为销售额的1%

xiangbaoan

Sub test() '数组 0.01秒慢不?
Dim ar, r&
ar = [a2].CurrentRegion
For r = 2 To UBound(ar)
    ar(r, 3) = ar(r, 2) * 0.06
    ar(r, 4) = ar(r, 2) * 0.01
Next
[a2].CurrentRegion = ar
End Sub

lsc900707

你告诉你字典法就不要循环的？

zhang6029

哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈

forverd

字典的速度还没有数组快

nnwyl

xiangbaoan 发表于 2018-9-19 03:00
Sub test() '数组 0.01秒慢不?
Dim ar, r&
ar = [a2].CurrentRegion

谢谢大师,我试看

microyip

SQL语句一句搞掂

1. Select [姓名],[提成比例6%]*0.06,[出差补助1%]*0.01 From [Sheet1$]

复制代码