“宏”應用于農村集體土地確權項目的內業優化

何紀新，熊 文

（1.德興市國土資源局，江西 德興334200；2.江西省煤田地質局 測繪大隊，江西 南昌330001）

1 概述

農村集體土地確權項目包括農村集體土地所有權調查、集體建設用地使用權調查和宅基地使用權調查。通常來說，一個縣所有權宗地地塊數數千上萬，使用權則涉及數十萬宗地。在調查過程中，內業有很多表格需要填寫或者打印，然后交給土地權人手中進行簽字按手印，比如申請書、調查表、權屬來源說明書、法律責任具結保證書、土地證書等。項目剛開始的時候，很多表格都是人工填寫，但后來發現，如果在內業引入“宏”，則可以實現數據自動賦值，例如權屬來源說明書和法律責任具結保證書等就可以實現批量制作，不用手工逐條填寫。

“宏”是一組計算機指令，可以錄制下來與快捷鍵組合或“宏”名稱關聯起來，它具有很強的自動化功能，在內業批量處理一些文件、表格時，只需要在“宏”里面定義好，然后點擊執行就能完成想要的操作。

2 土地確權項目內業所涉及的重復作業

農村集體土地確權項目內業有很多重復作業，但是目前使用的地籍管理信息系統能實現其中的大部分重復作業程序化。比如批量生成宗地圖、地籍圖、批量處理各種拓撲錯誤和屬性錯誤，批量生出地籍調查表、申請書、審批表等。但是它無法滿足地方的要求：比如每一宗地的卷宗封面，由于各地檔案管理的不同，導致封面都不相同；還有權屬來源說明書和法律責任具結保證書等，目前信息系統軟件還須完善。當然這些功能利用系統軟件進行設計也可以完善，但畢竟要靠反饋問題給軟件方，再來處理相應的內業，這需要很多時間，由于項目工期緊，就直接采用手填的方法。工作量這么大，如果單靠手填，需耗費大量的人力和時間。但如果通過“宏”編輯則可以自行設計簡單的程序，利用電腦自動完成那些需要重復的工作，達到批量處理的目的（見圖1）。

圖1 權屬來源說明書、法律責任具結保證書

圖1 中手工填寫的部分都可以通過自定義“宏”來實現批量生成并打印，而不必采用手工填寫。當宗地數比較多的情況，引入“宏”設計，則可以大大提高工作效率。

3 “宏”在處理土地確權項目內業中的應用

分析農村集體土地確權項目內業的重復作業，不難發現，其實處理這些作業最好的辦法就是在EXCEL程序中設計好模版，需要填寫或者賦值的就空在那里，用下劃線表示空缺。再從數據庫信息系統中以宗地為單位導出各宗地的屬性數據。然后再設計宏，通過程序代碼的調用和讀取功能，把導出的屬性數據按照序號進行批量生成和打印。如農村集體土地所有權土地證書的打印（見圖2）和宗地信息表的生成（見圖3），土地權屬來源說明書和法律責任具結保證書的處理也可采用類似的方法進行處理。

圖2 土地證書模版

在EXCEL中設計“宏”，具體步驟如下：

（1）錄制一個“宏”。

（2）執行菜單欄中的“工具”→“宏”→“錄制新宏”命令，彈出“錄制新宏”對話框。

圖3 宗地信息表

（3）在“宏”名文本框中輸入“宏”的名稱；將光標置于“快捷鍵”下面的文本框中同時按下“宏”的快捷鍵，如ctrl＋shift＋s，便可將快捷鍵指定為ctrl＋shift＋s；保存在當前工作薄，最后單擊“確定”按鈕。

（4）點擊“宏”，進入EXCEL中自帶的VB編輯器，然后創建窗口，在窗口里設計一個文本按鈕、三個命令按鈕（見圖4）。

圖4 窗口設計

雙擊窗口各按鈕，則可以直接進行賦予代碼。

“宏”的讀取程序命令和執行下一個程序的命令，代碼如下：

（1）Private Sub CommandButton1＿Click（）

Dim n As Integer

n＝Int（TextBox1.Text）

Sheet1.Cells（2，3）＝Mid（Sheet2.Cells（n，6），5，4）＇年

Sheet1.Cells（2，5）＝ Mid（Sheet2.Cells（n，6），11，5）＇號

Sheet1.Cells（3，3）＝Sheet2.Cells（n，2）＇土地所有權人

Sheet1.Cells（4，3）＝Sheet2.Cells（n，3）＇地址

Sheet1.Cells（5，3）＝Sheet2.Cells（n，1）＇地號

Sheet1.Cells（5，11）＝Sheet2.Cells（n，4）＇圖號

Sheet1.Cells（6，3）＝Sheet2.Cells（n，8）＇面積

Sheet1.Cells（6，17）＝Sheet2.Cells（n，5）＇面積

End Sub

（2）Private Sub CommandButton2＿Click（）

Dim n As Integer

n＝Int（TextBox1.Text）

n＝n＋1

TextBox1.Text＝n

Sheet1.Cells（2，3）＝Mid（Sheet2.Cells（n，6），5，4）＇年

Sheet1.Cells（2，5）＝ Mid（Sheet2.Cells（n，6），11，5）＇號

Sheet1.Cells（3，3）＝Sheet2.Cells（n，2）＇土地所有權人

Sheet1.Cells（4，3）＝Sheet2.Cells（n，3）＇地址

Sheet1.Cells（5，3）＝Sheet2.Cells（n，1）＇地號

Sheet1.Cells（5，11）＝Sheet2.Cells（n，4）＇圖號

Sheet1.Cells（6，3）＝Sheet2.Cells（n，8）＇面積

Sheet1.Cells（6，17）＝Sheet2.Cells（n，5）＇

End Sub

4）執行宏

在EXCEL中，分成兩幀，一個是模版，一個是從數據庫導出的信息表。點擊EXCEL表菜單中的“執行宏”，自動彈出設計好的窗口，點擊命令，則會呈現出第一幀某格內容，自動按需讀取第二幀的內容，從而完成自動生成功能（見圖5）。

圖5 “宏”執行效果

4 結語

“宏”在EXCEL表中有很重要的作用，而EXCEL表又是農村集體土地確權項目內業不可或缺的一個工具，因此，應用好“宏”，對農村集體土地確權項目可起到很重要的作用，特別是應用于農村集體土地確權項目的內業優化，可以提高工作效率，減少勞動力成本。

〔1〕馬 軍.EXCEL數據處理與圖表應用實例精講〔M〕.北京：科學出版社，2006，7.

〔2〕朱印宏.EXCEL財務應用技能教程〔M〕.北京：清華大學出版社，2005，6.

〔3〕李曉政，揚小平.EXCEL中的VBA程序設計〔J〕.四川師范學院學報（自然科學版），2004，4.