VBA Tan – Find Tangent of Number in Radians Using VBA Tan() Function

To find the tangent of a number (in radians) with VBA, we can use the VBA Tan() function.

Tan(x)

In VBA, we can easily use trigonometric functions from the collection of VBA math functions. These VBA math functions allow us to perform trigonometry easily.

To find the tangent of a number, or the sine divided by the cosine of an angle, in radians, we use the VBA Tan() function.

Below is the VBA syntax to find the tangent of a number.

Tan(x)

The input to the Tan() function must be a double. The return value will be a double between negative infinity and infinity.

Debug.Print Tan(WorksheetFunction.Pi/3)
Debug.Print Tan(0)
Debug.Print Tan(WorksheetFunction.Pi/2)

'Output:
1.7320508075688767
0.0
1.633123935319537e+16

Converting Degrees to Radians for Input into Tan()

The Tan() function takes a number in radians as input. If your data is in degrees, you will need to convert the values to radians.

To convert degrees to radians, we can use the Worksheet Function Radians() to convert the value to radians and then pass it to the Tan() function.

Debug.Print Tan(WorksheetFunction.Radians(60))
Debug.Print Tan(WorksheetFunction.Radians(0))
Debug.Print Tan(WorksheetFunction.Radians(90))

'Output:
1.7320508075688767
0.0
1.633123935319537e+16

Finding the Inverse Tangent of a Number in VBA

With VBA, we can also find the inverses of the common trigonometric functions. The Atn() function allows us to find the inverse of the tangent of a number.

Below, we show that if we pass a number to Tan() and then call the VBA Atn() function, we get back the same number.

Debug.Print Atn(Tan(WorksheetFunction.Pi/3))
Debug.Print WorksheetFunction.Pi/3; 

'Output:
1.0471975511965976
1.0471975511965976

Finding the Cotangent of a Number in VBA

To find the cotangent of a number, we can divide 1 by the sine of the number.

We can find the cotangent of a number easily with the VBA Tan() function. You can see how to find the cotangent of a number in the following VBA code.

Debug.Print 1/Tan(WorksheetFunction.Pi/3)

'Output:
0.577350269189626

Hopefully this article has been beneficial for you to understand how to use the Tan() function in VBA to find the tangent of a number.