Модуль VB

[rainbow]

Помогите пожалуйста, написал модуль для введения новых функций в Excel, который пересчитывает из одной координатной системы в другую

Const pi As Double = 3.14159265358979
Const X1 As Double = 1444.02
Const Y1 As Double = -2105.91
Const A1 As Double = 6400000
Const B1 As Double = 576000
Const X2 As Double = 1741.74
Const Y2 As Double = -2255.49
Const A2 As Double = 6470000
Const B2 As Double = 576000

Function Arccos(x) As Double

Arccos = Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)

End Function

Function Coordx(Xn, Yn) As Double

Dim S1, S2, Q1, Q2, D, dA, dB, dX, dY As Double

S1 = Sqr((A2 - A1) ^ 2 + (B2 - B1) ^ 2)
S2 = Sqr((X2 - X1) ^ 2 + (Y2 - Y1) ^ 2)
If B2 - B1 < 0 Then
Q1 = 2 * pi - (Arccos((A2 - A1) / S1))
Q2 = 2 * pi - (Arccos((X2 - X1) / S1))
Else
Q1 = Arccos((A2 - A1) / S1)
Q2 = Arccos((X2 - X1) / S1)
End If
D = Q1 - Q2
dA = Xn - X1
dB = Yn - Y1
dX = dA * Cos(D) - dB * Sin(D)
dY = dA * Sin(D) + dB * Cos(D)
Coordx = A1 + dX
End Function

Function Coordy(Xn, Yn) As Double

Dim S1, S2, Q1, Q2, D, dA, dB, dX, dY As Double

S1 = Sqr((A2 - A1) ^ 2 + (B2 - B1) ^ 2)
S2 = Sqr((X2 - X1) ^ 2 + (Y2 - Y1) ^ 2)
If B2 - B1 < 0 Then
Q1 = 2 * pi - (Arccos((A2 - A1) / S1))
Q2 = 2 * pi - (Arccos((X2 - X1) / S1))
Else
Q1 = Arccos((A2 - A1) / S1)
Q2 = Arccos((X2 - X1) / S1)
End If
D = Q1 - Q2
dA = Xn - X1
dB = Yn - Y1
dX = dA * Cos(D) - dB * Sin(D)
dY = dA * Sin(D) + dB * Cos(D)
Coordy = B1 + dY
End Function

Но работать он почему то не хочет. В функциях код повторяется, можно ли как то это всё организовать в подпрограмму? И можно ли заменить функцию арккосинуса на процедуру, чтобы в Excel она не была видна?

[EducatedFool]

Но работать он почему то не хочет

Весь этот код надо просто вставить в стандартный модуль - и всё будет работать.

В функциях код повторяется, можно ли как то это всё организовать в подпрограмму?

Всего 2 функции - поэтому не вижу смысла оптимизировать.
Было бы 20 или 200 функций - тогда, конечно, имело бы смысл.

И можно ли заменить функцию арккосинуса на процедуру, чтобы в Excel она не была видна?

А какой смысл скрывать эту функцию?
Ну переименуйте её, к примеру.
Или скройте все формулы на листе.

[rainbow]

Сообщение от EducatedFool

Весь этот код надо просто вставить в стандартный модуль - и всё будет работать.

Работать в Excel он не хочет
Выдает следующую ошибку

PS. Нашел ошибки в формулах, аркосинус вычисляется так, Arccos((X2G - X1G) / SG1), и не объявил кое какие переменные и контанту pi, переписал модуль с нуля, всё заработало, код выложил в первом посте.