Точка безубыточности (макрос)

[Ninaaa]

Доброго времени суток! Мне необходимо подсчитать точку безубыточности предприятия, применив при этом макрос. Необходимо написать макрос(простой самый), который автоматизирует этот расчёт.
Вот то, что мне необходимо автоматизировать
http://offisny.ru/excel3-tb.html
Желательно сделать рядом с таблицой кпопку "Подсчитать", нажав на которую мой макрос начнёт работать - считать точку безубыточности.
Буду очень вам благодарна за помощь. Заранее спасибо!

[Казанский]

Как я понял, задача формулируется так: найти выручку (В6), при которой прибыль (В18) равна нулю.
Это делается командой Сервис - Подбор параметра. Если записать это действие макрорекордером, получится макрос из одной строки:

Sub Макрос1()
    Range("B18").GoalSeek Goal:=0, ChangingCell:=Range("B6")
End Sub

Создайте кнопку с панели "Формы" и назначьте ей этот макрос.

[Ninaaa]

Наверное я не совсем правильно выразилась. Нужна программа расчёта. Полноценный макрос. Просто не очень перегруженный. Смотрите, у меня вот такие условия..
Средняя цена единицы продукции — 100 р;
Переменные затраты на производство единицы продукции — 75 руб;
Постоянные расходы — 150 000 руб.
Решение:
Ок=Зн/(Ц-Сп)
где, Ок — критический объем производства в натуральном выражении;
Зн — постоянные (накладные) расходы;
Ц — цена реализации продукции;
Сп - переменные затраты на единицу продукции.
Ок=150000100—75)=6000 шт
Если Ок умножить на цену (Ц), то получится точка безубыточности в стоимостном выражении 6000*100 = 600 000 руб.
Это один из вариантов. Нужно так же сделать для Ц = 200 рублей, 300 рублей 400, 500, 600.. Ну тоесть составить таблицу (графы известны будут). И составить макрос, который будет считать точку безубыточности для каждого рассмотренного варианта. + кнопку, о которой писалось выше. У меня очень плохо с программированием, пытаюсь разобраться, но понимаю, что это совсем не моё. Будет очень понятно, если вы скинете мне таблицу с макросом(прикрепите её), ну или хотя бы сканы на них - тогда я точно пойму, как это нужно делать. А если ещё и объясните, как для полного чайника - вам вообще цены не будет. Надеюсь, на вашу помощь и понимание)
Если с первой задачей не получится есть ещё вторая..
Задача № 2.

Рассчитать точку безубыточности на промышленном предприятии при следующих условиях:
Средняя цена единицы продукции — 100 руб;
Переменные затраты в точке безубыточности составляют — 450 000 руб;
Постоянные расходы — 150 000 руб
Решение:
Преобразуем формулу из задачи №1:
Ок=Зн/(Ц-Сп)
Ок*(Ц-Сп)=Зн
Ок*Ц-Ок*Сп=Зн
Ок*Ц=Зн+Ок*Сп
Ок=(Зн+Ок*Сп)/Ц
Подставляем известные данные и получаем: Ок=(150000+450000)/100=6000 шт.
Обязательно создание макроса и кпопки! Хотя бы одну задачу нужно запрограммировать.

[Ninaaa]

Понимаю, что прошу многое, поэтому, если согласитесь конкретно и основательно помочь мне разобраться с этими задачами обещаю заплатить!

[Snekich]

Сообщение от Ninaaa

Понимаю, что прошу многое, поэтому, если согласитесь конкретно и основательно помочь мне разобраться с этими задачами обещаю заплатить!

Помочь могу, но только через сутки, не раньше...

[Snekich]

Сообщение от Ninaaa

Понимаю, что прошу многое, поэтому, если согласитесь конкретно и основательно помочь мне разобраться с этими задачами обещаю заплатить!

Вот файлик.

только пример ваш, по моему, содержит небольшие неточности...

если делать все как там то получим другие значения в паре ячеек (в тексте макроса я подписал расхождения с примером)


Сделал максимально "примитивно" как в примере по полочкам)))

Все, что нужно знать, так это:
Range("b8") - значения в ячейке
все остальное обычные математические знаки. Проще некуда.



Sub Расчет()
' расчет
Range("b8") = Range("b5") * 0.02
Range("b9") = Range("b5") * 0.1
Range("b6") = Range("b8") + Range("b9") + Range("b7")
Range("b10") = Range("b5") - Range("b6")
Range("b11") = Range("b10") / Range("b5")
Range("b12") = Range("b6") / Range("b5")
Range("b13") = Range("b14") + Range("b15") + Range("b16")
Range("b18") = Range("b5") - Range("b6") - Range("b13")
Range("b20") = Range("b13") / Range("b10") * 10000 ' в примере умножения на 10000 нет, но без этого получится другой результат (не как в примере)

' проверка
Range("c5") = Range("b20")
Range("c7") = Range("b7") * Range("c5") / Range("b5")
Range("c8") = Range("c5") * 0.02
Range("c9") = Range("c5") * 0.1
Range("c6") = Range("c8") + Range("c9") + Range("c7")
Range("c10") = Range("c5") - Range("c6")
Range("c11") = Range("c10") / Range("c5")
Range("c12") = Range("c6") / Range("c5")
Range("c14") = Range("b14")
Range("c15") = Range("b15")
Range("c16") = Range("b16")
Range("c13") = Range("c14") + Range("c15") + Range("c16")
Range("c18") = Range("c5") - Range("c6") - Range("c13")
Range("c20") = Range("c13") / Range("c10") * 10000 ' в ячейке получается другое знанение не как в примере.

End Sub

[Ninaaa]

СПАСИБО ОГРООООООООМНОЕ!!!!!!
Можно вас ещё немножко помучать?)
Что за пустая графа исходные данные? Она для чего?
И почему 2 графы сумма? Что означает вторая?
Если ответите мне на эти вопросы - цены вам не будет))

[Snekich]

желтым цветом я выделил ячейки которые являются исходными данными (заполняются в ручную) Сверху я просто подписал свои условные обозначения. Не нравится - можно убрать эту пустую желтую ячейку сверху.

А две графы "сумма" в соответствии с вашим примером. Первая расчет, вторая с проверкой расчета.
http://offisny.ru/excel3-tb.html