вот программма)
она работает если, убрать ту часть, где надо вставлять значения переменных в ячейки excel и добавить msgbox y.

мне нужно что бы программа заполняла сама ячейки.

ошибка 9
ему не нравится строчка Sheets("лист 2").Cells(1, 1) = "a="
дальше не идёт, хотя считает

помогите)

Option Explicit
Sub progr1()


Dim a As Single, b As Single, c As Single
Dim x As Single, y As Single




a = InputBox("a=")

c = 4 * a - 2
b = 4 * a - 3 * (c ^ 2)
x = c ^ 2 + 3 * b * (c ^ 2) - 3 * b
y = x ^ 2 - x ^ 4 + c ^ 2


Sheets("лист 2").Cells(1, 1) = "a="
Sheets("лист 2").Cells(1, 2) = "c="
Sheets("лист 2").Cells(1, 3) = "b="
Sheets("лист 2").Cells(1, 4) = "x="
Sheets("лист 2").Cells(1, 5) = "y="



Sheets("лист 2").Cells(2, 1) = a
Sheets("лист 2").Cells(2, 2) = c
Sheets("лист 2").Cells(2, 3) = b
Sheets("лист 2").Cells(2, 4) = x
Sheets("лист 2").Cells(2, 5) = y



End Sub

да, точно пробел есть)
а можно поподробней про ActiveSheet.Cells ?)

спасибо огромное !!!!!))))))))))
через ActiveSheet.Cells всё заработало!!!!!!!
спасибо ещё раз!
=DDD