excel中点击按钮,完成如下工作: 1、将输出工作表“已运行时间”列清零 2、根据输出工作表中的“模具号”列中填写的模具号对当前工作表中相对应的模具号的开始时间和结束时间,判断其是否满足“结束时间>开始时间>输出工作表的维护日期“,如是,则将”结束时间-开始时间“累加到输出工作表对应模具号的”已运行时间“,如不是,跳过

时间: 2024-04-13 17:27:51 浏览: 5
以下是实现你描述的功能的一个示例VBA宏代码: ```vba Sub ProcessData() Dim startTime As Date Dim endTime As Date Dim maintenanceDate As Date Dim runTime As Double Dim moldNumber As String ' 清空输出工作表的“已运行时间”列 Sheets("输出工作表").Range("已运行时间").ClearContents ' 遍历当前工作表中的每一行 For i = 2 To Sheets("当前工作表").Cells(Rows.Count, 1).End(xlUp).Row ' 获取当前行的模具号、开始时间和结束时间 moldNumber = Sheets("当前工作表").Cells(i, "A").Value startTime = Sheets("当前工作表").Cells(i, "B").Value endTime = Sheets("当前工作表").Cells(i, "C").Value ' 在输出工作表中找到对应模具号的维护日期 maintenanceDate = Application.VLookup(moldNumber, Sheets("输出工作表").Range("模具号和维护日期"), 2, False) ' 判断结束时间>开始时间>维护日期 If endTime > startTime And startTime > maintenanceDate Then ' 累加运行时间到输出工作表中对应模具号的“已运行时间” runTime = Sheets("输出工作表").Range("已运行时间").Find(moldNumber).Offset(0, 1).Value runTime = runTime + (endTime - startTime) Sheets("输出工作表").Range("已运行时间").Find(moldNumber).Offset(0, 1).Value = runTime End If Next i End Sub ``` 请根据你的实际需求修改以下内容: - 将 "输出工作表" 和 "当前工作表" 替换为你实际使用的工作表名称。 - 将 "已运行时间"、"模具号和维护日期"、"模具号" 替换为你实际使用的列范围或列名称。 然后,在宏编辑器中保存宏,将其关联到按钮,点击按钮时将执行这段代码。这段代码将会完成你描述的任务:清空输出工作表的已运行时间列,并根据当前工作表中模具号对应的开始时间和结束时间判断是否满足条件,并将累计的运行时间写入输出工作表对应模具号的已运行时间列。

相关推荐

最新推荐

recommend-type

微机接口综合秒表实验实验报告

综合秒表实验通过8254来进行计时功能,然后通过8255控制七段数码管的实现,并且通过8259实现中断功能。并实现了暂停和清零功能。包括连接线路方式。
recommend-type

PIC18F27_47Q10中文数据手册.pdf

28/40/44 引脚低功耗高性能单片机 说明 PIC18F27/47Q10 单片机具有模拟...– 在看门狗清零事件间隔时间过长或过短时发生看门狗复位 – 可变预分频比选择 – 可变窗口大小选择 – 可在硬件或软件中配置所有触发源
recommend-type

兄弟DCP9020CDN MFC9140CDN MFC9340CDW系列中文维修手册.pdf

兄弟DCP9020CDN MFC9140CDN MFC9340CDW系列中文维修手册 拆机 清零 维修必备
recommend-type

佳能打印机MG7780 ix6880MG7580MG5680 MG3680IX6780清零软件教程

佳能打印机MG7780 ix6880MG7580MG5680 MG3680IX6780清零软件教程
recommend-type

兄弟 HL-5595DN 5590DN 5585D 5580D 打印机中文维修手册

兄弟 HL-5595DN 5590DN 5585D 5580D 打印机中文维修手册
recommend-type

RTL8188FU-Linux-v5.7.4.2-36687.20200602.tar(20765).gz

REALTEK 8188FTV 8188eus 8188etv linux驱动程序稳定版本, 支持AP,STA 以及AP+STA 共存模式。 稳定支持linux4.0以上内核。
recommend-type

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire
recommend-type

实现实时数据湖架构:Kafka与Hive集成

![实现实时数据湖架构:Kafka与Hive集成](https://img-blog.csdnimg.cn/img_convert/10eb2e6972b3b6086286fc64c0b3ee41.jpeg) # 1. 实时数据湖架构概述** 实时数据湖是一种现代数据管理架构,它允许企业以低延迟的方式收集、存储和处理大量数据。与传统数据仓库不同,实时数据湖不依赖于预先定义的模式,而是采用灵活的架构,可以处理各种数据类型和格式。这种架构为企业提供了以下优势: - **实时洞察:**实时数据湖允许企业访问最新的数据,从而做出更明智的决策。 - **数据民主化:**实时数据湖使各种利益相关者都可
recommend-type

去除字符串s="ab23cde"中的数字,构成一个新的字符串"abcde"。

可以使用正则表达式来匹配并替换字符串中的数字: ```python import re s = "ab23cde" new_s = re.sub(r'\d+', '', s) print(new_s) # 输出:abcde ``` 其中,`\d` 表示匹配数字,`+` 表示匹配一个或多个数字,`re.sub()` 函数用来替换匹配到的数字为空字符串。
recommend-type

c++校园超市商品信息管理系统课程设计说明书(含源代码) (2).pdf

校园超市商品信息管理系统课程设计旨在帮助学生深入理解程序设计的基础知识,同时锻炼他们的实际操作能力。通过设计和实现一个校园超市商品信息管理系统,学生掌握了如何利用计算机科学与技术知识解决实际问题的能力。在课程设计过程中,学生需要对超市商品和销售员的关系进行有效管理,使系统功能更全面、实用,从而提高用户体验和便利性。 学生在课程设计过程中展现了积极的学习态度和纪律,没有缺勤情况,演示过程流畅且作品具有很强的使用价值。设计报告完整详细,展现了对问题的深入思考和解决能力。在答辩环节中,学生能够自信地回答问题,展示出扎实的专业知识和逻辑思维能力。教师对学生的表现予以肯定,认为学生在课程设计中表现出色,值得称赞。 整个课程设计过程包括平时成绩、报告成绩和演示与答辩成绩三个部分,其中平时表现占比20%,报告成绩占比40%,演示与答辩成绩占比40%。通过这三个部分的综合评定,最终为学生总成绩提供参考。总评分以百分制计算,全面评估学生在课程设计中的各项表现,最终为学生提供综合评价和反馈意见。 通过校园超市商品信息管理系统课程设计,学生不仅提升了对程序设计基础知识的理解与应用能力,同时也增强了团队协作和沟通能力。这一过程旨在培养学生综合运用技术解决问题的能力,为其未来的专业发展打下坚实基础。学生在进行校园超市商品信息管理系统课程设计过程中,不仅获得了理论知识的提升,同时也锻炼了实践能力和创新思维,为其未来的职业发展奠定了坚实基础。 校园超市商品信息管理系统课程设计的目的在于促进学生对程序设计基础知识的深入理解与掌握,同时培养学生解决实际问题的能力。通过对系统功能和用户需求的全面考量,学生设计了一个实用、高效的校园超市商品信息管理系统,为用户提供了更便捷、更高效的管理和使用体验。 综上所述,校园超市商品信息管理系统课程设计是一项旨在提升学生综合能力和实践技能的重要教学活动。通过此次设计,学生不仅深化了对程序设计基础知识的理解,还培养了解决实际问题的能力和团队合作精神。这一过程将为学生未来的专业发展提供坚实基础,使其在实际工作中能够胜任更多挑战。