Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Подстановка значений в формулу и вычисления значений - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Подстановка значений в формулу и вычисления значений (Формулы/Formulas)
Подстановка значений в формулу и вычисления значений
nofedosov Дата: Вторник, 19.12.2017, 12:08 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
Приветствую всех. Сразу оговорюсь, что с Excel я очень слабо знаком...постигаю по мере необходимости. Вот и пришла новая необходимость: "прогнать" через формулу ряд числе и получить соответствующие значения.
Вроде как просто, но не совсем, т.к. простым "протягиванием" формулы задачу не решить из-за самой формулы.
Сложность формулы состоит с том, что, при разных сценариях, ведется расчет по разным методикам.
=
Во вложенном файле расчет с результатом в С11
Перебирать аргументами нужно в С2
Получать в D17:D30 соответствующие значения С11 при аргументах С17:С30
К сообщению приложен файл: 6481843.xlsx (11.5 Kb)
 
Ответить
СообщениеПриветствую всех. Сразу оговорюсь, что с Excel я очень слабо знаком...постигаю по мере необходимости. Вот и пришла новая необходимость: "прогнать" через формулу ряд числе и получить соответствующие значения.
Вроде как просто, но не совсем, т.к. простым "протягиванием" формулы задачу не решить из-за самой формулы.
Сложность формулы состоит с том, что, при разных сценариях, ведется расчет по разным методикам.
=
Во вложенном файле расчет с результатом в С11
Перебирать аргументами нужно в С2
Получать в D17:D30 соответствующие значения С11 при аргументах С17:С30

Автор - nofedosov
Дата добавления - 19.12.2017 в 12:08
китин Дата: Вторник, 19.12.2017, 12:27 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
и вам не хворать. насколько я понял по вашему описанию формулы тут не подойдут . попробуйте макросом( но это если я правильно понял вас)
[vba]
Код
Sub TTT()
Dim i&
    For i = 17 To 30
     Cells(2, 3) = Cells(i, 3).Value
     Cells(i, 4).Value = Cells(11, 3).Value
    Next
    Cells(2, 3).Value = 0
End Sub
[/vba]
К сообщению приложен файл: nofedosov.xlsm (18.8 Kb)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениеи вам не хворать. насколько я понял по вашему описанию формулы тут не подойдут . попробуйте макросом( но это если я правильно понял вас)
[vba]
Код
Sub TTT()
Dim i&
    For i = 17 To 30
     Cells(2, 3) = Cells(i, 3).Value
     Cells(i, 4).Value = Cells(11, 3).Value
    Next
    Cells(2, 3).Value = 0
End Sub
[/vba]

Автор - китин
Дата добавления - 19.12.2017 в 12:27
sboy Дата: Вторник, 19.12.2017, 12:32 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Там только одно промежуточное вычисление ссылается на переменную (запихнул внутрь формулы)
Код
=ЕСЛИ(И($C$6>0;$C$7>0);ОКРУГЛ(ЕСЛИ(ИЛИ($C$9<0;И(C17>$C$9;C17<$C$3));$C$8-9,81*$C$5*($C$3-C17)*10^-6;($C$8-$C$5*9,81*10^-6*($C$3-$C$9))/((2+10^(-4)*$C$7*($C$9-C17))/(2-10^(-4)*$C$7*($C$9-C17))));2);ЕСЛИ(И($C$6>0;$C$7>0);"0";(($C$4*$C$3/100)-($C$5*9,81*($C$3-C17)/10^6))))

[p.s.]В суть формулы не вникал...
К сообщению приложен файл: 5180750.xlsx (11.8 Kb)


Яндекс: 410016850021169
 
Ответить
СообщениеТам только одно промежуточное вычисление ссылается на переменную (запихнул внутрь формулы)
Код
=ЕСЛИ(И($C$6>0;$C$7>0);ОКРУГЛ(ЕСЛИ(ИЛИ($C$9<0;И(C17>$C$9;C17<$C$3));$C$8-9,81*$C$5*($C$3-C17)*10^-6;($C$8-$C$5*9,81*10^-6*($C$3-$C$9))/((2+10^(-4)*$C$7*($C$9-C17))/(2-10^(-4)*$C$7*($C$9-C17))));2);ЕСЛИ(И($C$6>0;$C$7>0);"0";(($C$4*$C$3/100)-($C$5*9,81*($C$3-C17)/10^6))))

[p.s.]В суть формулы не вникал...

Автор - sboy
Дата добавления - 19.12.2017 в 12:32
nofedosov Дата: Вторник, 19.12.2017, 13:17 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
Там только одно промежуточное вычисление ссылается на переменную (запихнул внутрь формулы)

Пока писал сообщение темы, тоже это понял и впихнул - получилось :-) Но раз столкнулся с необходимостью, то решил не отказываться от поиска способа возможного ее решения. Без макросов, т.к. я в них совершенно 0!

насколько я понял

Очень круто! А как сделать так, чтобы можно было изменять (увеличивать) количество аргументов, и при этом макрос рассчитывал бы для них значения. Как его отредактировать, подскажите, пожалуйста, - возможно это станет первым моим шагом к VBA.
 
Ответить
Сообщение
Там только одно промежуточное вычисление ссылается на переменную (запихнул внутрь формулы)

Пока писал сообщение темы, тоже это понял и впихнул - получилось :-) Но раз столкнулся с необходимостью, то решил не отказываться от поиска способа возможного ее решения. Без макросов, т.к. я в них совершенно 0!

насколько я понял

Очень круто! А как сделать так, чтобы можно было изменять (увеличивать) количество аргументов, и при этом макрос рассчитывал бы для них значения. Как его отредактировать, подскажите, пожалуйста, - возможно это станет первым моим шагом к VBA.

Автор - nofedosov
Дата добавления - 19.12.2017 в 13:17
китин Дата: Вторник, 19.12.2017, 14:19 | Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
как сделать так, чтобы можно было изменять (увеличивать) количество аргументов

сделать динамический диапазон
[vba]
Код
Sub TTT()
Dim i&, Lr&
Lr = Cells(Rows.Count, 3).End(xlUp).Row
Range("D17:D" & Lr).ClearContents
    For i = 17 To Lr
     Cells(2, 3) = Cells(i, 3).Value
     Cells(i, 4).Value = Cells(11, 3).Value
    Next
    Cells(2, 3).Value = 0
End Sub
[/vba]
К сообщению приложен файл: nofedosov22.xlsm (19.5 Kb)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение
как сделать так, чтобы можно было изменять (увеличивать) количество аргументов

сделать динамический диапазон
[vba]
Код
Sub TTT()
Dim i&, Lr&
Lr = Cells(Rows.Count, 3).End(xlUp).Row
Range("D17:D" & Lr).ClearContents
    For i = 17 To Lr
     Cells(2, 3) = Cells(i, 3).Value
     Cells(i, 4).Value = Cells(11, 3).Value
    Next
    Cells(2, 3).Value = 0
End Sub
[/vba]

Автор - китин
Дата добавления - 19.12.2017 в 14:19
Che79 Дата: Вторник, 19.12.2017, 14:29 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1649
Репутация: 306 ±
Замечаний: 0% ±

2013 Win, 365 Mac
[offtop] Питерские экселисты настолько суровы, что пишут макросы и трехэтажные формулы не вникая в суть thumb
Ещё говорят, у вас в Питере ПРОМЕЖУТОЧНЫЕ.ИТОГИ() без точки иногда работает. ;)


Делай нормально и будет нормально!
 
Ответить
Сообщение[offtop] Питерские экселисты настолько суровы, что пишут макросы и трехэтажные формулы не вникая в суть thumb
Ещё говорят, у вас в Питере ПРОМЕЖУТОЧНЫЕ.ИТОГИ() без точки иногда работает. ;)

Автор - Che79
Дата добавления - 19.12.2017 в 14:29
китин Дата: Вторник, 19.12.2017, 15:39 | Сообщение № 7
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
[offtop]
не вникая в суть

в суть чего?


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение[offtop]
не вникая в суть

в суть чего?

Автор - китин
Дата добавления - 19.12.2017 в 15:39
Che79 Дата: Вторник, 19.12.2017, 15:46 | Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 1649
Репутация: 306 ±
Замечаний: 0% ±

2013 Win, 365 Mac
[offtop]
в суть чего?
вопроса) И работает же! yes


Делай нормально и будет нормально!
 
Ответить
Сообщение[offtop]
в суть чего?
вопроса) И работает же! yes

Автор - Che79
Дата добавления - 19.12.2017 в 15:46
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Подстановка значений в формулу и вычисления значений (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!