公路交通技术２０１０年２月第１期ＴｅｃｈｎｏｌｏｇｙｏｆＨｉｇｈｗａｙａｎｄＴｒａｎｓｐｏｒｔＦｅｂ．２０１０Ｎｏ．１Ｅｘｃｅｌ２次开发技术在公路技术状况评定系统中的应用修林岩（烟台市长岛公路管理局，山东烟台２６５８００）摘要：本公路技术状况评定系统利用Ｅｘｃｅｌ自身强大的运算功能，并结合ＶＢＡ二次开发技术，可实现人工录入基本信息和检测数据自动进行汇总和等级评定，并提供方便快捷的查询功能，不仅可提高公路技术状况评定过程中后期内业的工作效率，而且可保证评定结果准确、可靠。
关键词：公路；Ｅｘｃｅｌ２次开发：技术状况评定文章编号：１００９－６４７７（２０１０）０１－－－００４３－０３中图分类号：Ｕ４１文献标识码：ＢＡｐｐｌｉｃａｔｉｏｎｏｆＥｘｃｅｌＲｅｄｅｖｅｌｏｐＴｅｃｈｎｏｌｏｇｙｉｎＥｖａｌｕａｔｉｏｎＳｙｓｔｅｍｆｏｒＴｅｃｈｎｉｃａｌＣｏｎｄｉｔｉｏｎｓｏｆＨｉｇｈｗａｙｓＸＩＵＬｉｎｙａｎＥｘｃｅｌ在公路相关业务中的应用已较为广泛，是目前工程技术人员掌握最熟练、最乐于使用和接受的数据处理工具，但具体的应用大都局限于普通的函数运算功能，而基于ＶＢＡ的２次开发技术，则应用较少。
基于ＶＢＡ的Ｅｘｃｅｌ２次开发技术可以更加高效地利用Ｅｘｃｅｌ本身的强大功能，实现更多更复杂的高级功能，同时，ＶＢＡ作为一种以ＶｉｓｕａｌＢａｓｉｃ语言为基础的自动化语言，比较容易为公路管理人员、技术人员所掌握，为Ｅｘｃｅｌ２次开发的广泛应用创造了前提条件。
本公路技术状况评定系统主要利用Ｅｘｃｅｌ自身的公式计算功能和相对简易的ＶＢＡ技术，实现评定过程的智能化、自动化。
１公路技术状况评定系统简介公路技术状况检测与调查以１０００ｍ路段为基本检测或调查单元，包括路面、路基、桥隧构造物和沿线设施４部分内容。
路面检测包括路面损坏、平整度、车辙、抗滑性能和结构强度５项指标，桥隧构造物调查包括桥梁、隧道和涵洞３类构造物，如图ｌ所示。
根据公路等级和路面类型的不同，需要确定是否划分上下行，且计算路面使用性能指数ＰＱＩ所采用的分项指标（即ＰＣ，、尺ａｔ、ＲＤＩ和职，）的范围和评价计算公式均有所不同（粥髓为抽样检收稿日期：２００９—１０－１２作者简介：修林岩（１９７９．）。
男。
山东省莱阳市人，本科，工程师ｒ｜路面（ＰＱＩ）卜＿刊路面损坏（ＰＣＩ）ｌ—Ｉ：二二二Ｌ小磊囊了夏ｉ厂——］Ｈ堕亘兰竺璧！墨竺！型Ｈ—Ｗ丽鬲玎面矿Ｈ桥隧构造物（ＢＣＩ）Ｉｌ—Ｈ抗滑性能（ＳＲＩ）叫沿线设施（ＴＣＩ）Ｉ广＿——＿——一Ｌ———————一Ｌ叫结构强度（ＰＳＳＩ）注：ＭＱＩ－．／ｚ．｝路技术状况指数；ＰＱＩ－路面使用性能指数；ｓｃ，－路基技术状况指数；ＢＣｉ一桥隧构造物技术状况指数；ＴＣＩ一沿线设施技术状况指数；ＰＣ！一路面损坏状况指数；ＲＱＩ－路面行驶质量指数；ＲＤｉ－路面车辙深度指数；跚一路面抗滑性能指数；ＰＳＳＩ－路面结构强度指数。
图ｌ公路技术状况评定指标测指标，单独进行计算与评定，不参与ＰＱＩ的计算）。
若评定路线的公路等级和路面类型有变化，则需及时选用不同的计算表格和评定公式，这正是手动汇总计算的繁琐易错之处。
Ｅｘｃｅｌ作为微软公司开发的办公自动化软件Ｏｆｆｉｃｅ的组件，是目前应用最为广泛的电子表格处理软件之一，其强大、成熟、高效的运算及图表处理能力一直为广大公路技术人员所青睐。
ＶＢＡ（ＶｉｓｕａｌＢａｓｉｃｆｏｒＡｐｐｌｉｃａｔｉｏｎ）以ＶＢ语言为基础，经过修改并运行在ＭｉｃｒｏｓｏｆｔＯｆｆｉｃｅ的应用程序。
本公路技术状况评定系统，根据ＪＴＧＨ２０－－２００７《公路技术状况评定标滩勤的要求，利用ＶＢＡ２次公路交通技术２０１０年开发，高效整合Ｅｘｃｅｌ自身功能，最大程度减少用户的工作量，即使是Ｅｘｃｅｌ的初级用户也能轻松上手，既提高了工作效率，又保证了评定结果的快速准确。
在本系统中，用户根据公路等级、路面类型和路面宽度等划分ＭＱｌ评定单元，然后将实际调查数据按段填入损坏调查表和明细表中，系统自动进行累计汇总并进行权重扣分计算，根据求得的指数确定相应指标的评价等级。
对于评价路线中存在路面类型变化、等级变化等复杂情况，系统自动切换相应表格和计算指标公式，这就避免了手工操作时在不同表格公式间切换的不便。
２编程思想与技术实现本系统中，调查数据的采集与评定结果均采用规范中的表格向用户进行实时反馈，做到了“所见即所得”。
数据的保存也在一个Ｅｘｃｅｌ文件中实现。
之所以没有采用Ａｃｃｅｓｓ数据库，一是为了减少系统后台跨平台处理的工作量，提高运行速度，降低对用户软件环境的要求；二是便于后期本系统与路面管理系统（ＣＰＭＳ）进行数据共享，避免后期开发时数据库调用上的冲突。
系统采用８张工作表来实现系统的全部功能．其中ｓｈｅｅｔ１～３、ｓｈｅｅｔ８直接作为交互界面，用来接收用户数据、反馈成果信息，ｓｈｅｅｔ４—７用来保存路段信息、调查数据及表格模板，其对用户是隐藏的，仅在设计模式下可见，如图２所示。
２．１用户操作与控制Ｎ：ａｍｅ圈ｓｈｅｔｌ尉ｓｈｅｔ８胃ｓｈｅｔ３ｓｈｅｅｔ２ｓｈｅｅｔ４ｓｈｅｅｔ５ｓｈｅｅｔ６ｓｈｅｅｔ７调查表ＤＡＴＡｌＤＡＴＡ２ＤＡＴＡ３ＧＲＩＤＳ基本桥隧沿信息路基调线设施路面调调查表查表模路面调查数据调查数据板查数据图２系统１二作表组成Ｎｍｅ表名内容系统利用ｅｘｃｅｌ表格作为与用户的交互界面，不仅迎合了技术人员熟悉的Ｅｘｃｅｌ操作，输出成果可以直接归档，而且缩短了程序开发的周期。
借助Ｅｘｃｅｌ本身强大的公式与表格处理能力，可实现大部分计算工作的自动化，减少后台编程的工作量。
用户首先需要在基础数据表中填写路段基本信息，将划分路段起点桩逐行填入，并完善路线等级、路面类型和宽度信息，然后进行“数据初始化”操作。
再将实际损坏调查数据分段填入调查表，将平整度、车辙、抗滑性能和结构强度数据填入明细表中，全路段的汇总评价结果也已同时完成，汇总表、明细表和调查表均可以直接打印输出，供内业归档用。
２．２基于ＶＢＡ的Ｅｘｃｅｌ２次开发本评定系统实现过程见图３。
１）用户在完成基本信息录入后进行初始化操作，目的在于将路段信息按行写入ＤＡＴＡ１表中，并清空ＤＡＴＡ２、ＤＡＴＡ３。
这３张表用来保存全部的原始调查数据．每个路段在３张ＤＡＴＡ表中占１行，调查表在调用和储存数据时以路段序号对应的表格行号作为定位依据，根据Ｅｘｃｅｌ２００３表格的行数限制，理论上系统最多可以支持６００００多个调查路段。
在此过程中需考虑因公路等级的不同是否需区分上下行的问题。
系统利用了一个直观的Ｃｏｍｍａｎｄ控件，实现初始化功能，代码为：Ｓｈｅｅｔ４．Ｃｅｌｌｓ．ＣｌｅａｒＣｏｎｔｅｎｔｓＤｉｍｉＡｓＩｎｔｅｇｅｒ，ｊＡｓＩｎｔｅｇｅｒ，ｉｉＡｓＩｎｔｅｇｅｒＦｏｒｉ＝０ＴｏＳｈｅｅｔｌ．Ｃｅｌｌｓ（８，２）一１ⅡＳｈｅｅｔｌ．Ｃｅｌｌｓ（ｉ＋８，６）＝Ｓｈｅｅｔｌ．Ｃｅｌｌｓ（１０，１２）ＴｈｅｎＦ０ｒｉｉ＝４Ｔｏ８Ｓｈｅｅｔ４．ＣｅＨｓＯ，ｉｉ一３）＝Ｓｈｅｅｔ１．ＣｅＵｓ（ｉ＋８，ｉｉ）Ｓｈｅｅｔ４．Ｃｅｌｌｓ（ｊ，６）＝“上下行”Ｎｅｘｔｉｉ一，————一初始化：保存路段信息——＼．ｓｈｅｅｔｌｓｈｅｅｔ８ｓｈｅｅｔ３ｓｈｅｅｔ２ｓｈｅｅｔ４ｓｈｅｅｔ５ｓｈｅｅｔ６ｓｈｅｅｔ７基础数据汇总表明细表调查表ＤＡＴＡｌＤＡＴＡ２ＤＡＴＡ３ＧＲＩＤＳ路线基基本桥隧沿本信息调用调用信息路基调线设施路面凋汇总表明细表调查表查数据凋查数查表模分段路面调板桩号．、查数据据—一．＼数据调亍■≥／、’，～图３系统实现及表间关系示意２０１０年第１期修林岩：Ｅｘｃｅｌ２次开发技术在公路技术状况评定系统中的应用４５ＥｌｓｅＦｏｒｉｉ＝４Ｔｏ８Ｓｈｅｅｔ４．Ｃｅｌｌｓ０，ｉｉ一３）＝Ｓｈｅｅｔｌ．Ｃｅｌｌｓ（ｉ＋８，ｉｉ）Ｓｈｅｅｔ４．Ｃｅｌｌｓ（ｊ，６）＝“上行”２）初始化完成后，用户即可在调查表中利用一个微调按钮前后切换不同路段，填写或查询调查数据，并可随时将需要的调查表打印输出。
此编程过程中需解决的主要问题有：非标准长度路段ＳＣＩ、ＢＣＩ、ＴＣＩ指标的换算以及路面类型不同时表格的相应变化。
系统利用ＧＲＩＤＳ表来保存不同类型的路面调查表模板，通过判断用户已录入的路面类型信息，复制相应模板到调查表中，然后再读取用户数据，从而实现表格类型的实时切换。
同时，在切换过程中，根据用户设置进行文档的自动保存，以确保数据安全。
部分代码如下：Ｓｈｅｅｔ２．Ｒａｎｇｅ（”ｌｍ”１．ＣｌｅａｒＩｆＬＭＬＸ＝“沥青路面”ＴｈｅｎＳｈｅｅｔ５．Ｒａｎｇｅ（”ＬＱｌｍ”１．ＣｏｐｙＳｈｅｅｔ２．Ｒａｎｇｅ（”ｌｍ”１．ＰａｓｔｅＳｐｅｃｉａｌＳｈｅｅｔ２．Ｃｅｌｌｓ（１，１）＝“沥青路面损坏情况调查表”Ｆｏｒｉ＝０’Ｉ＇ｏＬｍＬｉｎＦｏｒｊ＝０Ｔ０９Ｓｈｅｅｔ４．Ｃｅｌｌｓ（Ｌｉｎ，２１＋ｉ串１０＋ｊ）＝Ｓｈｅｅｔ２．ＣｅＵｓ（６＋ｉ，７＋ｊ）ＮｅｘｔｊＮｅｘｔｉ３）在明细表中，利用ＶＢＡ调用Ｅｘｃｅｌ的高级筛选功能结合指定单元格的有效性控制形成的下拉菜单，实现用户对于不同调查方向上数据查询的需求。
高级筛选代码如下：Ｒａｎｇｅ（”ＱｈＱ３９３”１．ＡｄｖａｎｃｅｄＦｉｌｔｅｒＡｃｔｉｏｎ：＝ｘｌＦｉｌｔｅｒＩｎＰｌａｃｅ，一ＣｒｉｔｅｒｉａＲａｎｇｅ：＝Ｒａｎｇｅ（”Ｒ４：Ｒ５”），Ｕｎｉｑｕｅ：＝Ｆａｌｓｅ本表中，还要处理好存在５类桥梁、危险隧道和涵洞情况下路段ＭＱＩ直接为。
的问题。
系统利用调查表白动计算后在ＤＡＴＡ表中留下的特殊标记进行判断，如果符合要求，则不计算Ｍ讲，直接取０值。
４）汇总表中的功能通过编辑公式即可实现，要用到的数组公式稍显复杂，但原理较简单。
３结语根据本系统在￥２６３线公路技术状况评定中的使用情况看，很好地实现了检测调查评定同步化处理，提高了评定工作的工作效率，保证了评定结果的科学性、准确性。
本评定系统远没有将Ｅｘ—ｃｅｌ的强大功能发挥到极致，希埋此系统的开发能为Ｅｘｃｅｌ和ＶＢＡ开发技术在公路管理中推广应用做些尝试。
参考文献【ｌ】通部公路科学研究院与上海市公路管理处．ＪＴＧＨ２０一２００７公路技术状况评定标准【ｓ】．北京：中国知识出版社，２００８．【２】陕西省公路局．ＪＴＧＨ１１—２００４公路桥涵养护规范【Ｓ】．北京：人民交通出版社，２００４．【３】３重庆市交通委员会．ＪｒｒＧＨ１２—２００３公路隧道养护技术规范【ｓ】．北京：人民交通出版社，２００３．【４】王松根，马庆雷，张玉宏．山东公路养护技术应用与研究［Ｍ】．北京：人民交通出版社，２００５．【５】戴维斯Ｄａｖｉｓ，Ｇ．Ｈ．）．ＶＢＡ从入门到精通（第二版）日仰．北京：电子工业出版社，２００８．【６】史玉磊，史金峰，郭瑞．Ｅｘｃｅｌ函数与图表实用大全【Ｍ】．北京：电子工业出版社，２００７．【７】ＥｖａｎｇｅｌＯＳＰｅｔｒｏｕｔｓｏｓ．ＶｉｓｕａｌＢａｓｉｃ６从入门到精通【Ｍ】．北京：电子工业出版社，１９９９．【８】ＥｘｃｅｌＨｏｍｅ．Ｅｘｃｅｌ数据处理与分析实战技巧精粹【Ｍ】．北京：人民邮电出版社，２００８．。
