argacha respondió:
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...