Topografía

Pega lo siguiente en un módulo de programación de Excel (Alt+F11)y ya tendrás la hoja con esas funciones.
Function Azimut(Xe, Ye, Xp, Yp)
Pi = 4 * Atn(1)
Azimut = Atn((Xp - Xe) / (Yp - Ye)) * 200 / Pi
If (Yp - Ye) < 0 Then Azimut = Azimut + 200
If (Yp - Ye) > 0 And (Xp - Xe) < 0 Then Az = Az + 400
End Function
Function Dr(Xe, Ye, Xp, Yp)
Dr = Sqr((Xp - Xe) * (Xp - Xe) + (Yp - Ye) * (Yp - Ye))
End Function
Function XX(Xe, Desorientacion, h, Distancia, v)
Pi = 4 * Atn(1)
XX = Xe + Distancia * Sin((h + Desorientacion) * Pi / 200)
End Function
Function YY(Ye, Desorientacion, h, Distancia, v)
Pi = 4 * Atn(1)
YY = Ye + Distancia * Cos((h + Desorientacion) * Pi / 200)
End Function