路过大神请帮忙提高运行速度

titi012

1. Sub text()
   
2. 
   
3. Dim StarTime As Date
   
4. StarTime = Timer
   
5. 
   
6. Dim Wk As Workbook
   
7. Dim aSh As Worksheet, bSh As Worksheet
   
8. Dim Arr, Brr(), xBrr
   
9. Dim x%, y%, i%, j%, N%, R%, C%, aRow%
   
10. 
    
11. Set Wk = ThisWorkbook
    
12. Set aSh = Wk.Sheets("日期自动计算")
    
13. Set bSh = Wk.Sheets("工厂日历")
    
14. aRow = aSh.Cells(Rows.Count, 4).End(xlUp).Row
    
15. Arr = aSh.Range("D1:S" & aRow).Value
    
16. xBrr = bSh.Range("a1").CurrentRegion.Value
    
17. 
    
18. ReDim Brr(1 To UBound(xBrr))
    
19. For x = 2 To UBound(xBrr)
    
20.     If xBrr(x, 2) Like "班" Then N = N + 1: Brr(N) = xBrr(x, 1)
    
21. Next x
    
22. 
    
23. For x = 4 To aRow
    
24.     If Arr(x, 1) <> "" Then
    
25.         For y = 1 To N
    
26.             If Arr(x, 1) <= Brr(y) Then
    
27.                 R = y
    
28.                 Exit For
    
29.             End If
    
30.         Next y
    
31.         Arr(x, 2) = Brr(R + Arr(1, 2) - 1)
    
32.         If Arr(x, 3) <> "" Then Arr(x, 4) = Arr(x, 3) - Arr(x, 2)
    
33.         For j = 1 To 4
    
34.             C = j * 3 + 2
    
35.             If Arr(x, C - 2) <> "" Then
    
36.                 For y = 1 To N
    
37.                     If Arr(x, C - 2) <= Brr(y) Then
    
38.                         R = y
    
39.                         Exit For
    
40.                     End If
    
41.                 Next y
    
42.                 Arr(x, C) = Brr(R + Arr(1, C))
    
43.                 If Arr(x, C + 1) <> "" Then Arr(x, C + 2) = Arr(x, C + 1) - Arr(x, C)
    
44.             End If
    
45.         Next j
    
46.     End If
    
47. Next x
    
48. 
    
49. aSh.Range("D1:S" & aRow) = Arr
    
50. MsgBox "OK,用时" & Format(Timer - StarTime, "0.0000") & "秒."
    
51. 
    
52. End Sub
    

复制代码

我的电脑0.5秒多一点就可以完成了。
但留意日历表要有完整的日期，否则出错。

gzclc

titi012 发表于 2023-11-21 11:03
我的电脑0.5秒多一点就可以完成了。
但留意日历表要有完整的日期，否则出错。

谢谢titi012大神，用数据测试运行速度很快，但有个别地方错误（G6、J6、J7，蓝底，说明见批注），请教是什么原因呢？

山菊花

gzclc 发表于 2023-11-21 00:20
膜拜大神，测试速度超快。改用二条数据验证，计算结果错误较多（详见附件蓝底单元格及标注说明），请教问 ...

楼上附件已更新，请重新下载测试。

titi012

gzclc 发表于 2023-11-21 11:55
谢谢titi012大神，用数据测试运行速度很快，但有个别地方错误（G6、J6、J7，蓝底，说明见批注），请教是 ...

我的计算方法不合要求，是直接减去前面日期的，没有减去中间的休息日期，这里要修改一下的。

gzclc

titi012 发表于 2023-11-21 16:55
我的计算方法不合要求，是直接减去前面日期的，没有减去中间的休息日期，这里要修改一下的。

titi012大神,如何修改，我是新手，请帮忙解决，非常感谢。

gzclc

山菊花 发表于 2023-11-21 16:16
楼上附件已更新，请重新下载测试。

谢谢总版主，总版主辛苦了。
用数据测试日期已正确，但工序时长存在错误（由于直接相减，没有核减节休息日，出现错误，见表格中的G6、J6、J7，正确得数应该为1天、6天、1天）。如何修改？谢谢！

山菊花

对规则理解不是很透彻。
再次更新，请重新测试。

sunya_0529

有两个小问题跟楼主确认一下——


1、D列开工时间里，有日期在“工厂日历”中是休假的，如85行，2023-1-7，在计算计算完成日期时，应该要顺延的吧，如下截图是原程序生成的结果，我认为E85的结果应该是“2023-1-9”；


2、“实际完工日期”-“计划完工日期”求的应该是“交期达成情况”吧（正数为延迟，负数为提前完成）？

sunya_0529

用WPS里的JSA练习一下，数组速度还是很快的，不到0.1秒~

一直都在zz

试试这个行不行