“宏”应用于农村集体土地确权项目的内业优化

何纪新，熊 文

（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.