用宏向excel非活动单元格返回值的问题，寻求帮助

[hejisan]

我最近想做个坐标方位角反算的宏，用的是VBA，代码如下：
Function zbfwj(x1 As Double, y1 As Double, x2 As Double, y2 As Double)
Dim c As Double, f As Double, m As Double, n As Double, p As Double, o As Double, x As Double, y As Double
Const pi = 3.14159265358979
x = x2 - x1
y = y2 - y1
If x = 0 And y > 0 Then
ActiveCell.Offset = 90
ElseIf x = 0 And y < 0 Then
ActiveCell.Offset = 270
ElseIf x Then
c = Atn(y / x)
f = c * (180 / pi)
If x > 0 And y > 0 Then k = f
If x < 0 And y > 0 Then k = f + 180
If x < 0 And y < 0 Then k = 180 + f
If x > 0 And y < 0 Then k = 360 + f
m = Fix(k)
n = Fix((k = m) * 60)
p = CInt((((k - m) * 60) - h) * 60)
ActiveCell.Offset(0, 0) = m
ActiveCell.Offset(0, 1) = n
ActiveCell.Offset(0, 2) = p
End If
End Function

目的是在当前单元格返回度m，在列向相邻的单元格里返回分n,在列向相间的单元格里返回秒p。但是提示我有循环引用，或者值错误，我知道是单元格操作有问题，方位角算法正确。请求高手帮助！！！不胜感激。

[ACMAIN_CHM]

单步调试一下。

QQ群 48866293 OFFICE应用挖掘
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》