![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 07.12.2011
Сообщений: 4
|
![]()
Доброго времени суток! Мне необходимо подсчитать точку безубыточности предприятия, применив при этом макрос. Необходимо написать макрос(простой самый), который автоматизирует этот расчёт.
Вот то, что мне необходимо автоматизировать http://offisny.ru/excel3-tb.html Желательно сделать рядом с таблицой кпопку "Подсчитать", нажав на которую мой макрос начнёт работать - считать точку безубыточности. Буду очень вам благодарна за помощь. Заранее спасибо! |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
![]()
Как я понял, задача формулируется так: найти выручку (В6), при которой прибыль (В18) равна нулю.
Это делается командой Сервис - Подбор параметра. Если записать это действие макрорекордером, получится макрос из одной строки: Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
![]() |
![]() |
![]() |
#3 |
Регистрация: 07.12.2011
Сообщений: 4
|
![]()
Наверное я не совсем правильно выразилась. Нужна программа расчёта. Полноценный макрос. Просто не очень перегруженный. Смотрите, у меня вот такие условия..
Средняя цена единицы продукции — 100 р; Переменные затраты на производство единицы продукции — 75 руб; Постоянные расходы — 150 000 руб. Решение: Ок=Зн/(Ц-Сп) где, Ок — критический объем производства в натуральном выражении; Зн — постоянные (накладные) расходы; Ц — цена реализации продукции; Сп - переменные затраты на единицу продукции. Ок=150000 ![]() Если Ок умножить на цену (Ц), то получится точка безубыточности в стоимостном выражении 6000*100 = 600 000 руб. Это один из вариантов. Нужно так же сделать для Ц = 200 рублей, 300 рублей 400, 500, 600.. Ну тоесть составить таблицу (графы известны будут). И составить макрос, который будет считать точку безубыточности для каждого рассмотренного варианта. + кнопку, о которой писалось выше. У меня очень плохо с программированием, пытаюсь разобраться, но понимаю, что это совсем не моё. Будет очень понятно, если вы скинете мне таблицу с макросом(прикрепите её), ну или хотя бы сканы на них - тогда я точно пойму, как это нужно делать. А если ещё и объясните, как для полного чайника - вам вообще цены не будет. Надеюсь, на вашу помощь и понимание) Если с первой задачей не получится есть ещё вторая.. Задача № 2. Рассчитать точку безубыточности на промышленном предприятии при следующих условиях: Средняя цена единицы продукции — 100 руб; Переменные затраты в точке безубыточности составляют — 450 000 руб; Постоянные расходы — 150 000 руб Решение: Преобразуем формулу из задачи №1: Ок=Зн/(Ц-Сп) Ок*(Ц-Сп)=Зн Ок*Ц-Ок*Сп=Зн Ок*Ц=Зн+Ок*Сп Ок=(Зн+Ок*Сп)/Ц Подставляем известные данные и получаем: Ок=(150000+450000)/100=6000 шт. Обязательно создание макроса и кпопки! Хотя бы одну задачу нужно запрограммировать. Последний раз редактировалось Ninaaa; 08.12.2011 в 20:18. |
![]() |
![]() |
![]() |
#4 |
Регистрация: 07.12.2011
Сообщений: 4
|
![]()
Понимаю, что прошу многое, поэтому, если согласитесь конкретно и основательно помочь мне разобраться с этими задачами обещаю заплатить!
|
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 19.11.2011
Сообщений: 128
|
![]()
Помочь могу, но только через сутки, не раньше...
Нет ничего невозможного, главное верить в это.
|
![]() |
![]() |
![]() |
#6 | |
Форумчанин
Регистрация: 19.11.2011
Сообщений: 128
|
![]() Цитата:
только пример ваш, по моему, содержит небольшие неточности... если делать все как там то получим другие значения в паре ячеек (в тексте макроса я подписал расхождения с примером) Сделал максимально "примитивно" как в примере по полочкам))) Все, что нужно знать, так это: 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
Нет ничего невозможного, главное верить в это.
Последний раз редактировалось Snekich; 11.12.2011 в 15:32. |
|
![]() |
![]() |
![]() |
#7 |
Регистрация: 07.12.2011
Сообщений: 4
|
![]()
СПАСИБО ОГРООООООООМНОЕ!!!!!!
Можно вас ещё немножко помучать?) Что за пустая графа исходные данные? Она для чего? И почему 2 графы сумма? Что означает вторая? Если ответите мне на эти вопросы - цены вам не будет)) |
![]() |
![]() |
![]() |
#8 |
Форумчанин
Регистрация: 19.11.2011
Сообщений: 128
|
![]()
желтым цветом я выделил ячейки которые являются исходными данными (заполняются в ручную) Сверху я просто подписал свои условные обозначения. Не нравится - можно убрать эту пустую желтую ячейку сверху.
А две графы "сумма" в соответствии с вашим примером. Первая расчет, вторая с проверкой расчета. http://offisny.ru/excel3-tb.html
Нет ничего невозможного, главное верить в это.
Последний раз редактировалось Snekich; 12.12.2011 в 07:52. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Макрос постоянно обрабатывает события. При открытии другой книги макрос обрывается. | Ples | Microsoft Office Excel | 8 | 17.12.2016 18:15 |
Exel - при открытии файла через макрос, если файл отсутствует - виснет весь макрос | gregory1b | Microsoft Office Excel | 2 | 14.10.2010 11:51 |
Макрос, запускающий макрос из другого закрытого файла | petruha | Microsoft Office Excel | 7 | 14.03.2010 11:31 |
Макрос вставки файлов в листы-Необходимо изменить ниже приведённый макрос | as-is | Microsoft Office Excel | 4 | 25.02.2010 07:51 |