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函数相同，注意参数个数：
