Не могу понять что не так?

[ЮрийPI118]

Private Sub CommandButton1_Click()
Макрос1
End Sub
Sub Макрос1()
Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
Dim e As Double
Dim f As Double
Dim g As Double
Dim i As Double
Dim h As Double
Dim j As Double
pi = 3.14159265358979

a = ((1 * 2 * UserForm1.TextBox2 + 5 * UserForm1.TextBox1 * 1) / (1 * 5 * UserForn1.TextBox1 + 1 * (-2) * UserForm1.TextBox2) * 180 / pi)
b = ((1 * 3 * UserForm1.TextBox4 + 2 * UserForm1.TextBox3 * 1) / (1 * 2 * UserForm1.TextBox3 + 1 * (-3) * UserForm1.TextBox4) * 180 / pi)
c = ((1 * 1 * UserForm1.TextBox6 + 3 * UserForm1.Texybox5 * 1) / (1 * 3 * UserForm1.TextBox2 + 1 * 1 * UserForm1.TextBox6) * 180 / pi)
d = ((1 * 2 * UserForm1.TextBox8 + 4 * UserForm1.TextBox7 * 1) / (1 * 4 * UserForm1.TextBox7 + 1 * (-2) * UserForm1.TextBox8) * 180 / pi)
e = ((1 * 2 * UserForm1.TextBox10 + 3 * UserForm1.TextBox9 * 1) / (1 * 3 * UserForm1.TextBox7 + 1 * (-2) * UserForm1.TextBox10) * 180 / pi)

If a < 0 Then f = 360 + a Else f = a
If b < 0 Then g = 360 + b Else g = b
If c < 0 Then i = 360 + c Else i = c
If d < 0 Then h = 360 + d Else h = d
If e < 0 Then j = 360 = e Else j = e

UserForm1.TextBox11 = f
UserForm1.TextBox12 = g
UserForm1.TextBox13 = i
UserForm1.TextBox14 = h
UserForm1.TextBox15 = j

End Sub

Private Sub CommandButton2_Click()
End
End Sub

Пожалуйста, оформляйте Ваш код согласно правилам.

[ЮрийPI118]

Помогите пожалуйста

[Black Fregat]

Ошибка-то какая?

[ЮрийPI118]

Сообщение от Black Fregat

Ошибка-то какая?

да.

[Serge_Bliznykov]

вообще-то вместо картинок можно было сделать небольшой тестовый файл с кнопкой, формой и макросом.

по сути. попробуйте все значения из textBox'ов сначала в переменные взять и потом их использовать.
да, и, по моему, обращение должно идти через метод Text
(вместо UserForm1.TextBoxX надо UserForm1.TextBoxX.Text)

[ЮрийPI118]

Теперь такая ошика

[Serge_Bliznykov]

Сообщение от ЮрийPI118

Теперь такая ошика

1) читаете невнимательно.

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

попробуйте все значения из textBox'ов сначала в переменные взять и потом их использовать.

2) а что это за

a = ((1 * 2 * UserForm1.TextBox2 + 5 * UserForm1.TextBox1 * 1) / (1 * 5 * UserForn1.TextBox1 + 1 * (-2) * UserForm1.TextBox2) * 180 / pi)

я имел в виду написать примерно такой код:

Dim tb1 As Double, tb2 As Double, tb3 As Double, tb4 As Double

tb1 = CDbl( UserForm1.TextBox1.Text )
tb2 = CDbl( UserForm1.TextBox2.Text )
tb3 = CDbl( UserForm1.TextBox3.Text )
tb4 = CDbl( UserForm1.TextBox4.Text )
...

a = ((1 * 2 * tb2 + 5 * tb1 * 1) / (1 * 5 * tb1 + 1 * (-2) * tb2) * 180 / pi)
...

[ЮрийPI118]

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

1) читаете невнимательно.




2) а что это за

я имел в виду написать примерно такой код:

Dim tb1 As Double, tb2 As Double, tb3 As Double, tb4 As Double

tb1 = CDbl( UserForm1.TextBox1.Text )
tb2 = CDbl( UserForm1.TextBox2.Text )
tb3 = CDbl( UserForm1.TextBox3.Text )
tb4 = CDbl( UserForm1.TextBox4.Text )
...

a = ((1 * 2 * tb2 + 5 * tb1 * 1) / (1 * 5 * tb1 + 1 * (-2) * tb2) * 180 / pi)
...

Получилось. Спасибо большое