Contenido
Sub EjemploAsin()
Dim resultado As Double
Dim numero As Double
' Supongamos que tienes un seno de 0.5 y quieres encontrar el ángulo.
numero = 0.5
' Usamos la función Asin para obtener el arcoseno de 0.5
resultado = Application.WorksheetFunction.Asin(numero)
' Imprime el resultado en la ventana de inmediato
Debug.Print "El arcoseno de " & numero & " es: " & resultado & " radianes"
End Sub
Este código define una subrutina llamada EjemploAsin que calcula el valor del arcoseno del número 0.5 y lo imprime en la ventana Inmediato del Editor de VBA.
Es importante recordar que el rango de valores de entrada para la función arcoseno debe estar entre -1 y 1. Si intentas calcular el arcoseno de un número fuera de este rango, obtendrás un error en tiempo de ejecución.
Si deseas convertir el resultado de radianes a grados, puedes multiplicarlo por 180/pi, como se muestra a continuación:
resultado = Application.WorksheetFunction.Asin(numero)
resultadoGrados = resultado * 180 / Application.WorksheetFunction.Pi()
Agrega esta línea después de calcular el arcoseno para obtener el resultado en grados y adaptar tus necesidades según sea el caso.