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

Программирование на Visual Basic for Applications
glazunov
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 01.12.2012 (Сб) 14:12

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

Сообщение glazunov » 01.12.2012 (Сб) 14:15

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

glazunov
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 01.12.2012 (Сб) 14:12

Re: Народ помогай

Сообщение glazunov » 01.12.2012 (Сб) 14:16

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

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 01.12.2012 (Сб) 14:24

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

glazunov
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 01.12.2012 (Сб) 14:12

Re: Народ помогай Я идиот! Убейте меня, кто-нибудь!

Сообщение glazunov » 01.12.2012 (Сб) 14:25

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

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 01.12.2012 (Сб) 14:35

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

glazunov
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 01.12.2012 (Сб) 14:12

Re: Народ помогай Я идиот! Убейте меня, кто-нибудь!

Сообщение glazunov » 01.12.2012 (Сб) 14:59

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

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 01.12.2012 (Сб) 15:36

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

glazunov
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 01.12.2012 (Сб) 14:12

Re: Народ помогай Я идиот! Убейте меня, кто-нибудь!

Сообщение glazunov » 01.12.2012 (Сб) 15:45

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
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 01.12.2012 (Сб) 16:24

glazunov писал(а):вот что у меня получилось

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

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

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


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 13

    TopList