Excel VBA在水利工程建设征地移民人口分析中的应用

李 斌，王建伟，陈云霞

(山东省水利勘测设计院，山东 济南 250013)

Excel VBA在水利工程建设征地移民人口分析中的应用

李 斌，王建伟，陈云霞

(山东省水利勘测设计院，山东 济南 250013)

在水利工程建设征地移民设计阶段需对征地移民实物进行调查,农村人口调查是其重要组成部分,而移民人口的分析缺乏快捷的方法。本文以山东省庄里水库工程为例,拟采用Excel VBA开发工具对移民人口分析过程进行编程,以达到高效、快捷、准确地确定农村人口调查效果。

Excel;VBA;水利工程;移民人口分析

征地移民实物调查是水利工程建设征地移民设计的重要组成部分，实物可分为土地、房屋、人口、工业企业及专业项目5类。其中，农村人口调查是准确界定工程移民搬迁安置规模的重要基础。人口调查结束后，对数据的分析、处理涉及的情况复杂、内容广泛;由于在人口对比、分类统计及批量处理数据等方面缺乏高效的方法，造成工作量大、缺乏技术含量等问题。在设计实践中，通过运用Excel内置的Visual Basic for Application(VBA)，进行编程，可减少运用普通公式进行计算的工作量与错误率，从而大幅提高工作效率。

1 移民人口分析概述

庄里水库工程位于山东省南四湖湖东地区十字河流域，地处枣庄市的滕州市和山亭区境内，工程任务为工业供水、防洪、灌溉、发电。根据《水利部关于山东省庄里水库工程初步设计报告的批复》(水规计［2015］421号)，工程静态总投资为304407万元，总投资为306896万元，其中建设征地移民补偿投资241085万元。工程建设征收土地896.2hm2，规划基准年农村移民搬迁安置人口为12248人，涉及12个行政村，采取本村集中安置、外村集中安置和集中建小区3种方式安置。

根据水利水电工程建设征地移民实物调查规范(SL-442)，农村人口调查应分以下几种情况处理［1］，见表1。

表1 农村人口处理情况

调查过程中，通过查验被调查户户口簿、结婚证、身份证、出生证明等文件现场逐户调查并登记造册;为防止死亡未销户、空挂户及其他未及时销户情况发生，后期数据分析时以当地公安部门提供的人口户籍资料为基础，进行对比核准。

2 V B A使用基础

V B A是一种内置于Mi c r o s o f t O f f i c e中的编程语言，基于对象模型、属性、方法、事件的开发方式，可以创建用户窗体、模块、对象等事件过程。V B A通过自定义函数或者利用语句控制循环操作，可使一些常用过程或者进程自动化。通过V i s ua lB a s i cE di t o r(V B E)，编写代码，完成程序编制并运行过程，从而完成程序的运行。

3 移民人口分析程序编制

由于工程涉及12个村的搬迁人口所用程序一致，本文仅以其中的小河崖村为例进行分析。在工程可行性研究阶段，小河崖村搬迁人口为603人;经初步设计阶段复核调查搬迁人口为678人。

3.1 数据库生成

首先，为了与公安部门提供人口户籍数据格式相对应，按表2的格式将调查原始数据录入E x c e l数据库。

表2 人口录入数据库格式

3.2 查重处理

调查时存在个别调查户重复登记的现象，导致数据重复录入。借助V B A编程可对重复录入数据进行快速标识。首先，按 Alt+F11组合键打开V B E编辑器，在菜单栏里选择“插入—模块”选项，在打开的代码窗口输入如下代码:

输入代码完毕，点击菜单栏中“运行”，完成重复数据的标注。此代码可通过在G列(第7列)中，从上往下逐一对比身份证号是否重复，从而在X列“是否重复登记”(第24列)进行标注“1”。经过运行程序，小河崖村重复录入为2人。

3.3 户籍查询

为核实调查数据的准确性，有效区分表1中农村人口调查情况，需将生成的数据库与公安部门提供的人口户籍数据进行比对。比对的方法是核实已录入人口的身份证是否在户籍资料中出现，若出现则在T列“户籍中有无”(第20列)进行标注“1”。首先，新建 She e t 2工作表，将户籍资料复制进Sheet 2工作表;同样方法，输入代码如下:

在与户籍资料比对后，将小河崖村户籍资料中查询不到的人口进行再调查核实。经调查核实后，小河崖村户籍资料无法核对主要有以下几种原因:已死亡但未销毁户口单页5人、婚迁及出生未来得及登记户口23人、参军(上学)户口暂时迁出3人、户口不在本村且无法提供证明文件13人、公职人员未及时销毁户口单页3人。通过以上工作，一方面确保了在册人口的准确、不重复录入;同时又确保了不在册人口的准确核实。

3.4 运行结果

在工程涉及的12个行政村中，重复运用前述3步程序，并将户籍资料中查询不到的人口进行再调查核实，最后，庄里水库工程初步设计阶段人口复核情况见表3。其中，根据表1农村人口处理情况，属于死亡141人、重登930人、户口不在本村84人、公职人员60人4类情况的人口应予以扣除。

C 915;T P 399

B

1008-1305(2016)05-0023-02

10.3969/j.issn.1008-1305.2016.05.010

2016-04-21

李 斌(1988年—)，男，助理工程师。