Excel: вопрос - ответ : Закупщик

Добрый день!
1. Сохранение в txt.
2. Сохраняем в [ mxl ], а потом в txt или Excel. Программу могу перезалить...

Добрый день!
По просьбе перезалил, лежит [ тут(339мб.). ]

Добрый день, спасибо за отклик, у меня есть подобный способ решения, только формула немного другая, он не совсем меня устраивает,проблема в том что не все мои сотрудники хорошо знают ексель, и порою не обращают внимание на формулы, в обще я этот фаил держу заблокированным, разрешив ввод значений только в некоторые ячейки, потому что раньше сбивали формулы, поэтому я хочу чтобы на экран выскакивало именно сообщение, чтобы точно заметили (можно даже со звуковым сигналом), как при использовании опции «Проверка данных», когда можно ввести какой-нибудь текст, но при этом не блокировался бы ввод всех номеров поставщиков.
Кроме того, я хочу менять саму структуру документа, добавлять лишние колонки, изменять их размер, фаил «заточет» под определённый макрос и способ распечатки.
Я думаю, что подобное можно реализовать лишь макросом, к сожалению для себя, я только начинаю в них погружаться.

Макрос так макрос, только макросы в файле пользователь может и не включить...

Private Sub Worksheet_Change(ByVal Target As Range)
'при любом изменении в листе проверяется, не предупредить ли...
'введённое значение отправляется в контрольную ячейку справочника поставщиков
'если в справочнике поставщик помечен, как важный, выводится сообщение

Sheets("Лист1").Range("h1") = ActiveCell
If Sheets("Лист1").Range("i1") = 1 Then Response = _
MsgBox("Не авизуете этого ценнейшего поставщика ДО ОБЕДА," _
& Chr(10) & "" & Chr(10) & "останетесь без премии, коллега!", , "Attention! Ahtung! Внимание!!!")

End Sub

Вложения

апрель 2012m.xlsm (220.0 Кб, 141 просмотров)

Спасибо за помощь, практика показала, что проблема решена не полностью. Можно изменить логику работы макроса, что бы сообщение "Attention! Ahtung! Внимание!!!" Не авизовывайте этого ценнейшего поставщика с 17:00 до 19:45, осенитесь без премии, коллега", выскакивало на экран без привязки к определённому поставщику, а если выполняются два условия одновременно:
- время (столбцы G,R, AC, AN, AY, BJ, BU, CF, CQ) – находилось в интервале с 17:00 до 19:45;
- количество коробов (столбцы N, Y, AJ, AU, BF, BQ, CB, CM, CX) – было более 400.
Спасибо.

Вложения

апрель 2012m.xlsm (220.0 Кб, 162 просмотров)

Private Sub Worksheet_Change(ByVal Target As Range)

If Int((ActiveCell.Column - 3) / 11) <> (ActiveCell.Column - 3) / 11 Then 'коробочный ли столбец
ElseIf ActiveCell.Offset(0, -7) < 0.708333 Then 'время меньше ли 17:00
ElseIf ActiveCell.Offset(0, -7) > 0.822917 Then 'время больше ли 19:45
ElseIf ActiveCell > 400 Then Response = _
MsgBox("Не авизовывайте этого ценнейшего поставщика с 17:00 до 19:45," _
& Chr(10) & "" & Chr(10) & "останетесь без премии, коллега!", , "Attention! Ahtung! Внимание!!!")
End If
End Sub

Вложения

апрель 2012mn.xlsm (221.1 Кб, 171 просмотров)

Всем привет. Вопрос: Можно ли средствами VBA присвоить имя конкретному листу значением из конкретной ячейки?

Стоп!! сам нашел.
Sheets("расчетный_лист (2)").Name = Range("DA4").Value
У меня возникало сообщение о том что нельзя присвоить имя листу равное имени уже существующего листа. А я не мог найти где же он этот равный существующий лист, не видно его было. Удалил его и всё получилось!! Всем спасибо!! ну и как говорится "Ребята - Вы супер!!" :D .

Всем доброго времени суток.
Подскажите пожалуста как в Екселе реализовать следующую задачу:
Есть значение остатка товара и есть значение реализованого товара, как заставить Ексель подсвечивать остаток товара который закончиться через некоторый период времени учитывая информацию по реализации и рекомендовать, на основе этих данных, количество товара к закупке?

В Екселе понимаю пока совсем мало, но хочу эту ситуацию изменить, для начала хотябы в этом вопросе.
Большое спасибо за ответы.

Добрый день!
1. Вам нужно рассчитать УровеньТоварногоЗапаса = ОстатокНаКонецПериода*ДнейНаличия/ПродажиЗаПериод. Уровень запаса показывает на сколько времени хватит товарного запаса. В подсветке поможет "Условное форматирование" в Excel.
2. Сколько заказать - это отдельный вопрос, в библиотеке есть материал по-этому вопросу (можно начать с этого). Для начала можно поддерживать запас, который Вы определи эмпирически как "нормальный". Потом расчет этого срока можно автоматизировать согласно согласованных методик (страховой запас).