何紀(jì)新，熊 文

（1.德興市國(guó)土資源局，江西 德興334200；2.江西省煤田地質(zhì)局 測(cè)繪大隊(duì)，江西 南昌330001）

1 概述

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

“宏”是一組計(jì)算機(jī)指令，可以錄制下來與快捷鍵組合或“宏”名稱關(guān)聯(lián)起來，它具有很強(qiáng)的自動(dòng)化功能，在內(nèi)業(yè)批量處理一些文件、表格時(shí)，只需要在“宏”里面定義好，然后點(diǎn)擊執(zhí)行就能完成想要的操作。

2 土地確權(quán)項(xiàng)目?jī)?nèi)業(yè)所涉及的重復(fù)作業(yè)

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

圖1 權(quán)屬來源說明書、法律責(zé)任具結(jié)保證書

圖1 中手工填寫的部分都可以通過自定義“宏”來實(shí)現(xiàn)批量生成并打印，而不必采用手工填寫。當(dāng)宗地?cái)?shù)比較多的情況，引入“宏”設(shè)計(jì)，則可以大大提高工作效率。

3 “宏”在處理土地確權(quán)項(xiàng)目?jī)?nèi)業(yè)中的應(yīng)用

分析農(nóng)村集體土地確權(quán)項(xiàng)目?jī)?nèi)業(yè)的重復(fù)作業(yè)，不難發(fā)現(xiàn)，其實(shí)處理這些作業(yè)最好的辦法就是在EXCEL程序中設(shè)計(jì)好模版，需要填寫或者賦值的就空在那里，用下劃線表示空缺。再從數(shù)據(jù)庫信息系統(tǒng)中以宗地為單位導(dǎo)出各宗地的屬性數(shù)據(jù)。然后再設(shè)計(jì)宏，通過程序代碼的調(diào)用和讀取功能，把導(dǎo)出的屬性數(shù)據(jù)按照序號(hào)進(jìn)行批量生成和打印。如農(nóng)村集體土地所有權(quán)土地證書的打?。ㄒ妶D2）和宗地信息表的生成（見圖3），土地權(quán)屬來源說明書和法律責(zé)任具結(jié)保證書的處理也可采用類似的方法進(jìn)行處理。

圖2 土地證書模版

在EXCEL中設(shè)計(jì)“宏”，具體步驟如下：

（1）錄制一個(gè)“宏”。

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

圖3 宗地信息表

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

（4）點(diǎn)擊“宏”，進(jìn)入EXCEL中自帶的VB編輯器，然后創(chuàng)建窗口，在窗口里設(shè)計(jì)一個(gè)文本按鈕、三個(gè)命令按鈕（見圖4）。

圖4 窗口設(shè)計(jì)

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

“宏”的讀取程序命令和執(zhí)行下一個(gè)程序的命令，代碼如下：

（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）＇號(hào)

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

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

Sheet1.Cells（5，3）＝Sheet2.Cells（n，1）＇地號(hào)

Sheet1.Cells（5，11）＝Sheet2.Cells（n，4）＇圖號(hào)

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）＇號(hào)

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

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

Sheet1.Cells（5，3）＝Sheet2.Cells（n，1）＇地號(hào)

Sheet1.Cells（5，11）＝Sheet2.Cells（n，4）＇圖號(hào)

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

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

End Sub

4）執(zhí)行宏

在EXCEL中，分成兩幀，一個(gè)是模版，一個(gè)是從數(shù)據(jù)庫導(dǎo)出的信息表。點(diǎn)擊EXCEL表菜單中的“執(zhí)行宏”，自動(dòng)彈出設(shè)計(jì)好的窗口，點(diǎn)擊命令，則會(huì)呈現(xiàn)出第一幀某格內(nèi)容，自動(dòng)按需讀取第二幀的內(nèi)容，從而完成自動(dòng)生成功能（見圖5）。

圖5 “宏”執(zhí)行效果

4 結(jié)語

“宏”在EXCEL表中有很重要的作用，而EXCEL表又是農(nóng)村集體土地確權(quán)項(xiàng)目?jī)?nèi)業(yè)不可或缺的一個(gè)工具，因此，應(yīng)用好“宏”，對(duì)農(nóng)村集體土地確權(quán)項(xiàng)目可起到很重要的作用，特別是應(yīng)用于農(nóng)村集體土地確權(quán)項(xiàng)目的內(nèi)業(yè)優(yōu)化，可以提高工作效率，減少勞動(dòng)力成本。

〔1〕馬 軍.EXCEL數(shù)據(jù)處理與圖表應(yīng)用實(shí)例精講〔M〕.北京：科學(xué)出版社，2006，7.

〔2〕朱印宏.EXCEL財(cái)務(wù)應(yīng)用技能教程〔M〕.北京：清華大學(xué)出版社，2005，6.

〔3〕李曉政，揚(yáng)小平.EXCEL中的VBA程序設(shè)計(jì)〔J〕.四川師范學(xué)院學(xué)報(bào)（自然科學(xué)版），2004，4.