Cómo utilizar la programación VBA para calcular distancia y acimut en EXCEL

La fórmula para calcular la distancia azimutal en EXCEL La fórmula para calcular la distancia azimutal en EXCEL La fórmula para calcular el ángulo azimutal en la hoja de cálculo Formato de grados: =(PI()*(1 - SIGN(B3) -$B$1) / 2 ) - ATAN((A3-$A$1) /(B3-$B$1)))*180/PI() La fórmula para encontrar el ángulo de acimut en Excel: a1, b1 es el punto inicial coordenada del punto a3, b3 es la coordenada del punto final. Formato de grados, minutos y segundos: =INT((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3-$b$1)))* 180/ PI()) &"-"amp; INT( ((PI()*(1 - SIGNO(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3-$b; $1 )))*180 /PI()-INT((PI()*(1 - SIGNO(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3-$b$1) ) )*180/ ​​​​PI()))*60)amp;"-"amp;INT( (((PI()*(1 - SIGNO(B3-$b$1) / 2) - ATAN((A3 -$a $1) /(B3- $b$1)))*180/PI()-INT((PI()*(1 - SIGNO(B3-$b$1) / 2) - ATAN((A3-$ a$1) /(B3- $b$1)))*180/PI()))*60-INT(((PI()*(1 - SIGNO(B3-$b$1) / 2) - ATAN(( A3-$ a$1) / (B3-$b$1)))*180/PI()-INT((PI()*(1 - SIGNO(B3-$b$1) / 2) - ATAN((A3- $a$1 ) / (B3-$b$1)))*180/PI()))*60))*600)/10 Entre ellos: A1 y B1 almacenan las coordenadas de la estación de medición, y a3 y b3 almacenan las coordenadas del punto final. El cálculo anterior está en formato de grados, minutos y segundos, que es un formato de cadena. No se puede usar para calcular, ¡es solo para ver! El siguiente es más simple: =(PI()*(1 - SIGN(B3-B1) / 2) - ATAN((A3-A1) /(B3-B1)))*180/PI() Encuentra el ángulo de acimut en Fórmula Excel: a1, b1 pone las coordenadas del punto inicial a3, b3 pone las coordenadas del punto final. Fórmula de distancia: =Redondo(SQRT(POWER((A3-$A$1), 2) POWER((B3-$B$1), 2)), 3)