ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
数据管理利器Foxtable2022下载 Excel 2019函数公式学习大典 不用妈妈陪默写神器 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 394|回复: 20

[求助] 路过大神请帮忙提高运行速度

[复制链接]

TA的精华主题

TA的得分主题

发表于 2023-11-20 11:10 | 显示全部楼层 |阅读模式
路过大神请帮忙提高运行速度(数据多运行速度太慢了,目前运行时间需要30分钟)。

新建文件夹.rar

306 KB, 下载次数: 33

TA的精华主题

TA的得分主题

发表于 2023-11-20 11:15 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
也不慢啊,几秒就完了

TA的精华主题

TA的得分主题

发表于 2023-11-20 11:26 | 显示全部楼层
建议:
1、holiday函数干脆用数值进行判断,通过fortmat转换类型会加大工作量。当然前提是日历字典的定义也用数值。
2、工序函数里两列的输出用数组。

TA的精华主题

TA的得分主题

发表于 2023-11-20 11:38 | 显示全部楼层

用公式就可以了。先做一个日历副本,把上班的日期筛选出来,休息日期不要,E4用下面公式,其它的类推。
记得要保证开工时间是上班日期,2022年的日期也要加上,否则是会出错的。


  1. =INDEX(日历副本!$A:$A,MATCH(D4,日历副本!$A$2:$A$175,1)+$E$1+1)
复制代码

TA的精华主题

TA的得分主题

发表于 2023-11-20 11:51 | 显示全部楼层
下面高亮处没问题吧?
Sub 工序(s, e, ad)
    's:开始时间所在列索引号
    'e:计划完工时间所在列索引号
    'ad:加减天数
    For i = 4 To UBound(arr)
        If Len(arr(i, s)) = 0 Then
            arr(i, e) = Empty
        Else
            arr(i, e) = arr(i, s) + arr(1, e) + ad
            arr(i, e) = holiday(arr(i, s), arr(i, e), 1)
            Cells(i, e) = arr(i, e)
        End If

        If Len(arr(i, e)) And Len(arr(i, e + 1)) Then
            arr(i, e + 2) = arr(i, e + 1) - arr(i, e)
            arr(i, e + 2) = holiday(arr(i, e), arr(i, e + 1), -1) - arr(i, e)
            Cells(i, e + 2) = arr(i, e + 2)
        Else
            Cells(i, e + 2) = Empty
        End If
    Next i
End Sub

TA的精华主题

TA的得分主题

发表于 2023-11-20 11:58 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
代码中高亮行,其实不起作用,被下一行覆盖了。
Sub 工序(s, e, ad)
    's:开始时间所在列索引号
    'e:计划完工时间所在列索引号
    'ad:加减天数
    For i = 4 To UBound(arr)
        If Len(arr(i, s)) = 0 Then
            arr(i, e) = Empty
        Else
            arr(i, e) = arr(i, s) + arr(1, e) + ad
            arr(i, e) = holiday(arr(i, s), arr(i, e), 1)
            Cells(i, e) = arr(i, e)
        End If
        
        If Len(arr(i, e)) And Len(arr(i, e + 1)) Then
            arr(i, e + 2) = arr(i, e + 1) - arr(i, e)
            arr(i, e + 2) = holiday(arr(i, e), arr(i, e + 1), -1) - arr(i, e)
            Cells(i, e + 2) = arr(i, e + 2)
        Else
            Cells(i, e + 2) = Empty
        End If
    Next i
End Sub

TA的精华主题

TA的得分主题

发表于 2023-11-20 11:58 | 显示全部楼层
用cells()速度当然慢了,建议改用纯数组方式解决,如果这个代码不是你写的话,那就找系铃人解决

TA的精华主题

TA的得分主题

发表于 2023-11-20 12:36 | 显示全部楼层
已按10楼要求修改代码,请测试。

gzclc_提高运行速度.rar

163.77 KB, 下载次数: 25

评分

参与人数 1鲜花 +2 收起 理由
gzclc + 2 优秀作品

查看全部评分

TA的精华主题

TA的得分主题

发表于 2023-11-20 16:30 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-11-21 00:20 | 显示全部楼层
山菊花 发表于 2023-11-20 12:36
改为数组写入工作表,请测试。

膜拜大神,测试速度超快。改用二条数据验证,计算结果错误较多(详见附件蓝底单元格及标注说明),请教问题出在那?

提高运行速度.rar

160.55 KB, 下载次数: 4

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2023-12-9 03:45 , Processed in 0.059440 second(s), 19 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表