基于VBA的農(nóng)村亂占耕地建房問題摸排清單自動整理

摘? 要：在農(nóng)村亂占耕地建房問題摸排過程中，由于網(wǎng)絡(luò)Web端系統(tǒng)平臺導(dǎo)出的項目清單數(shù)據(jù)列過多，不便于打印和核對標(biāo)注，同時，部分?jǐn)?shù)據(jù)項可能存在不確定的導(dǎo)出錯誤，為使下發(fā)用于核對的清單表格閱讀更方便，并且對異常項進行提示說明，文章研究了如何利用Excel VBA的自動化功能，對農(nóng)村亂占耕地建房問題摸排項目網(wǎng)絡(luò)Web端系統(tǒng)平臺導(dǎo)出的項目清單表進行檢查、規(guī)范及自動整理，并給出了具體的方法和步驟。

關(guān)鍵詞：農(nóng)村亂占耕地建房;問題摸排;Excel VBA;自動整理

中圖分類號：TP311? ? ? ? ?文獻標(biāo)識碼：A文章編號：2096-4706（2021）22-0063-04

Abstract： In the process of problem solving on unlandful possession of cultivated land building houses in rural areas， due to too many project list data columns exported from the network Web terminal system platform， it is not easy to print， check and label. At the same time， some data items may have uncertain export errors. In order to make it easier to read the list forms issued for check， and prompt and explain the abnormal items， this paper studies how to use the automation function of Excel VBA to check， standardize and automatically sort out the project list forms exported from the network Web terminal system platform for the project of unlandful possession of cultivated land building houses in rural areas， and the specific methods and steps are given.

Keywords： unlandful possession of cultivated land building houses in rural areas; problem solving; Excel VBA; automatic sorting

0? 引? 言

為摸清全國占用耕地建設(shè)的沒有合法合規(guī)用地手續(xù)的房屋底數(shù)，建立全國農(nóng)村亂占耕地建房問題工作臺賬，為分步整治、分類處置存量問題奠定基礎(chǔ)，重點整治強占多占、非法出售等惡意占用耕地建房行為，保障農(nóng)民合理的建房需求，2020年7月3日，國務(wù)院召開農(nóng)村亂占耕地建房問題整治工作電視電話會議，要求明確摸排范圍和內(nèi)容，摸清 2013年以來全國農(nóng)村亂占耕地建房涉及用地情況，房屋建設(shè)、使用和非法出售情況，處罰情況等，建立全國農(nóng)村亂占耕地建房問題工作臺賬。由于時間緊任務(wù)重，各地亟需立即投入項目工作中，為此，自然資源部在原有的網(wǎng)絡(luò)WEB端“國土調(diào)查云”工作平臺上新增了“農(nóng)村亂占耕地建房問題摸排外業(yè)信息采集”功能，對數(shù)據(jù)分發(fā)、清單下載、上傳更新、核實上報等工作統(tǒng)一進行網(wǎng)上管理。網(wǎng)絡(luò)WEB端系統(tǒng)平臺界面如圖1所示。

由于外業(yè)調(diào)查期間部分技術(shù)人員對技術(shù)要求的把握不完全到位，同時出于提高外業(yè)效率的需要，部分信息收集和填寫不夠齊全，造成初始錄入的信息不夠完善，為方便后續(xù)工作開展，一是需要將網(wǎng)絡(luò)Web端系統(tǒng)平臺導(dǎo)出的完整信息表拆分為住宅類信息表和公共管理服務(wù)類/產(chǎn)業(yè)類信息表兩個表，方便打印和核對信息;二是需要對已填寫的信息進行核對，查出必填而沒有填的項，同時，對相互邏輯關(guān)系進行檢查，對不符合邏輯要求的填寫值給出警告提示，方便后續(xù)進一步核實完善。這兩步均可以通過Excel VBA來自動處理以提高效率。

1? 方法步驟

1.1? 制作模板表

首先，分析網(wǎng)絡(luò)Web端系統(tǒng)平臺導(dǎo)出的完整信息表，自A列至AY列，共有51列，依次為“基本信息”“住宅類”“公共管理服務(wù)類/產(chǎn)業(yè)類”“管理信息”“外業(yè)核實記錄”“摸排確認(rèn)結(jié)果”六個大項。項目清單表樣式如圖2所示。

這六個大項中，無論是住宅類的信息表還是公共管理服務(wù)類/產(chǎn)業(yè)類的信息表，都應(yīng)該有基本信息、管理信息、摸排確認(rèn)結(jié)果三個基礎(chǔ)大項，另外，為了便于鄉(xiāng)鎮(zhèn)村組核實確認(rèn)，應(yīng)增加“鄉(xiāng)鎮(zhèn)、村級核實”大項，由于核查人員和核查時間在反饋鄉(xiāng)鎮(zhèn)村核實時并不是必須，加上核實說明列的內(nèi)容與管理信息中的備注列相同，因此，“外業(yè)核實記錄”項可整體去掉，不顯示在自動整理后的表格中。

其次，確認(rèn)三個基礎(chǔ)大項中應(yīng)當(dāng)保留的子項。由于整理結(jié)果是按房屋三個類型分的表，表頭可以統(tǒng)一添加摸排類型、縣級行政區(qū)名稱、鄉(xiāng)鎮(zhèn)名稱，因此，“基本信息”項下的“摸排類型”“行政區(qū)”“鄉(xiāng)鎮(zhèn)名稱”列可省略;另外，“村（社區(qū)）”“門牌號”兩列因無數(shù)據(jù)也可省略;“房屋面積”列因為后續(xù)涉及內(nèi)業(yè)調(diào)整界線，面積可能有變化，在表中顯示無意義，也可省略。對“管理信息”項而言，“項目總占地面積”“占用耕地面積”“占用永久基本農(nóng)田面積”“超出本地區(qū)宅基地標(biāo)準(zhǔn)面積”4個涉及面積項以及“是否符合城鄉(xiāng)規(guī)劃”“是否符合土地利用總體規(guī)劃”2個涉及規(guī)劃項因與內(nèi)業(yè)有關(guān)，反饋鄉(xiāng)鎮(zhèn)村核實時不需列出;由于用地手續(xù)的合法性認(rèn)定，部和省上均未給出明確界定標(biāo)準(zhǔn)，因此“沒有合法合規(guī)手續(xù)原因”這項暫未填寫，不需列出;“是否做出行政處罰”“是否申請法院強制執(zhí)行”“法院是否受理”三項基本不涉及，也可不列出。住宅類和公共管理服務(wù)類/產(chǎn)業(yè)類的下屬子項無法省略，需全部列出。最終確認(rèn)的住宅類和公共管理服務(wù)類/產(chǎn)業(yè)類的整理后表格樣式如圖3、圖4所示。

1.2? 添加功能代碼

在Excel VBA下添加宏，指定快捷運行鍵，并添加功能代碼。首先需要將單元格值讀入變量保存，示例代碼為：

sa（n） = Cells（i， 1）

由于房屋編號較長，如果按原表完整輸出，將占用較寬位置?？紤]到每個區(qū)縣房屋編號均是以6位縣級行政區(qū)劃代碼+F組成，即前7位完全一致，差異只在后7位，因此，將房屋編號賦值給變量時可只取后7位，示例代碼為：

sb（n） = Right（Cells（i， 2）， 7）

檢查發(fā)現(xiàn)，坐落位置列存在“××鎮(zhèn)-××鎮(zhèn)××村”的不規(guī)范值，需要統(tǒng)一表達為“××鎮(zhèn)××村”，自動修正的示例代碼為：

s4 = “-”

se（n） = Cells（i， 5）? ? ? ? ? ? '鄉(xiāng)鎮(zhèn)名稱

si（n） = Cells（i， 9）? ? ? ? ? ? '坐落位置

n1（n） = InStr（si（n）， s4）

If n1（n） > 0 Then

si（n） = se（n） & Right（si（n）， Len（si（n）） - 2 * n1（n） + 1）

End If

對于表格內(nèi)容填寫的檢查，重點是漏填項檢查，主要的漏填項檢查包括：

（1）土地來源項未填，檢查示例代碼為：

If sl（n） = “” Then

s14（n） = "缺土地來源，"

End If

（2）開工時間項未填，檢查示例代碼為：

If sm（n） = “” Then

s6（n） = "缺開工時間，"

End If

（3）住宅類未填房屋類型、個人姓名、個人身份項，檢查示例代碼為：

If sc（n） = "住宅類" Then

If sn（n） = “” Then

s7（n） = "缺房屋類型，"

End If

If sp（n） = “” Then

s9（n） = "缺個人姓名，"

End If

If sq（n） = “” Then

s15（n） = "缺個人身份，"

End If

End If

（4）多戶住宅未填項目名稱項和單位名稱項，檢查示例代碼為：

If sn（n） = "多戶住宅" Then

If sk（n） = “” Then

s5（n） = "缺項目名稱，"

End If

If so（n） = “” Then

s8（n） = "缺單位名稱，"

End If

End If

（5）公共管理服務(wù)類或產(chǎn)業(yè)類未填房屋用途項和建設(shè)主體名稱項，檢查示例代碼為：

If sc（n） = "公共管理服務(wù)類" Or sc（n） = "產(chǎn)業(yè)類" Then

If sw（n） = “” Then

s11（n） = "缺房屋用途，"

End If

If sx（n） = “” Then

s12（n） = "缺建設(shè)主體名稱，"

End If

End If

其次是填寫項之間的邏輯關(guān)系檢查，主要包括以下2項：

（1）在住宅類“是否符合一戶一宅或符合分戶條件但未分戶”項填寫了“否”，但是在“一戶多宅的原因”項沒有填寫原因的，檢查示例代碼為：

If su（n） = "否" And sv（n） = "" Then

s10（n） = "缺一戶多宅原因，"

End If

（2）在公共管理服務(wù)類/產(chǎn)業(yè)類“是否上級部門有明確要求”項填寫了“是”，但是在“部門名稱”項沒有填寫具體部門名稱的，檢查示例代碼為：

If saa（n） = "是" And sab（n） = "" Then

s13（n） = "缺部門名稱，"

End If

1.3? 格式設(shè)置

激活模板表，將數(shù)據(jù)成功輸入之后，還需要對有數(shù)據(jù)的單元格進行格式設(shè)置，將單元格邊框設(shè)置為所有框線，顏色自動。示例代碼為：

Range（“A” & 1 & “：W” & k + 3）.Select

Selection.Borders（xlEdgeLeft）.Weight = xlThin

Selection.Borders（xlEdgeLeft）.LineStyle = xlContinuous

Selection.Borders（xlEdgeLeft）.ColorIndex = xlColorIndexAutomatic

本示例僅列舉了設(shè)置左邊框的代碼，要設(shè)置右、上、下、水平、豎直方向的邊框時，只需將本示例中的“xlEdgeLeft”替換為“xlEdgeRight”、“xlEdgeTop”、“xlEdgeBottom”、“xlInsideHorizontal”、“xlInsideVertical”即可。

2? 程序適應(yīng)性

本方法實現(xiàn)了對農(nóng)村亂占耕地建房問題摸排項目網(wǎng)絡(luò)WEB端系統(tǒng)平臺導(dǎo)出的項目清單總表的自動整理和檢查標(biāo)注，整理后，所有鄉(xiāng)鎮(zhèn)的數(shù)據(jù)都按類別分別歸入了住宅類、公共管理服務(wù)類/產(chǎn)業(yè)類兩個總表上，有疑問的項進行了標(biāo)注，如圖5、圖6所示。

程序只對縣級轄區(qū)內(nèi)的摸排項按類別進行了區(qū)分，并未按不同鄉(xiāng)鎮(zhèn)生成對應(yīng)的分鄉(xiāng)鎮(zhèn)表格。因此，如果需要按鄉(xiāng)鎮(zhèn)進行打印，一種方法是可以通過Excel的篩選功能按不同的鄉(xiāng)鎮(zhèn)來打印;另一種解決方法是在網(wǎng)絡(luò)WEB端系統(tǒng)平臺上，按鄉(xiāng)鎮(zhèn)篩選，分鄉(xiāng)鎮(zhèn)導(dǎo)出項目清單表，再按本方法的自動整理程序進行整理，做成每個鄉(xiāng)鎮(zhèn)的清單表，再逐一按鄉(xiāng)鎮(zhèn)進行打印。

3? 結(jié)? 論

本方法可以快速對農(nóng)村亂占耕地建房問題摸排項目網(wǎng)絡(luò)WEB端系統(tǒng)平臺導(dǎo)出的項目清單表進行自動整理，規(guī)范一些不標(biāo)準(zhǔn)的填寫值，對填寫漏項和邏輯有誤的進行準(zhǔn)確提示，大大降低了錯誤率，提高了工作效率，降低了生產(chǎn)成本。

參考文獻：

[1] 馬維峰.Excel VBA應(yīng)用開發(fā)從基礎(chǔ)到實踐 [M].北京：電子工業(yè)出版社，2006.

[2] 趙志東.Excel VBA技巧應(yīng)用 [M].北京：人民郵電出版社，2007.

[3] 楊洋.深入淺出Excel VBA [M].北京：電子工業(yè)出版社，2019.

[4] 盧紹婷，周俊暉.農(nóng)村亂占耕地建房整治方法研究與系統(tǒng)實現(xiàn) [J].國土資源信息化，2021（2）：48-53.

[5] 自然資源部 農(nóng)業(yè)農(nóng)村部.自然資源部農(nóng)業(yè)農(nóng)村部關(guān)于農(nóng)村亂占耕地建房“八不準(zhǔn)”的通知 [J].農(nóng)民文摘，2020（9）：6.

作者簡介：林明貴（1983.04—），男，漢族，福建福州人，中級工程師，本科，研究方向：測繪工程。