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

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

關鍵詞：農村亂占耕地建房;問題摸排;Excel VBA;自動整理

中圖分類號：TP311? ? ? ? ?文獻標識碼：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? 引? 言

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

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

1? 方法步驟

1.1? 制作模板表

首先，分析網絡Web端系統平臺導出的完整信息表，自A列至AY列，共有51列，依次為“基本信息”“住宅類”“公共管理服務類/產業類”“管理信息”“外業核實記錄”“摸排確認結果”六個大項。項目清單表樣式如圖2所示。

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

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

1.2? 添加功能代碼

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

sa（n） = Cells（i， 1）

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

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

檢查發現，坐落位置列存在“××鎮-××鎮××村”的不規范值，需要統一表達為“××鎮××村”，自動修正的示例代碼為：

s4 = “-”

se（n） = Cells（i， 5）? ? ? ? ? ? '鄉鎮名稱

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

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

（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）公共管理服務類或產業類未填房屋用途項和建設主體名稱項，檢查示例代碼為：

If sc（n） = "公共管理服務類" Or sc（n） = "產業類" Then

If sw（n） = “” Then

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

End If

If sx（n） = “” Then

s12（n） = "缺建設主體名稱，"

End If

End If

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

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

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

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

End If

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

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

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

End If

1.3? 格式設置

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

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

Selection.Borders（xlEdgeLeft）.Weight = xlThin

Selection.Borders（xlEdgeLeft）.LineStyle = xlContinuous

Selection.Borders（xlEdgeLeft）.ColorIndex = xlColorIndexAutomatic

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

2? 程序適應性

本方法實現了對農村亂占耕地建房問題摸排項目網絡WEB端系統平臺導出的項目清單總表的自動整理和檢查標注，整理后，所有鄉鎮的數據都按類別分別歸入了住宅類、公共管理服務類/產業類兩個總表上，有疑問的項進行了標注，如圖5、圖6所示。

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

3? 結? 論

本方法可以快速對農村亂占耕地建房問題摸排項目網絡WEB端系統平臺導出的項目清單表進行自動整理，規范一些不標準的填寫值，對填寫漏項和邏輯有誤的進行準確提示，大大降低了錯誤率，提高了工作效率，降低了生產成本。

參考文獻：

[1] 馬維峰.Excel VBA應用開發從基礎到實踐 [M].北京：電子工業出版社，2006.

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

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

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

[5] 自然資源部 農業農村部.自然資源部農業農村部關于農村亂占耕地建房“八不準”的通知 [J].農民文摘，2020（9）：6.

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