vba 自定义函数-求距离

1、计算平面距离

Function jl_xy(x1 , y1 , x2 , y2 ) As Double

'函数功能：计算平面距离

Application.Volatile True '自动重算

jl_xy = ((x2 - x1) ^ 2 + (y2 - y1) ^ 2) ^ 0.5

End Function

2、计算空间距离

Function jl_xyz(x1 , y1 , z1 , x2 , y2 , z2 ) As Double

'函数功能：计算空间距离

Application.Volatile True '自动重算

jl_xyz = ((x2 - x1) ^ 2 + (y2 - y1) ^ 2 + (z2 - z1) ^ 2) ^ 0.5

End Function

3、计算平面空间距离

Function jl(x1 , x2 , y1 , y2 , Optional z1 = 0, Optional z2 = 0) As Double

'函数功能：计算距离

Application.Volatile True '自动重算

jl = ((x2 - x1) ^ 2 + (y2 - y1) ^ 2 + (z2 - z1) ^ 2) ^ 0.5

End Function