vba 自定义函数-求距离
2019-11-19 本文已影响0人
楊黎
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
