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

李 斌，王建偉，陳云霞

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

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

李 斌，王建偉，陳云霞

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

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

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

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

1 移民人口分析概述

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

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

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

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

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

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

3 移民人口分析程序編制

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

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

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

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

3.2 查重處理

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

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

3.3 戶籍查詢

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

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

3.4 運(yùn)行結(jié)果

在工程涉及的12個(gè)行政村中，重復(fù)運(yùn)用前述3步程序，并將戶籍資料中查詢不到的人口進(jìn)行再調(diào)查核實(shí)，最后，莊里水庫(kù)工程初步設(shè)計(jì)階段人口復(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年—)，男，助理工程師。