Excel VBA Atn Function

VBA Atn Function: The Atn function in VBA returns the arctangent between quadrant -?/2 and +?/2 for the specified number, in radians.

Syntax

Atn (Number)

Parameter

Number (required) – This parameter represents the number that the user wants to calculate the arctangent of.

Return

This function returns the arctangent between quadrant -?/2 and +?/2 for the specified number, in radians.

Example 1

Sub AtnFunction_Example1()
 ' Calculating the arctangent for given numbers.
 Dim atn_val1 As Double
 Dim atn_val2 As Double
 atn_val1 = Atn(-2)
 ' The variable atn_val1 will return -1.10714871779409.
 Cells(1, 1).Value = atn_val1
 atn_val2 = Atn(0)
 ' The variable atn_val2 will return 0.
 Cells(2, 1).Value = atn_val2
 End Sub 

Output

-1.107148718

0

Example 2

Sub AtnFunction_Example2()
 ' Calculating the arctangent for given number.
 Dim atn_val1 As Double
 atn_val1 = Atn(0.977368999622)
 ' The variable atn_val1 will return 0.773953656919952.
 Cells(1, 1).Value = atn_val1
 End Sub 

Output

0.773953656919952

Example 3

Sub AtnFunction_Example3()
 ' Calculating the arctangent for given number.
 ' Convert the radians into degrees by multiplying by 180/pi _value.
 Dim atn_val As Double
 Const pi_val = 3.14159265358979
 atn_val = 0.523598775598298 * 180 / pi_val
 ' The variable atn_val will return 30 (degrees).
 Cells(1, 1).Value = atn_val
 End Sub 

Output

30

Example 4

Sub AtnFunction_Example4()
 ' Calculating the arctangent for given number.
 Dim atn_val1 As Double
 'for other formats apart from number
 atn_val1 = Atn("Hey")
 ' The variable atn_val1 will return mis match error.
 Cells(1, 1).Value = atn_val1
 End Sub 

Output