Как отобразить учет остатков на складе

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как отобразить учет остатков на складе (Формулы/Formulas)

fromrom

Дата: Воскресенье, 09.08.2015, 13:14 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день!

Помогите прописать формулу.

Есть склад, на котором хранятся товары и отображаются остатки товаров.
Есть два магазина, которые могут делать заказы на склад.
Нужно, чтобы после того, как склад формирует и передает заказ магазину, остатки на складе уменьшались, а в магазине увеличивались на заказанное количество.
Как прописать такую формулу или действие?

Спасибо!

К сообщению приложен файл: 9001279.xlsx (34.0 Kb)

Ответить

Nic70y

Дата: Воскресенье, 09.08.2015, 13:43 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8761

Репутация: 2273 ±

Замечаний: 0% ±

Excel 2010

наверное так
http://www.excelworld.ru/forum/6
не настаиваю, может кто-то и так сделает.

ЮMoney 41001841029809

Ответить

KSV

Дата: Воскресенье, 09.08.2015, 13:49 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

Репутация: 255 ±

Замечаний: 0% ±

Excel 2013

Если не заморачиваться с проверками и считать, что на складе ВСЕГДА хватит продукции для выполнения заказов всех магазинов, то можно вообще просто: [vba]

Код

Sub TransferToStore()
     Dim i&, r&, s0(), s1(), s2()
     r = Sklad.Cells(Rows.Count, 1).End(xlUp).Row
     s0 = Sklad.Range("B2:D" & r)
     s1 = Store1.Range("B2:C" & r)
     s2 = Store2.Range("B2:C" & r)
     For i = 1 To UBound(s0)
         s0(i, 1) = s0(i, 1) - s0(i, 2) - s0(i, 3)
         s1(i, 1) = s1(i, 1) + s1(i, 2): s1(i, 2) = 0
         s2(i, 1) = s2(i, 1) + s2(i, 2): s2(i, 2) = 0
     Next
     Sklad.Range("B2:B" & r) = s0
     Store1.Range("B2:C" & r) = s1
     Store2.Range("B2:C" & r) = s2
End Sub

[/vba]