首页

  1. 首页
  2. 测绘论文
  3. 内容

如何增加Excel测量计算函数?

Excel有许多功能很强的计算函数,但没有我们需要的测量计算函数,利用Excel的宏可以随心所欲的为Excel增加函数。

打开“Visual Basic 编辑器”:

点击菜单:“工具”、“宏”、“Visual Basic 编辑器”

添加“模块”(“模块”是与VB通用的.bas文件,模块文件可以加载到其它的Exce文件中使其可以使用其中的函数,也可供VB程序使用):

在“visual basic 编辑器”中点击菜单:“插八”、“模块”

插入模块前:

插入模块后:

在新增的模块中添加各种函数,如方位角计算:

Function fwj(xa, ya, xb, yb As Range)

Pi = Atn(1) * 4#

fwj = 180 * (1 - Sgn(yb - ya) / 2) - Atn((xb - xa) / (yb - ya)) * 180 / Pi

End Function

使用方法与Excel函数相同,注意参数个数:

相关文章

回到顶部
请复制以下网址分享
如何增加Excel测量计算函数?
http://m.civilcn.com/cehui/chlw/1357375735172189.html