[发明专利]一种运用VBA代码自动编制工程资料目录的方法

说明书

技术领域

本发明涉及一种利用VBA在Excel中自动编制工程资料各类目录的方法，特别是像灌浆资料元评定资料、断面图资料、三检资料等一些台账明确，但数据量极大，而格式要求又特别严格的卷内目录资料编制或录入。

背景技术

竣工资料的目录编制是一项简单但是重复性很大的工作，当前工程技术人员对竣工资料卷内目录编制基本为对照台账手动输入的方法，或者复制粘贴对应数据，对于大型工程，传统方法存在以下缺点：

（1）复制粘贴后格式变化较大，后期调动格式繁琐麻烦；

（2）工作量巨大，技术人员资料处理压力大，重复繁杂工作多；

（3）成千上万次人工处理相同操作容易对疲劳、反感，甚至出错频繁。

发明内容

本发明要解决的技术问题是：提供一种自动编制工程资料各类目录的方法，利用VBA在Excel中实现台帐数据的交换处理，自动生成固定格式的标准目录，精准快捷地完成卷内目录编制工作。

本发明的技术方案是：利用Excel中的VBA模块采集原有台账中的数据，经过引用、分析、判断和处理后自动生成规定格式的工资料卷内目录，具体来说，本发明包括以下步骤：

①制作符合目录标准格式的工作表，复制粘贴原有台帐到被引用位置：在Excel中制作符合目录标准格式的工作表，并将现有台帐复制粘贴到被引用位置；

②编写VBA模块，处理目录工作表与原有台帐间的数据引用关系：在VisualBasic编辑器中新建“生成目录”宏模块，编写VBA代码，配合包括InputBox函数（数据输入功能）、VLookup函数（数据查询读取功能）与被引用位置中的现有台账进行数据引用、分析、判断和处理；

③在目录工作表中添加功能控件，匹配相应的操作模块：在工作表中添加加载步骤②中“生成目录”宏模块的按钮控件。

上述步骤②和③中包括利用MsgBox函数实现的操作提示模块。

上述步骤③中的操作模块包括目录清空模块，打印预览模块和一键打印模块。

与现有技术比较，本发明能够避免大量的复制粘贴操作和格式调整操作，由于利用了VBA语言，实现了大量数据的自动采集处理，大大减少了操作人员的工作量，避免了因操作人员疲劳造成的数据录入错误，遗漏等情况发生。

附图说明

图1为本发明的流程示意图。

具体实施方式

下面以灌浆资料为例，详细描述本发明的实施方法：

1、打开Excel文件，建立一个固定格式的目录标准文件工作表（sheet1），将原有台账（包含所有原始数据）复制粘贴至另一张工作表（sheet2）.

2、打开Excel中VisualBasic编辑器，新建一个宏模块，写入代码（本模块以灌浆资料为例，其余参数可根据台账名称改变一次相应的名称即可使用，也可根据台账的列位置不同改变range中字母，行位置不同改变range单元格中数字即可通用），代码如下：

Submulu()‘定义宏名称为目录（mulu）

Dimdyh,zdmc,sxy,khAsString,n,i,j,ym,yys,eysAsInteger,zhAsVariant,rqAsDate‘定义各变量

dyh=InputBox(请输入单元号,单元孔号,9S01G)

‘手动输入单元孔号

n=InputBox(本单元总孔数,总孔数,72)

‘手动本单元总孔数

yys=InputBox(请输入本单元每个一序孔资料页数,每个一序孔资料页数,6)

‘手动输入一序孔页码，默认值为6

eys=InputBox(请输入本单元每个二序孔资料页数,每个一序孔资料页数,4)

‘手动输入二序页码，默认值为4

IfMid(dyh,1,1)=9Then

zdmc=9#施工支洞

Else:zdmc=14#施工支洞

EndIf

Ifzdmc=9#施工支洞AndMid(dyh,2,1)=SThen

sxy=上游

ElseIfzmmc=9#施工支洞AndMid(dyh,2,1)=XThen

sxy=下游

ElseIfMid(dyh,3,1)=SThensxy=上游

Else:sxy=下游

EndIf

‘此段为判断各孔工程部位，因本工程存在2个支洞，采用判断语句，若zdmc首字母为9则为9#施工支洞，否则else则为14#施工支洞