请老师优化一下导入模版代码速度

wcj6376tcp

ykcbf1100 发表于 2024-2-3 16:45
你的意思是有增项？

12月的绩效工资=基础绩效+奖励绩效+奖励工资，应该这样对吧
       If yf = 12 Then
        brr(m, ar(6)) = brr(m, ar(6)) + arr(i, 13) + arr(i, 16) '//绩效工资=基础绩效+奖励绩效+奖励性工资
        Else
        brr(m, ar(6)) = brr(m, ar(6)) + arr(i, 13)  '//绩效工资=基础绩效+奖励绩效
        End If

ykcbf1100

wcj6376tcp 发表于 2024-2-3 16:52
12月的绩效工资=基础绩效+奖励绩效+奖励工资，应该这样对吧
       If yf = 12 Then
        brr(m, ar ...

不用管12月份，直接改这一句就行了：brr(m, ar(6)) = brr(m, ar(6)) + arr(i, 13) + arr(i, 16)

ykcbf1100

wcj6376tcp 发表于 2024-2-3 16:33
太快了，0点几秒，我以前的要几十秒，老师太牛了，12月要加奖励性的直接添加判断就行吗？

用数组速度就快

wcj6376tcp

ykcbf1100 发表于 2024-2-3 18:13
不用管12月份，直接改这一句就行了：brr(m, ar(6)) = brr(m, ar(6)) + arr(i, 13) + arr(i, 16)

收到，对数组不熟悉，谢谢

ykcbf1100

wcj6376tcp 发表于 2024-2-3 18:48
收到，对数组不熟悉，谢谢

字典+数组你一定要学起来，这二个是处理数据最重要的工具。

wcj6376tcp

ykcbf1100 发表于 2024-2-3 18:57
字典+数组你一定要学起来，这二个是处理数据最重要的工具。

老师，现在有出了新的问题，其实真实的数据是因为退休或者新进，每个月人数和人名不一定相同，现在人数少的月份会多几行？

ykcbf1100

wcj6376tcp 发表于 2024-2-3 20:18
老师，现在有出了新的问题，其实真实的数据是因为退休或者新进，每个月人数和人名不一定相同，现在人数少 ...

上传附件。

wcj6376tcp

附件一样的，你任意月删除几行或者增加几行不同的人名即可，

   ReDim brr(1 To UBound(arr), 1 To 100)
    ar = [{1,2,3,8,9,10,12,15,17,25,33,40,41,42,43,44,45,50,51}]   '//sh表取值列号，这里的100和下面的99 能不能不写死了，好任意扩展人数？
    br = [{3,99,34,8,7,12,11,15,14,9,10,18,22,20,23,17,19,24,21}]  '//sh表取值列号对应的月份表相应列号

ykcbf1100

wcj6376tcp 发表于 2024-2-3 20:41
附件一样的，你任意月删除几行或者增加几行不同的人名即可，

   ReDim brr(1 To UBound(arr), 1 To 100) ...

这里的100和99和你扩充人数没有任何关系。
你月份表中增加或减少人员，代码不用改的。
算了，代码再加个判断吧。

wcj6376tcp

ykcbf1100 发表于 2024-2-3 20:46
这里的100和99和你扩充人数没有任何关系。
你月份表中增加或减少人员，代码不用改的。
算了，代码再加 ...

这下OK了，谢谢br没有搞懂具体意思