Циклический алгоритм в эксель

Гость

18.04.2012 21:04:54

Добрый вечер

Столкнулась со следующей проблемой: необходимо, чтобы эксель выполнял действие, пока выполняется условие.

Формула простая: 804*3+(804-2)*3+(804-2-2)*3+.... и так пока значение не будет равно нулю. Не понимаю, как прописать формулу, помогите , пожалуйста

Спасибо

Михаил С. Пользователь Сообщений: 10510 Регистрация: 21.12.2012	#2 18.04.2012 21:08:06 Это все в одной ячейке? или как? Ноарисуйте пример, как Вы это видите, без формул но с пояснением.

Юрий М Модератор Сообщений: 60982 Регистрация: 14.09.2012 Контакты см. в профиле	#3 18.04.2012 21:15:33 И поменяйте, пожалуйста, свой ник: этот уже занят.

Z Гость	#4 18.04.2012 21:21:10 примерно так Прикрепленные файлы post_328264.xlsx (9.72 КБ)

ZXC Пользователь Сообщений: 6 Регистрация: 01.01.1970	#5 18.04.2012 21:22:01 вот с удовольствием бы, если бы постоянно не выкидывало)

Hugo Пользователь Сообщений: 26549 Регистрация: 22.12.2012	#6 18.04.2012 21:28:15 эмм... Это не "поиск решения" или Solver нужно применять?

ZXC Пользователь Сообщений: 6 Регистрация: 01.01.1970	#7 18.04.2012 21:30:19 вот не знаю, у меня около 10 000 позиций, не хотелось бы к каждой отдельно поиск решения применять, если оно действительно поиск решения.. :(

Hugo Пользователь Сообщений: 26549 Регистрация: 22.12.2012	#8 18.04.2012 21:34:27 На 10000 вообще макрос нужно писать.

ZXC Пользователь Сообщений: 6 Регистрация: 01.01.1970	#9 18.04.2012 21:35:34 а в ним можете помочь?) если не затруднит..

MCH Пользователь Сообщений: 3925 Регистрация: 22.12.2012	#10 18.04.2012 21:44:13 сумма арифметической прогрессии: =(8043+23)/2402 или =8043/2*(402+1)

Hugo Пользователь Сообщений: 26549 Регистрация: 22.12.2012	#11 18.04.2012 21:46:08 Что-то я не понял - верный ответ =804/2*3? Такую простую формулу можно и 10000 раз просчитать... Или ошибаюсь?

Hugo Пользователь Сообщений: 26549 Регистрация: 22.12.2012	#12 18.04.2012 21:49:19 Или 3 - это стоимость за штуку в день? Вообще я не математик...

Hugo Пользователь Сообщений: 26549 Регистрация: 22.12.2012	#13 18.04.2012 21:52:58 486018 ? Но думаю как-то можно одной формулой сделать. Где математики? :(

ZXC Пользователь Сообщений: 6 Регистрация: 01.01.1970	#14 18.04.2012 22:01:34 вспомним 9 класс и формулу суммы арифметической прогрессии)) спасибо огромное. Вопрос снят

Hugo

Пользователь

Сообщений: 26549 Регистрация: 22.12.2012

#15

18.04.2012 22:04:02

Я быстрее макрос напишу... Где тот класс?.... :(

Sub ttt()
Dim a()
Dim i&, n&, sm&

a = [a1].CurrentRegion.Value
ReDim b(1 To UBound(a), 1 To 1)
b(1, 1) = "Стоимость хранения партии"

For i = 2 To UBound(a)
sm = 0
ob = a(i, 4)
ost = a(i, 5)
sp = a(i, 6)
sh = a(i, 3)
For n = 0 To ob
sm = sm + (ost - sp * n) * sh
Next
b(i, 1) = sm
Next

[g1].Resize(UBound(b), 1) = b
End Sub

И ещё не известно, что быстрее будет на 10000... :)

ZXC Пользователь Сообщений: 6 Регистрация: 01.01.1970	#16 19.04.2012 09:48:07 Ну вот с формулой прошло все)) за макрос спасибо :о)

Читают тему