Contenido
Sub EjemploAtanh()
Dim resultado As Double
Dim numero As Double
numero = 0.5 ' Cambia este valor al que quieras calcular su arcotangente hiperbólico
' Asegúrate de que el número esté en el rango -1 < número < 1, que es el dominio para atanh
If numero <= -1 Or numero >= 1 Then
MsgBox "El número debe estar entre -1 y 1, sin incluirlos."
Exit Sub
End If
' Calcula el arcotangente hiperbólico del número
resultado = Application.WorksheetFunction.Atanh(numero)
' Muestra el resultado
MsgBox "El arcotangente hiperbólico de " & numero & " es " & resultado
End Sub
En el código anterior, el procedimiento EjemploAtanh calcula el arcotangente hiperbólico de la variable numero. Ten en cuenta que el WorksheetFunction.Atanh solo acepta números en el rango (-1, 1) (excluyendo -1 y 1), ya que fuera de este rango la función no está definida.
Luego, el resultado de la función se muestra en un cuadro de mensaje. Si intentas calcular el arcotangente hiperbólico de un valor fuera del rango válido, el código muestra un mensaje de error y termina.
Si necesitas utilizar esta función con otros trabajos en hojas de Excel, puedes gestionar el resultado de Atanh de acuerdo con tus requerimientos de aplicación.