李 斌，王建偉，陳云霞

(山東省水利勘測設(shè)計院，山東 濟南 250013)

Excel VBA在水利工程建設(shè)征地移民人口分析中的應(yīng)用

李 斌，王建偉，陳云霞

(山東省水利勘測設(shè)計院，山東 濟南 250013)

在水利工程建設(shè)征地移民設(shè)計階段需對征地移民實物進行調(diào)查,農(nóng)村人口調(diào)查是其重要組成部分,而移民人口的分析缺乏快捷的方法。本文以山東省莊里水庫工程為例,擬采用Excel VBA開發(fā)工具對移民人口分析過程進行編程,以達到高效、快捷、準確地確定農(nóng)村人口調(diào)查效果。

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

征地移民實物調(diào)查是水利工程建設(shè)征地移民設(shè)計的重要組成部分，實物可分為土地、房屋、人口、工業(yè)企業(yè)及專業(yè)項目5類。其中，農(nóng)村人口調(diào)查是準確界定工程移民搬遷安置規(guī)模的重要基礎(chǔ)。人口調(diào)查結(jié)束后，對數(shù)據(jù)的分析、處理涉及的情況復(fù)雜、內(nèi)容廣泛;由于在人口對比、分類統(tǒng)計及批量處理數(shù)據(jù)等方面缺乏高效的方法，造成工作量大、缺乏技術(shù)含量等問題。在設(shè)計實踐中，通過運用Excel內(nèi)置的Visual Basic for Application(VBA)，進行編程，可減少運用普通公式進行計算的工作量與錯誤率，從而大幅提高工作效率。

1 移民人口分析概述

莊里水庫工程位于山東省南四湖湖東地區(qū)十字河流域，地處棗莊市的滕州市和山亭區(qū)境內(nèi)，工程任務(wù)為工業(yè)供水、防洪、灌溉、發(fā)電。根據(jù)《水利部關(guān)于山東省莊里水庫工程初步設(shè)計報告的批復(fù)》(水規(guī)計［2015］421號)，工程靜態(tài)總投資為304407萬元，總投資為306896萬元，其中建設(shè)征地移民補償投資241085萬元。工程建設(shè)征收土地896.2hm2，規(guī)劃基準年農(nóng)村移民搬遷安置人口為12248人，涉及12個行政村，采取本村集中安置、外村集中安置和集中建小區(qū)3種方式安置。

根據(jù)水利水電工程建設(shè)征地移民實物調(diào)查規(guī)范(SL-442)，農(nóng)村人口調(diào)查應(yīng)分以下幾種情況處理［1］，見表1。

表1 農(nóng)村人口處理情況

調(diào)查過程中，通過查驗被調(diào)查戶戶口簿、結(jié)婚證、身份證、出生證明等文件現(xiàn)場逐戶調(diào)查并登記造冊;為防止死亡未銷戶、空掛戶及其他未及時銷戶情況發(fā)生，后期數(shù)據(jù)分析時以當?shù)毓膊块T提供的人口戶籍資料為基礎(chǔ)，進行對比核準。

2 V B A使用基礎(chǔ)

V B A是一種內(nèi)置于Mi c r o s o f t O f f i c e中的編程語言，基于對象模型、屬性、方法、事件的開發(fā)方式，可以創(chuàng)建用戶窗體、模塊、對象等事件過程。V B A通過自定義函數(shù)或者利用語句控制循環(huán)操作，可使一些常用過程或者進程自動化。通過V i s ua lB a s i cE di t o r(V B E)，編寫代碼，完成程序編制并運行過程，從而完成程序的運行。

3 移民人口分析程序編制

由于工程涉及12個村的搬遷人口所用程序一致，本文僅以其中的小河崖村為例進行分析。在工程可行性研究階段，小河崖村搬遷人口為603人;經(jīng)初步設(shè)計階段復(fù)核調(diào)查搬遷人口為678人。

3.1 數(shù)據(jù)庫生成

首先，為了與公安部門提供人口戶籍數(shù)據(jù)格式相對應(yīng)，按表2的格式將調(diào)查原始數(shù)據(jù)錄入E x c e l數(shù)據(jù)庫。

表2 人口錄入數(shù)據(jù)庫格式

3.2 查重處理

調(diào)查時存在個別調(diào)查戶重復(fù)登記的現(xiàn)象，導(dǎo)致數(shù)據(jù)重復(fù)錄入。借助V B A編程可對重復(fù)錄入數(shù)據(jù)進行快速標識。首先，按 Alt+F11組合鍵打開V B E編輯器，在菜單欄里選擇“插入—模塊”選項，在打開的代碼窗口輸入如下代碼:

輸入代碼完畢，點擊菜單欄中“運行”，完成重復(fù)數(shù)據(jù)的標注。此代碼可通過在G列(第7列)中，從上往下逐一對比身份證號是否重復(fù)，從而在X列“是否重復(fù)登記”(第24列)進行標注“1”。經(jīng)過運行程序，小河崖村重復(fù)錄入為2人。

3.3 戶籍查詢

為核實調(diào)查數(shù)據(jù)的準確性，有效區(qū)分表1中農(nóng)村人口調(diào)查情況，需將生成的數(shù)據(jù)庫與公安部門提供的人口戶籍數(shù)據(jù)進行比對。比對的方法是核實已錄入人口的身份證是否在戶籍資料中出現(xiàn)，若出現(xiàn)則在T列“戶籍中有無”(第20列)進行標注“1”。首先，新建 She e t 2工作表，將戶籍資料復(fù)制進Sheet 2工作表;同樣方法，輸入代碼如下:

在與戶籍資料比對后，將小河崖村戶籍資料中查詢不到的人口進行再調(diào)查核實。經(jīng)調(diào)查核實后，小河崖村戶籍資料無法核對主要有以下幾種原因:已死亡但未銷毀戶口單頁5人、婚遷及出生未來得及登記戶口23人、參軍(上學)戶口暫時遷出3人、戶口不在本村且無法提供證明文件13人、公職人員未及時銷毀戶口單頁3人。通過以上工作，一方面確保了在冊人口的準確、不重復(fù)錄入;同時又確保了不在冊人口的準確核實。

3.4 運行結(jié)果

在工程涉及的12個行政村中，重復(fù)運用前述3步程序，并將戶籍資料中查詢不到的人口進行再調(diào)查核實，最后，莊里水庫工程初步設(shè)計階段人口復(fù)核情況見表3。其中，根據(jù)表1農(nóng)村人口處理情況，屬于死亡141人、重登930人、戶口不在本村84人、公職人員60人4類情況的人口應(yīng)予以扣除。

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