Консультация № 186431
03.07.2012, 22:34
0.00 руб.
0 9 1
Уважаемые эксперты! Пожалуйста, помогите с разработать книги MS Excel для автоматического формирования прайсов
Смысл задания:
Компания - дистрибьютор формирует свои цены для конкретного покупателя на основе исходного прайс-листа производителя и с учетом:
- расходов на доставку;
- бонуса продавца;
- закладываемого дохода компании (на покрытие прямых и накладных расходов, а также на прибыль);
- текущего курса валюты страны-производителя по отношению к валюте покупателя.
Цена = цена производителя + затраты на доставку + затраты на бонус + доход.
Затраты на доставку = Цена производителя * Кдост.
Затраты на бонус = Цена * Кбонус.
Доход = Цена * Кдоход.

Тогда цена для клиента (в валюте производителя) рассчитывается по формуле:
Цена = Цена производителя * (1+Кдост) / (1 – Кбонус – Кдоход).

Полное задание: ТУТ

Заранее очень благодарен за помощь.

Обсуждение

Неизвестный
05.07.2012, 10:37
общий
05.07.2012, 10:38
У Вас явная ошибка в последней формуле:
из
Цена = цена производителя + затраты на доставку + затраты на бонус + доход
никак не получить
Цена = Цена производителя * (1+Кдост) / (1 – Кбонус – Кдоход)

скорее получится
Цена = Цена производителя * (1+Кдост+Кбонус+Кдоход)
Неизвестный
05.07.2012, 11:10
общий
Прошу прощения, задания составлял не я) Проверил исходник так же написано, значит при составлении допустили ошибочку.
Неизвестный
05.07.2012, 11:14
общий
это ответ
Здравствуйте, Flawless!
В приложении архив с файлом для MS Excel 2007.
Внимание! Т.к. у меня английская версия, то во всех числах разделителями стоят точки, а не запятые!
Макрос сохраняет новый файл в папку с данным файлом. Имя нового файла задается текущей датой и временем.
Формулу для расчета цены взял ту, которая написана мной в мини-форуме.
Если нужна другая, то ее легко изменить - код достаточно прокомментирован.
Прикрепленные файлы:
5
За юмор отдельное спасибо ;D
Неизвестный
06.07.2012, 06:44
общий
06.07.2012, 06:48
Василий, очень хорошо сделано!
Но у меня почему-то не создается новая книга (Office 2010).

Код:

Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add


Не знаете, в чем может быть причина?
Неизвестный
06.07.2012, 09:46
общий
06.07.2012, 09:50
Спасибо, Василий, разобрался. Файл создался, сохранился в папку Документы и автоматически закрылся.

А, интересно, как сохранить результирующий файл именно в текущую папку, а не в папку Документы?
Метод CurDir почему-то выдает адрес папки сохранения файлов по умолчанию, а не в текущую папку.
Неизвестный
06.07.2012, 10:37
общий
Попробуйте ThisWorkbook.Path или ActiveWorkbook.Path (первая указывает на папку с файлом, из которого выполняется код, вторая - активный файл)
Неизвестный
06.07.2012, 10:40
общий
всегда пожалуйста
Неизвестный
06.07.2012, 11:01
общий
Цитата: 161519
Попробуйте ThisWorkbook.Path или ActiveWorkbook.Path (первая указывает на папку с файлом, из которого выполняется код, вторая - активный файл)


Код:
xlNewName = ActiveWorkbook.Path & "" & Format(Date, "YYYYMMDD") & "_" & Format(Time, "HHmmss") & ".xlsx"

- работает.
Спасибо!
Неизвестный
09.07.2012, 08:27
общий
Форма ответа