基于Excel VBA测绘数据处理自定义函数的开发.pdf

《基于Excel VBA测绘数据处理自定义函数的开发.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第6期矿山测量NO．62015年12月MINESURVEYINGDec．2015doi：10．3969／j．issn．1001—358X．2015．06．024基于ExcelVBA测绘数据处理自定义函数的开发木赵淑湘(甘肃林业职业技术学院，甘肃天水741020)摘要：在ExcelVBA平台下进行测绘数据处理自定义函数的开发，不仅高效便捷，而且还可以与工作表单元格(区域)之间进行数据的输入与输出，以实现动态化运算，提高数据处理的工作效率。文中结合具体案例，较详细地介绍了基于ExcelVBA自定义函数开发的语法格式、使用方法及其主要代码实

2、现，以方便开发人员参考借鉴。关键词：ExcelVBA；测绘数据处理；自定义函数；开发中图分类号：P209文献标识码：B文章编号：1001—358X(2015)06—0077—04卡”，最后点击“确定”命令按钮。返回Excel主界面1引言后，在“开发工具”选项卡中点击“VisualBasic”，便MicrosoftExcel是微软办公套装软件的一个重进入VBA编辑窗口，或者同时按住“ALT+F11”键，要的组成部分，它可以进行各种数据的处理、统计分也可以进入VBA编辑窗口。在VBA中，点击菜单栏析和辅助决策，广泛地应用于管理、统计财经、

3、金融的“插入(I)”>“模块(M)”，打开模块代码窗口后，等众多领域。在测绘应用方面，如果仅使用Excel工就可以编写自定义函数了。作表中的公式函数，很难解决较复杂的测绘数据处2．1函数声明理问题，但借助于二次开发平台ExcelVBA，结合Ex．声明自定义函数的语法如下：cel强大的数据运算及友好便捷的输入、输出，可以[PrivateIPublic][Static]Function函数过程名很方便地进行测绘程序的设计，其中采用自定义函([参数列表])[As类型]数的方式开发就是一个很好的选择，不但可以接收局部变量或常数定义Excel的

4、单元格(区域)值为参数，还可以将单个或多语句个运算结果直接返回到Excel工作表单元格中，同时函数名=返回值还可以通过“Application．WorksheetFunction”对象接[ExitFunction]口直接调用Excel工作表函数。因此，作者基于Ex．语句celVBA中开发了如地形图的分幅与编号、高斯投影函数名=返回值正反算、四参数坐标转换、七参数坐标转换、抵偿坐EndFunction标计算等较复杂的测绘数据处理自定义函数]，其中：Public：(可选的，缺省时的默认选项)表明不但实用方便、而且易于数据管理和打印输出，具

5、有所有活动的ExcelVBA工程中所有模块的所有其他很好的应用价值。本文将结合具体案例，较详细地过程都可以访问该函数；介绍ExcelVBA自定义函数开发的语法格式、使用Private：(可选的)表明只有同一个模块中的其方法及其主要代码实现，供开发人员参考。他过程才能访问该函数；2创建自定义函数Static：(可选的)在两个调用之间，保留自定义函数中声明的变量值。在Excel2007及以上版本界面中，点击最左上2．2函数参数角的Office图标，然后点击右下方的“Excel选项”，参数可以是变量(包括数组)、常量、字面量或表在“常用”中

6、勾选“在功能区显示“开发工具”选项达式。根据需要编写的函数可以没有参数，可以有基金项目：甘肃林业职业技术学院科技计划资助项目(gsly一固定数量的必要参数(1到60)，也可以既有必需参201504)数，又有可选的参数。77第6期矿山测量2015年12月(1)接受单元格区域为数组参数2．3函数的返回值如自定义函数接受的参数为单元格区域时，形自定义函数可以返回单个值，也可以返回多个参的数据类型为Range，在对输入的单元格区域中数值，还可能要根据错误类型返回错误结果。据操作时，要使用ForEach—Next构造语句，且不必(1)返回多个数

7、组值知道集合中有多少个元素。ForEach—Next构造的即返回包含一个数组的Variant数据类型的值。语法如下：其使用方法与Excel中的矩阵运算函数一样，首先选ForEach元素In组合定单元格区域，输入公式后，同时按住[Ctr1]+[语句块1][shift]+[Enter]键，则返回数组值。如文献[5]中[ExitFor]七参数法坐标转换的自定义函数，返回的是计算后[语句块2]的七个参数值。即在语句中定义了一个二维数组qcNext[元素](7，2)，第1列存放七个参数的说明性符号，第二列在定义“元素”时，其数据类型为Varia

8、nt。如四存放相应参数值。最后一行语句“qcs=qc”表明该参数法坐标转换函数的声明⋯：csqj(zhqAsRange，函数将返回七个参数的符号及数值。zhhAsRange)，转换前参数变量zhq和转换后参数(2)返回错