用VBA在Excel中实现电力电缆假设结构尺寸电算化

摘要：本文详细介绍了采用Excel电子表格通过VBA语言结合Access数据库及GB/T12706国家标准要求，方便快捷计算电缆假设结构尺寸，从而确定电缆护层结构尺寸。

关键词：Excel  VBA语言  Access数据库   GB/T12706 假设结构尺寸 护层结构尺寸

Application of VBA Language to Cable Construction Calculation in Excel

Lu ZhengRong

（Far East Cable Co.,Ltd，Yixing 214257 , Jiangsu Province ,China）

Abstract: The article details a method for rapidly calculating fictitious dimensions of cable construction and determine n of sheath dimensions through Excel format by combinating with Access database and GB/T12706 standard.

Key words: Excel VBA language, Access database, GB/T12706, fictitious construction dimensions, sheath construction dimensions

1 引言

电缆制造工艺设计和计算是一项很繁琐的工作，特别是随着社会现代化进程加快，电缆的结构品种也越来越多，竞争也越来越激励，如何准确、快速反应是成功的主要因素。

电力电缆结构尺寸计算过程中，护层尺寸的确定都是以GB/T12706标准附录A确定护层尺寸的假设计算方法计算的。也就是说，在电缆结构尺寸计算过程中，首先必须通过GB/T12706规定的计算方法确定电缆护层尺寸，然后再进行电缆制造工艺结构尺寸的计算。

电缆结构工艺及材料定额报表主要以Excel电子表格形式编制，目前常用的电缆结构计算程序主要为用VB语言编制的可执行程序文件，而表格又在Excel电子表格中编制，在使用中存在切换界面、数据传输不便以及无法连续操作等一系列问题。这里采用VBA语言在Excel应用程序上执行计算，这样以上的一系列问题将迎刃而解。同时通过VBA将Excel与Access数据库连接在一起使用，可以方便提取工艺原始数据加以比较使用，这一点可以大大减少这些原始数据在技术人员脑子里的占用量，同时也大大提高了技术人员的工作效率。

本文通过GB/T12706、Excel、VBA、Access数据库有机结合在一起，简化了电缆工艺结构尺寸计算过程，提高了计算速度和准确性。更主要的是视窗化操作方便、灵活性强、通用性广。

2 假设结构尺寸计算标准

2.1 计算标准

电力电缆假设外径以及护层尺寸计算已经标准化(注意是计算标准化)。国际电工委员会的IEC50602标准出台后，各国电力电缆产品已大多向IEC靠拢。国际上大多数发达国家以及国际贸易都以IEC标准作为制订电缆产品依据。IEC60502标准已是国际上公认的电力电缆执行的唯一标准。而我国电力电缆执行的国家标准GB/T12706等同于IEC60502，所以本程序所执行的计算标准具有广泛的通用性。

2.2 计算结构分析

按GB/T12706标准描述，电力电缆结构从内到外依次有导体、绝缘、成缆内芯、内衬层、填充、金属屏蔽层、同心导体、铅套、隔离套、钢带铠装、细钢丝铠装、粗钢丝铠装、外护套等13部分组成。根据电缆使用场合不同结构也不同，但不外乎于这13个部分的若干部分组合而成。具体结构组合如图1。

图1 电缆结构计算框架

3 程序设计

设计程序过程中，首先根据使用需要建立主程序框架结构；其次通过框架结构建立电缆假设结构计算模型，然后依据这模型编写自定义函数代码；再次将函数与Excel电子表格、对话框窗体及基础数据库连接在一起，相互调用数据并计算；最后在Excel电子表格的菜单栏中建立调用菜单，方便使用。

3.1 软件语言及软件准备

为了达到使用的方便性及简洁性的效果，这里除了最常用的Office办公软件外不需要其它任何专业应用软件，代码编写语言同样采用Office办公软件自带的Visual Basic For Applications（简称VAB）语言编写。

3.2 程序结构框架

本程序为了达到操作简易性和通用性，将Office办公软件中的Excel表格作为前台界面，适合工艺技术人员的使用习惯。将VBA编制的代码按照GB/T12706标准规定作为数据处理层面，并连接Access数据库取出需要的数据计算。有VBA程序通过结合Excel界面、GB/T12706标准、Access数据库，最终完成电缆假设结构的计算，得到电缆工艺计算中所需的电缆护层尺寸。程序结构框架如图2。

操作

调用

调用

计算对话框

Access

数据库

VBA

代码计算

调用

图2. 程序结构框架

3.3 程序代码建立

3.3.1 VBA标准模块逻辑模型设计

图3  VBA标准模块逻辑模型

3.3.2 VBA标准模块代码设计

     VBA标准模块代码的功能就是通过代码根据3.3.1条款VBA标准模块逻辑模型来完成计算的过程。本程序是建立在Excel系统背景上的，而为了提高计算操作的简便性，将代码编制成Excel系统可以使用的函数形式，在Excel中使用可以实现单元格的下拉复制粘贴功能，并且根据引用的单元格数据不同自动计算出不同结果。函数名称为：假设外径计算(规格, 电压等级, 绝缘材料, 电缆结构)。

3.4 程序的视窗化

     为了提高本程序操作的简便性，让操作视窗化，在Excel菜单栏中增加了工具条如图4，另外，在Excel后台设置对话框窗体，在计算过程中调用计算对话框窗体如图5，在前台按对话框的提示用鼠标选择对应的单元格，从而记录下需要计算的Excel单元格地址及数据，将数据送到Excel后台计算，并将计算结果输出到指定单元格内，完成计算任务。由于本程序使用的是函数编程及单元格地址引用取数，所以可是使用单元格的下拉复制粘贴功能进行大量数据自动化处理，加快了操作计算速度。

图 4

图 5

4 有关计算结果正确性的验证

根据GB/T12706标准要求，通过对交联聚乙烯绝缘、聚氯乙烯绝缘，不铠装、铠装电缆分别使用本程序和手工全系列规格计算，计算出的电缆护层尺寸完全一致，符合设计要求。

5 结束语

    采用VBA语言进行编程，可以解决繁杂的工艺设计和计算，结果准确。另外该程序可以在Excel电子表格中运行。一方面操作简单易学，另一方面可以进行大批量的数据处理，而且将来数据如需改动，一旦改动已知数据，结果立即随之而变。故通过VBA语言与Excel电子表格相结合，可以将电缆工艺设计和计算实现电算化、标准化。

参考文献：

[1 ]  GB/T12706 ， 额定电压1kV到35kV挤包绝缘电力电缆及附件标准，2002

[2 ]  王春江  ，   电线电缆手册  第7篇电线电缆结构计算，2002

[3 ]  刘子玉  ，   电力电缆结构设计原理，西安交大出版社，1995

[4 ]  韩中洗  ，   电缆工艺原理，上海电缆研究所信息中心

[5 ]  刘春昉  ，   VB语言在电缆制造工艺中的应用，《电线电缆》2002年第6期20页

主要还是代码 这个强烈要求楼主共享下