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

wcj6376tcp

汇总在ykcbf1100老师的代码下修改了，速度杠杠的，请老师再优化一下一体化导入模版代码速度，类似的有很多，但位置不同，希望能加上注释，我好修改取值

wcj6376tcp

麻烦看看能不能关闭打开时的提示

ykcbf1100

我看一下。

从哪里导入，是汇总表吗？

ykcbf1100

你这代码我看着眼晕，我看看能不能新写一个。

wcj6376tcp

ykcbf1100 发表于 2024-2-3 15:39
你这代码我看着眼晕，我看看能不能新写一个。

指定月的工资数据里面去填入模板里对应的位置

wcj6376tcp

ykcbf1100 发表于 2024-2-3 15:33
我看一下。

从哪里导入，是汇总表吗？

比如岗位工资就要找到模板里面的岗位位置，

ykcbf1100

只写了工资导入部分，工资表另存没写，这个你自己会。

速度比你自己写的快太多了。

ykcbf1100

代码测试通过。。。

1. Sub ykcbf()  '//2024.2.3   一体化导入工资表
   
2.     Application.ScreenUpdating = False
   
3.     yf = Val(InputBox("请输入要生成一体化工资导入表月份：", "输入月份数...", 2))
   
4.     If yf = 0 Then Exit Sub
   
5.     Dim tm: tm = Timer
   
6.     On Error Resume Next
   
7.     Set Sh = Sheets(CStr(yf))
   
8.     arr = Sh.UsedRange
   
9.     ReDim brr(1 To UBound(arr), 1 To 100)
   
10.     ar = [{1,2,3,8,9,10,12,15,17,25,33,40,41,42,43,44,45,50,51}]   '//sh表取值列号
    
11.     br = [{3,99,34,8,7,12,11,15,14,9,10,18,22,20,23,17,19,24,21}]  '//sh表取值列号对应的月份表相应列号
    
12.     For i = 5 To UBound(arr)
    
13.         m = m + 1
    
14.         For x = 1 To UBound(ar)
    
15.             brr(m, ar(x)) = arr(i, br(x))
    
16.         Next
    
17.         brr(m, 2) = "1-居民身份证"
    
18.         brr(m, ar(6)) = brr(m, ar(6)) + arr(i, 13)  '//绩效工资=基础绩效+奖励绩效
    
19.     Next
    
20.     With Sheets("一体化导入工资表")
    
21.         .UsedRange.Offset(3).Clear
    
22.         .Columns(3).NumberFormatLocal = "@"
    
23.         .[a4].Resize(m, 52) = brr
    
24.         .[a4].Resize(m, 52).Borders.LineStyle = 1
    
25.     End With
    
26.     Application.ScreenUpdating = True
    
27.     MsgBox "共用时：" & Format(Timer - tm) & "秒！"
    
28. End Sub
    

复制代码

wcj6376tcp

ykcbf1100 发表于 2024-2-3 16:23
只写了工资导入部分，工资表另存没写，这个你自己会。

速度比你自己写的快太多了。

太快了，0点几秒，我以前的要几十秒，老师太牛了，12月要加奖励性的直接添加判断就行吗？

ykcbf1100

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

你的意思是有增项？