基于Excel-VBA的钻井物资统计软件设计

吴 成，郭福祥，王晓旭

（大庆钻探工程公司钻井工程技术研究院，黑龙江 大庆 163413）

Excel 软件应用广泛、功能强大，是最流行的电子表格软件。但在日常操作中，会有很多重复性的工作令人厌恶。可以使用编程语言Excel-VBA，开发一个软件实现这些功能。本文将根据钻井物资的实际使用情况，基于MS-Excel 平台使用VBA 设计物资统计软件。

软件实现的功能：

（1）库存物品基础信息列表：显示库存所有物品的编号、名称、型号、规格、存放位置、最少库存数量，整理并突出显示库存不足信息。该表可以作为提交材料计划和库存盘点的依据。

（2）库存物资流水列表：按时间先后顺序，显示库存所有物品出入库信息，并统计物品在出入库时的新物品和旧物品的数量。该表可以作为经营状况分析的依据。

（3）单井物资使用和消耗列表：根据井号，显示钻井出发和返回时的各物品数量，并统计新物品和旧物品的消耗数量。由于钻井过程中，可能会出现物资需求变化，导致多次物品出库和入库，使出入库信息复杂化，所以该表是软件设计的重点和难点。该表可以作为经营状况分析的依据。

1 库房原始数据表的设计

为了实现上述功能，需要设计合理的库房原始数据表。数据表的首行为标题，其余行为记录，EXCEL数据表的字段依次为：

（1）物品基础信息：编号、名称、型号、规格、存放位置、指定的最少库存物品数量；不同的物品，应该有不同的编号；

（2）建库物品数量：新物品初始数量、旧物品初始数量；

（3）厂家进货信息：进货时间、进货数量；

（4）钻井出发时的出库信息：出库时间、新物品出库数量、旧物品出库数量、领用人、井号；

（5）钻井返回时的入库信息：出库时间、新物品入库数量、旧物品入库数量、井号；

（6）备注信息。

2 库存物品基础信息表生成程序

库存物品基础信息数据表的字段依次为：编号、品名、型号、规格、位置、当前新件库存、当前库存、指定最少库存、库存不足、备注。

程序设计思路：逐行读取记录，如果遇到物品名称字段不为空，就将物品基础信息复制到库存物品基础信息数据表中，并调用工作表函数统计得到当前库存数量填入表中。程序流程图如图1所示。

图1 库存物品基础信息提取程序流程图

3 库存物资流水列表生成程序

库存物资流水信息数据表的字段依次为：编号、品名、型号、规格、库房操作、时间、井号、新件入库数量、旧件入库数量、新件出库数量、旧件出库数量、领用人、新件当前数量、旧件当前数量、备注。

程序设计思路：逐行读取记录，如果库房操作相关字段的时间和数量不为空，就将库房操作的字符串填入库存物资流水信息数据表，并将相应的时间和数量等信息复制到数据表中。程序流程图如图2所示。

图2 库存物资流水信息生成程序流程图

4 单井物资使用和消耗列表生成程序

单井物资使用和消耗数据表的字段依次为：井号、物品编号、品名、型号、规格、时间、库房操作、新件数量、旧件数量、领用人、备注。单井物资使用和消耗数据表程序流程图如图3所示。

图3 单井物资使用和消耗数据表程序流程图

单井物资使用和消耗数据表的设计稍复杂，需要考虑到以下几点：

（1）钻井施工在库房建立之前已经开始，应在表中给出提示；

（2）钻井施工在数据统计时尚未结束，应在表中给出提示；

（3）钻井施工使用的新物品，在施工结束时应归为旧物品；

（4）钻井施工物品的消耗数量，应是新物品和旧物品报废数量之和；

（5）钻井施工期间，如果物资不足就需要再次出库补充钻井施工的物资；

（6）钻井施工期间，如果有人员换班，就可能带回部分物资需要入库。

程序设计思路：先查询钻井施工是否有出发和返回信息（函数流程图如图4所示）；将钻井施工出发和返回的相关信息复制到单井物资使用和消耗数据表中（函数流程图如图5所示）；最后将提示信息和物资消耗数量填入数据表。

图4 钻井施工出发和返回标志生成函数流程图

图5 单井物资使用和消耗数据生成函数流程图

5 结论

软件已经成功实现了小型库房常用的功能，为钻井物资的管理提供了便利条件，为钻井生产成本管控提供了可靠的参考数据。

软件使用很简单，不需要具备相关基础知识，用户不需要任何培训即可使用。

软件的开发在MS-EXCEL 平台上完成，软件完全开源。如果需要定制其他功能，例如实现自动填写报表、指定时间范围形成报表等，在现有基础上进行修改即可实现，为软件的维护和升级提供了便利条件。

参考本文的设计，还可以设计出其他的管理系统，例如员工管理系统、工资管理系统、资产管理系统、图书管理系统等。