Народ помогай !!!!!

[glazunov]

Создайте программы для вычисления следующих выражений и функций.
Z=Exp(Sqr(B+A2))/Sqr(Log(B4+A2)).
Такую задачу надо сделать .

[glazunov]

Создайте программы для вычисления следующих выражений и функций.
Z=Exp(Sqr(B+A2))/Sqr(Log(B4+A2)).
Такую задачу надо сделать .

[Qwertiy]

Собственно, ты всё уже написал. ActiveSheet.Range("B4").

[glazunov]

нет я вообще не могу понять как это сделать

[Qwertiy]

Ты написал формулу, предположительно правильную. Остаётся из Excel'я получить значения ячеек. Запиши какой-нибудь макрос и посмотри на получившийся код.

[glazunov]

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

[Qwertiy]

Прям так, как ты её записал тут. Только без точки в конце и заменив ячейки на то, что я писал выше.

[glazunov]

ActiveCell.FormulaR1C1 = "2"
Range("B10").Select
ActiveCell.FormulaR1C1 = "3"
Range("A11").Select
ActiveCell.FormulaR1C1 = "3"
Range("B11").Select
ActiveCell.FormulaR1C1 = "4"
Range("C2").Select
ActiveCell.FormulaR1C1 = _
"=EXP(SQRT(R[-1]C[-1]+R[-1]C[-2]^2))/SQRT(LOG(RC[-1]^4+RC[-2]^2))"
Range("H8").Select
Columns("H:H").ColumnWidth = 52.43
ActiveSheet.Paste
Range("C10").Select
ActiveCell.FormulaR1C1 = _
"=EXP(SQRT(RC[-1]+RC[-2]^2))/SQRT(LOG(R[1]C[-1]^4+R[1]C[-2]^2))"
Range("C11").Select
End Sub

вот что у меня получилось, а как мне заменить расположение ячеек ( к примеру там написано В10) на компонент Бейсика Text, как это правильно записать , ActiveSheet.Range("B4") вот это писать в верху, а в самой формуле как записать ????

[Qwertiy]

вот что у меня получилось

Именование в стиле RC включено или макрос записан при выключенном?

ActiveSheet.Range("B4") вот это писать в верху, а в самой формуле как записать ????

В каком верху? В выражении и писать. Причём можно просто Range("B4").Value, наверное.
Или тебе надо в ячейку формулу записать? Тогда просто типа Range("A2").Formula="=SQRT(A1)".