Jeffrey Smith
Well-known Member
- Joined
- Feb 11, 2005
- Messages
- 795
Is it possible to use a VBA function in a cell like this:
=QPTan2x(123,301.76) < entered into a cell
In VBA:
Function QPTan2X(X!, Y!)
Dim Tmp!, PI As Double
PI = Atn(1) * 4
If X! = 0! Then
Tmp! = Sgn(Y!) * (PI / 2!)
ElseIf X! > 0! Then
Tmp! = Atn(Y! / X!)
ElseIf Y! >= 0! Then
Tmp! = PI + Atn(Y! / X!)
Else
Tmp! = -PI + Atn(Y! / X!)
End If
Tmp! = 180 * Tmp! / PI
If Tmp! < 0! Then Tmp! = Tmp! + 360!
QPATAN2x = Tmp!
End Function
=QPTan2x(123,301.76) < entered into a cell
In VBA:
Function QPTan2X(X!, Y!)
Dim Tmp!, PI As Double
PI = Atn(1) * 4
If X! = 0! Then
Tmp! = Sgn(Y!) * (PI / 2!)
ElseIf X! > 0! Then
Tmp! = Atn(Y! / X!)
ElseIf Y! >= 0! Then
Tmp! = PI + Atn(Y! / X!)
Else
Tmp! = -PI + Atn(Y! / X!)
End If
Tmp! = 180 * Tmp! / PI
If Tmp! < 0! Then Tmp! = Tmp! + 360!
QPATAN2x = Tmp!
End Function