用VBA编制加载宏计算土石方量.pdfVIP

用VBA编制加载宏计算土石方量 安磊1息丽琳2 (1，北京送变电公司2、天津市电力公司城西供电分公司天津300115) [摘要]在送电线路工程的概预算编制中，计算墓坑土石方时，经常需要根据基坑的深 度及土质情况来调整边坡系数及操作欲度，仅用公式来解决很容易出现错误．本文介绍用 VBA(VisualBasicFor Application)编制加载宏，使判断和计算的过程在加载宏中完成． 该加载宏在华北院的概算编制中得到了应用． [关键词] 加载宏概预算、rB^ 1引言 VBA(VisualBasicFor 他MicrosoftOffice应用程序中。VBA作为一种编程工具，可以通过OLE自动与其他应用 程序一起工作。VBA编程的最大特点和最大优点是面向对象编程(OOP)。由于VBA使用Visual Basic标准，对于熟悉VisualBasic的编程人员，可咀在短时间内成为一个熟练的VBA编 程人员。 Execl是MicrosoftOffice系列软件中的电子表格软件，除了一般人所共知的功能外， 它还是一个非常优秀的软件开发平台。尤其是在数据计算方面，有很大的优势。 2编制加载宏 事实上，Excel系统的许多附加功能就是以加载宏的形式提供的，如，“与Access链 接”、“自动保存”、“规划求解”、“分析工具库”等等。单击工具菜中的加载宏即可看 到。本文主要介绍利用VBA编制基坑土石方计算加载宏的方法，完成后和以上提到Windows 自带的加载宏的加载方式一致，加载后能在工具菜单中自动加入土石方计算的菜单项，其使 用方式与内部命令无异。 2．1土石方计算部分 首先编制土石方计算过程的代码，土石方计算表格式如下： 其中的土质情况，基础数量，基坑尺寸由概预算编制人员根据施工图输入，编写代码的 要点就是通过代码调用以上的条件，按照送电线路工程预算定额中的土石方计算方法，自动 完成判断和计算，并把结果自动填入相应的表格中，在本计算表中即H列的数值。 首先进入VBA编程环境，新建一模块，在其中编制如下代码： 以下忽略了代码中的注释语句，采取逐段说明的方式加以解释。 Sub jisuan0 新建一个叫jisuan的子程序。 IfCells(3。7)’坑深’Then 4 MsgB旺’请先打开土方计算表1 ExitSub EndIf A=MsgBox(。是否计算土方量?”，vbYesNo) IfA=vbNoThenExitSub 判断当前活动表格是否为土石方计算表，若不是则弹出如下左图的提示框，若是则弹出 如下右图的对话框询问是否计算，选“是”则进入计算过程，选“否”则程序终止。本功能 用来防止误操作。 Fori=5To500 f(Cells(i，2)；’普通土。OrCells(i，2)=’水坑’)Then If Then Cells(i，7)=2 t ElseIf And Then Cells(i，7)2Ceils(i，7)(=3 ， {0．2)+2}Cells(i。7)·0．3))}Cells(i，7)／6 Then ElseIfCells(i，7)3 Cells(i，8)=((Cells(i，5)+2}0．2){(Cells EndIf — EndIf -…●_ 以上代码即是土方量的计算过程，按照定额的要求按土质分类计算，由于计算过程大同 小异，文中省略了除“普通土”，“水坑”以外的部分。 Then If(Cells(i，7))0 If(Cells(i。7))=2Then