Таня
Таня

Почему одна и таже книга excel с vba на одном компе работает а на другом нет? (и будет ли у вас работать эта программа:?



Dim oa, oc, ab, bc, cd, de, fi
Dim xa, ya, xb, yb, xc, yc, xd, yd, xe, ye

Sub koords()
'A
xa = oa * Cos(fi): ya = oa * Sin(fi)
'S
xca = xc - xa: yca = yc - ya
ac = Sqr(xca ^ 2 + yca ^ 2)
ca = (ab ^ 2 + ac ^ 2 - bc ^ 2) / (2 * ab * ac)
sa = -Sqr(1 - ca ^ 2)
xb = xa + (xca * ca - yca * sa) * ab / ac
yb = ya + (xca * sa + yca * ca) * ab / ac
'D
xbc = xb - xc: ybc = yb - yc
xd = xc + ybc * cd / bc
yd = yc - xbc * cd / bc
'E
xe = 0
ye = yd + Sqr(de ^ 2 - (xe - xd) ^ 2)

End Sub

Private Sub SpinButton1_Change()
oa = 0.1: oc = 0.36: ab = 0.39: bc = 0.23: cd = 0.23: de = 0.35
xc = oc: yc = 0
n = SpinButton1.Value
If n = 360 Then SpinButton1.Value = 0
fi = n * 0.017453

koords
Cells(3, 2) = xa: Cells(3, 3) = ya
Cells(4, 2) = xb: Cells(4, 3) = yb
Cells(5, 2) = xc: Cells(5, 3) = yc
Cells(6, 2) = xd: Cells(6, 3) = yd
Cells(7, 2) = xe: Cells(7, 3) = ye

End Sub

РФ
Роман Фадеев

Наверное, версии Офиса разные - на одном и на другом...

АФ
Анастасия Фёдорова

На одном разрешили макросы, на другом - нет)

Похожие вопросы
Помогите с программой на VBA для Excel!
Во что компилирует код VBA Excel?
Вопрос про VBA excel
Почему на одном компе работает программа-а на другом нет?
Удаление столбца VBA Excel
excel формула или vba
Проблема с кодом в VBA Excel
Excel vba как применить для всех столбцов
вопрос по VBA Excel.
vba excel удаление совпадений