一种利用ExcelVBA对汇流排使用进行计算和管理的方法技术

本发明专利技术涉及一种利用ExcelVBA对汇流排使用进行计算和管理的方法，S1：在Excel分别建立录入参数、计算结果、汇流排使用和库存管理工作表；S2：在Excel的VisualBasic编辑区中建立模块；S3：在计算结果工作表中建立命令按钮控件；S4：在步骤S1建立的录入参数工作表中录入零部件参数、相关技术参数及现场测量跨距，通过触发步骤S2中建立的各个命令按钮控件实现相应汇流排计算、汇流排调用、汇流排出入库管理功能。本发明专利技术的方法能够完成刚性接触网汇流排安装的自动化计算，一方面，使计算效率大幅提高，减轻了计算人员的工作强度。另一方面，自动调配短汇流排使用减少了施工浪费材料的现象。并且，根据计算结果自动整理台账避免了人为发生的记录错误，便于汇流排的使用管理。

【技术实现步骤摘要】
一种利用ExcelVBA对汇流排使用进行计算和管理的方法
本专利技术涉及城市轨道交通刚性接触网汇流排安装
，具体涉及一种利用ExcelVBA对汇流排使用进行计算和管理的方法。
技术介绍
在城市轨道交通刚性接触网的悬挂支持装置一个锚段安装完成后，需对此刚性悬挂锚段实际各跨距和锚段关节长度进行测量符合，并计算出汇流排总长度，根距总长度计算整锚段汇流排根数和短汇流排长度，计算流排时，汇流排的中间接头尽量远离跨中靠近悬挂点同，以尽量减小其跨中的弛度并防止定位线夹卡滞，计算完成后，统计所需不短汇流排长度并与现有符合长度要求短汇流排进行调配使用，减少材料浪费。
技术实现思路
本专利技术的目的是为解决上述技术问题的不足，提供一种利用ExcelVBA对汇流排使用进行计算和管理的方法。本专利技术为解决上述技术问题的不足，所采用的技术方案是：一种利用ExcelVBA对汇流排使用进行计算和管理的方法，包括以下步骤：S1：在Excel分别建立录入参数、计算结果、汇流排使用和库存管理工作表；在录入参数工作表中设置计算条件区域和现场测量区域；在计算结果作表中设置汇流排布置区域和汇流排布置总结区域；在汇流排使用工作表中设置短汇流排来源区域和剩余短汇流排区域；在库存管理工作表设置短汇流排库存区域和整根汇流排库存区域；S2：在Excel的VisualBasic编辑区中分别建立以下模块：建立“汇流排计算模块”，计算短汇流排长度及使用位置；建立“汇流排使用模块”，进行汇流排调配使用、减少短汇流排产生；建立“汇流排后期使用模块”，进行汇流排调配使用、减少整体汇流排的使用；建立“汇流排人工调整模块”，在施工人员想预留部分短汇流排不想调用时使用整根汇流排代替；建立“汇流排出入库模块”，对减去库存内需使用的整根汇流排和短汇流排、加上需入库的整根汇流排和短汇流排；S3：在计算结果工作表中建立以下命令按钮控件：建立“汇流排计算”命令按钮控件，该命令按钮控件调用步骤S2中“汇流排计算模块”；建立“汇流排使用”命令按钮控件，该命令按钮控件调用步骤S2中“汇流排使用模块”；建立“汇流排后期使用”命令按钮控件，该命令按钮控件调用步骤S2中“汇流排后期使用模块”；建立“人工调整”命令按钮控件，该命令按钮控件调用步骤S2中“汇流排人工调整模块”；在库存管理工作表中建立“出入库”命令按钮控件，该命令按钮控件调用步骤S2中“汇流排出入库模块”；S4：在步骤S1建立的录入参数工作表中录入零部件参数、相关技术参数及现场测量跨距，通过触发步骤S2中建立的各个命令按钮控件实现相应汇流排计算、汇流排调用、汇流排出入库管理功能。作为本专利技术一种利用ExcelVBA对汇流排使用进行计算和管理的方法的进一步优化：所述步骤S4中录入的零部件参数及相关技术参数具体包括XXXX。作为本专利技术一种利用ExcelVBA对汇流排使用进行计算和管理的方法的进一步优化：所述步骤S4中录入的现场测量跨距包括锚段号、跨距以及锚段长度。作为本专利技术一种利用ExcelVBA对汇流排使用进行计算和管理的方法的进一步优化：所述步骤S4中汇流排计算功能的实现方法为：在计算结果工作表中触发“汇流排计算”命令按钮控件，系统自动删除以往计算结果，显示此次汇流排计算的布置结果，并统计使用汇流排的总根数和短汇流排位置。作为本专利技术一种利用ExcelVBA对汇流排使用进行计算和管理的方法的进一步优化：汇流排计算的具体步骤包括：1)、重置计算结果工作表，删除以往结果；2)、读取正在计算行测量区域信息，如测量信息为空，不进行计算，读取下一行信息直至100008行读取完成程序结束，如数据不为空，填写锚段号进入下一步进行汇流排运算；3)、建立数组1、数组3，数组赋值为每个悬挂点至第1根汇流排起始位置的距离，数组1不使用元素赋极大值，便于后期Match函数调用；4)、建立数组2、数组4，数组赋值为每个跨中至第1根汇流排起始位置的距离，数组2不使用元素赋极大值，便于后期Match函数调用；5)、计算最后一个汇流排允许最短长度hzh：锚段汇流排终端至最近悬挂点距离加上悬挂点至汇流排缝隙最小距离之和与汇流排允许的最短长度两数中的最大值；6)、计算第1根汇流排末端至第1根汇流排起始位置的距离；7)、判断汇流排末端位置距两侧悬挂点、两侧跨中的距离是否大于要求值，如果不是，进行步骤12)运算，如果是，把汇流排长度记录至对应表表格进行下一步运算；8)、判断再加一整根汇流排是否可以完成锚段汇流排布置，如果是，最后一根汇流排为整根汇流排，填入对应表格，进行步骤20)运算，如果不是，进行下一步运算；9)、判断再加一根长度为hzh的长汇流排是否会超过锚段汇流排使用总长度，如果是，汇流排长度减去hzh，重新从步骤7)开始运算，如果不是，进行下一步运算；10)、判断再加一整根汇流排是否会超过锚段汇流排使用总长度，如果是，最后一根汇流排长度为使用汇流排总长度减去已累加汇流排长度，填入对应表格，进行步骤20)运算，如果不是，进行下一步计算；11)、增加一整跟汇流排，计算汇流排末端至第1根汇流排起始位置距离重新从步骤7)开始运算；12)、计算出汇流排需切割长度，算出短汇流排末端至第1根汇流排起始位置距离，进行下一步运算；13)、判断汇流排末端位置距两侧悬挂点、两侧跨中的距离是否大于要求值，如果不是，进行步骤18)运算，如果是，进行下一步运算；14)、判断再加一整根汇流排是否可以完成锚段汇流排布置，如果是，把短汇流排长度带入计算，重新从步骤7)开始运算，如果不是，进行下一步运算；15)、判断再加一根长度为hzh的长汇流排是否会超过锚段汇流排使用总长度，如果是，短汇流排长度减去hzh，重新从步骤13)开始运算，如果不是，进行下一步运算；16)、判断再加一整根汇流排是否会超过锚段汇流排使用总长度，如果是，把短汇流排长度带入，重新从步骤7)开始运算，如果不是，进行下一步计算；17)、增加一整跟汇流排计算汇流排末端至第1根汇流排起始位置距离重新从步骤13)开始运算；18)、记录此次短汇流长度，后续安装汇流排长度，在步骤12)切割的汇流排基础上再次切割掉步骤13)算出的需切割的汇流排长度；19)、判断短汇流排切割后是否汇流排起始端在同一跨内并且汇流排长度大于最短汇流排长度，如果不是，把短汇流排长度带入，重新从步骤13)开始运算；如果是，把步骤18)记录的后续安装汇流排长度最长的短汇流排带入，重新从步骤7)开始运算；20)、读取汇流排布置信息统计回流排根数，短汇流排位置及长度，进入下一行重新从步骤2)开始计算直至100008行计算机完成程序结束。作为本专利技术一种利用ExcelVBA对汇流排使用进行计算和管理的方法的进一步优化：针对前期施工的汇流排调用功能实现方法为：在汇流排使用工作表本文档来自技高网...

【技术保护点】
1.一种利用ExcelVBA对汇流排使用进行计算和管理的方法，其特征在于：包括以下步骤：/nS1：在Excel分别建立录入参数、计算结果、汇流排使用和库存管理工作表；/n在录入参数工作表中设置计算条件区域和现场测量区域；/n在计算结果作表中设置汇流排布置区域和汇流排布置总结区域；/n在汇流排使用工作表中设置短汇流排来源区域和剩余短汇流排区域；/n在库存管理工作表设置短汇流排库存区域和整根汇流排库存区域；/nS2：在Excel的VisualBasic编辑区中分别建立以下模块：/n建立“汇流排计算模块”，计算短汇流排长度及使用位置；/n建立“汇流排使用模块”，进行汇流排调配使用、减少短汇流排产生；/n建立“汇流排后期使用模块”，进行汇流排调配使用、减少整体汇流排的使用；/n建立“汇流排人工调整模块”，在施工人员想预留部分短汇流排不想调用时使用整根汇流排代替；/n建立“汇流排出入库模块”，对减去库存内需使用的整根汇流排和短汇流排、加上需入库的整根汇流排和短汇流排；/nS3：在计算结果工作表中建立以下命令按钮控件：/n建立“汇流排计算”命令按钮控件，该命令按钮控件调用步骤S2中“汇流排计算模块”；/n建立“汇流排使用”命令按钮控件，该命令按钮控件调用步骤S2中“汇流排使用模块”；建立“汇流排后期使用”命令按钮控件，该命令按钮控件调用步骤S2中“汇流排后期使用模块”；/n建立“人工调整”命令按钮控件，该命令按钮控件调用步骤S2中“汇流排人工调整模块”；/n在库存管理工作表中建立“出入库”命令按钮控件，该命令按钮控件调用步骤S2中“汇流排出入库模块”；/nS4：在步骤S1建立的录入参数工作表中录入零部件参数、相关技术参数及现场测量跨距，通过触发步骤S2中建立的各个命令按钮控件实现相应汇流排计算、汇流排调用、汇流排出入库管理功能。/n...

【技术特征摘要】
1.一种利用ExcelVBA对汇流排使用进行计算和管理的方法，其特征在于：包括以下步骤：
S1：在Excel分别建立录入参数、计算结果、汇流排使用和库存管理工作表；
在录入参数工作表中设置计算条件区域和现场测量区域；
在计算结果作表中设置汇流排布置区域和汇流排布置总结区域；
在汇流排使用工作表中设置短汇流排来源区域和剩余短汇流排区域；
在库存管理工作表设置短汇流排库存区域和整根汇流排库存区域；
S2：在Excel的VisualBasic编辑区中分别建立以下模块：
建立“汇流排计算模块”，计算短汇流排长度及使用位置；
建立“汇流排使用模块”，进行汇流排调配使用、减少短汇流排产生；
建立“汇流排后期使用模块”，进行汇流排调配使用、减少整体汇流排的使用；
建立“汇流排人工调整模块”，在施工人员想预留部分短汇流排不想调用时使用整根汇流排代替；
建立“汇流排出入库模块”，对减去库存内需使用的整根汇流排和短汇流排、加上需入库的整根汇流排和短汇流排；
S3：在计算结果工作表中建立以下命令按钮控件：
建立“汇流排计算”命令按钮控件，该命令按钮控件调用步骤S2中“汇流排计算模块”；
建立“汇流排使用”命令按钮控件，该命令按钮控件调用步骤S2中“汇流排使用模块”；建立“汇流排后期使用”命令按钮控件，该命令按钮控件调用步骤S2中“汇流排后期使用模块”；
建立“人工调整”命令按钮控件，该命令按钮控件调用步骤S2中“汇流排人工调整模块”；
在库存管理工作表中建立“出入库”命令按钮控件，该命令按钮控件调用步骤S2中“汇流排出入库模块”；
S4：在步骤S1建立的录入参数工作表中录入零部件参数、相关技术参数及现场测量跨距，通过触发步骤S2中建立的各个命令按钮控件实现相应汇流排计算、汇流排调用、汇流排出入库管理功能。


2.如权利要求1所述利用ExcelVBA对汇流排使用进行计算和管理的方法，其特征在于：所述步骤S4中录入的参数具体包括汇流排终端长度、汇流排长度、汇流排最短长度、汇流排连接缝隙距悬挂点最短距离以及汇流排连接缝隙距跨中最短距离。


3.如权利要求1所述利用ExcelVBA对汇流排使用进行计算和管理的方法，其特征在于：所述步骤S4中录入的现场测量跨距包括锚段号、跨距以及锚段长度。


4.如权利要求1所述利用ExcelVBA对汇流排使用进行计算和管理的方法，其特征在于：所述步骤S4中汇流排计算功能的实现方法为：在计算结果工作表中触发“汇流排计算”命令按钮控件，系统自动删除以往计算结果，显示此次汇流排计算的布置结果，并统计使用汇流排的总根数和短汇流排位置。


5.如权利要求4所述利用ExcelVBA对汇流排使用进行计算和管理的方法，其特征在于：汇流排计算的具体步骤包括：
1)、重置计算结果工作表，删除以往结果；
2)、读取正在计算行测量区域信息，如测量信息为空，不进行计算，读取下一行信息直至100008行读取完成程序结束，如数据不为空，填写锚段号进入下一步进行汇流排运算；
3)、建立数组1、数组3，数组赋值为每个悬挂点至第1根汇流排起始位置的距离，数组1不使用元素赋极大值，便于后期Match函数调用；
4)、建立数组2、数组4，数组赋值为每个跨中至第1根汇流排起始位置的距离，数组2不使用元素赋极大值，便于后期Match函数调用；
5)、计算最后一根汇流排允许最短长度hzh：锚段汇流排终端至最近悬挂点距离加上悬挂点至汇流排缝隙最小距离之和与汇流排允许的最短长度两数中的最大值；
6)、计算第1根汇流排末端距至第1根汇流排起始位置的距离；
7)、判断汇流排末端位置距两侧悬挂点、两侧跨中的距离是否大于要求值，如果不是，进行步骤12)运算，如果是，把汇流排长度记录至对应表表格进行下一步运算；
8)、判断再加一...

【专利技术属性】
技术研发人员：韩利，苏成，周绍启，杜广辉，李双双，吴东沛，张丁伟，訾阳，
申请(专利权)人：中铁建电气化局集团第一工程有限公司，
类型：发明
国别省市：河南;41