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年—)，男，助理工程師。