Добрый день!
Собственно задача простая: решить квадратное уравнение ax^2 + bx+c =0
В таблицу вводят данные a,b,c. Дальше пользователь должен нажать на кнопку и в ответе появится ответ. и тут проблема с макросом возникла " Object doesn't support this property or method (Error 438) " Объясните, что не так
Sub Res()
Dim y As String
Dim ax, bx, dx, al, be, a, b, c As Single
a = Cells(3, 2).Valua
b = Cells(4, 2).Valua
c = Cells(5, 2).Valua
If b ^ 2 - 4 * a * c < 0 Then
al1 = -b / (2 * a)
be1 = Sqr(-b ^ 2 + 4 * a * c) / (2 * a)
y = "Есть два иррациональных корня х1= " + al + "+ i " + be + ", x2 = " + al + "- i " + be
ElseIf b ^ 2 - 4 * a * c = 0 Then
ax = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
y = "Есть один корень х=" + ax
Else
ax = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
bx = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
y = "Есть два корня х1 " + ax + ", x2 = " + bx
End If
Range("B6").Select
ActiveCell.FormulaR1C1 = y
End Sub
В файле лист З1 Л3.
