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.

## Leave a Reply