Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
FIFO. Расчет стоимости остатка товара на складе (условие скорректировано)
 
#1
26.02.2009 10:58:07
Задача  посчитать остатки товара по каждому виду на текущую дату при этом цена продажи (операция продажа) не имеет никакого значения, списывается в данном случае товар по цене первого по времени прихода , пока он не кончится , потом вторго и т.д. В результате надо посчитать кол-во единиц остатка и их общую себестоимость на Дату.
 
 
 
#2
26.02.2009 11:01:49
Господа спецы помогите девушке плиз , тут похоже макрос нужен формулами у меня не получается.
 
 
 
#3
26.02.2009 12:43:31
Господа специалисты, срочно нужна ваша помощь в решении этого вопроса.
 
 
 
#4
26.02.2009 14:14:38
{quote}{login=The_Prist}{date=26.02.2009 02:07}{thema=}{post}Написал функцию(FIFO). В файле описано подробней. Будут вопросы - пишите.{/post}{/quote}  
Ага а как стоимость остатка товара на складе подсчитать? Красненькие столбцы?
 
 
 
#5
26.02.2009 14:32:30
{quote}{login=The_Prist}{date=26.02.2009 02:23}{thema=}{post}Я именно над этим сейчас работаю. Не совсем понял как именно подсчитывать...{/post}{/quote}  
Насколько я понимаю метод ФИФО первым уходит товар который первым поступил , соответственно расход минусует первое поступление до 0, и переходит к следующему товар Б на 6/10 это 1 по 3 (4-3 продали) + 1 по 2 итого на  5 рублей товара . Пример не очень уудачный .. мне просто эта тема очень интересна
 
 
 
#6
26.02.2009 14:37:29
{quote}{login=The_Prist}{date=26.02.2009 02:23}{thema=}{post}Я именно над этим сейчас работаю. Не совсем понял как именно подсчитывать...{/post}{/quote  
 
Большое Вам спасибо, но мне необходимо подсчитать стоимость остатка на конец каждого дня. Стоимость расчитывается по методу FIFO - First In First Out.  
Т.е. необходимо автоматизировать "Очередь", а именно: при реализации конкретного наименования товара, со склада списывается товар первый поступивший товар, потом второй и т.д.
 
 
 
#7
26.02.2009 15:49:16
{quote}{login=The_Prist}{date=26.02.2009 02:07}{thema=}{post}Написал функцию(FIFO). В файле описано подробней. Будут вопросы - пишите.{/post}{/quote}  
 
Уважаемый Прайст, Вы все же поможете мне решить задачу по определению стоимости?    
Мне очень, очень, очень нужно.
 
 
 
#8
26.02.2009 16:52:44
{quote}{login=The_Prist}{date=26.02.2009 04:46}{thema=}{post}Вот. Условия те же. Добавил функцию подсчета сумм. Проверяйте.{/post}{/quote}  
Блеск вс е точно по моему а можно дин диапазоны использовать в ней или только абсолютные ссылки ?
 
 
 
#9
26.02.2009 17:10:34
{quote}{login=The_Prist}{date=26.02.2009 04:57}{thema=}{post}Пробуйте, как и с любой функцией должно получиться - но...{/post}{/quote}  
получилось с динамическим тоже спасибо ... надо зарегистрировать Ваше ноу хау.
 
 
 
#10
26.02.2009 17:21:33
{quote}{login=The_Prist}{date=26.02.2009 04:46}{thema=}{post}Вот. Условия те же. Добавил функцию подсчета сумм. Проверяйте.{/post}{/quote}  
Не логика не та не работает функция она должна списывать по цене закупки а не продажи... минусов не должно быть
 
 
 
#11
26.02.2009 18:08:06
{quote}{login=The_Prist}{date=26.02.2009 06:00}{thema=}{post}Микки - ты за проверяющего. Давай ломай дальше функцию, ищи косяки. :-){/post}{/quote}  
мне просто самому это нужно позарез .. теперь похоже все так.. но как это сделано...Спасибо .. дама сама скажет надеюсью.
 
 
 
#12
26.02.2009 18:23:34
{quote}{login=The_Prist}{date=26.02.2009 06:00}{thema=}{post}Микки - ты за проверяющего. Давай ломай дальше функцию, ищи косяки. :-){/post}{/quote}  
не опять сломал все ... по товару А
 
 
 
#13
26.02.2009 23:11:27
Имхо, но надо просто делать доп столбец и потихонько макросом "списывать" остатки, в верхней строчке. Возможно, как только остаток =0, строку можно в архив, на другой лист. А в конце дня просто сводной остаток на дату снимать. Как только будет пропуск - можно косячок получить.
 
 
 
#14
27.02.2009 09:18:24
{quote}{login=The_Prist}{date=26.02.2009 06:00}{thema=}{post}Микки - ты за проверяющего. Давай ломай дальше функцию, ищи косяки. :-){/post}{/quote}  
А-а-а сказали архангельские лесорубы (анекдот) ..Вас видимо путает цена продажи на мой взгляд она просто лишняя тут .. ффактически это должна быть цена списания товар по пресловутому ФИФО.
 
 
 
#15
27.02.2009 09:21:50
{quote}{login=Микки}{date=27.02.2009 09:18}{thema=Re: }{post}{quote}{login=The_Prist}{date=26.02.2009 06:00}{thema=}{post}Микки - ты за проверяющего. Давай ломай дальше функцию, ищи косяки. :-){/post}{/quote}  
А-а-а сказали архангельские лесорубы (анекдот) ..Вас видимо путает цена продажи на мой взгляд она просто лишняя тут .. ффактически это должна быть цена списания товар по пресловутому ФИФО.{/post}{/quote}  
 
Я на цену продажи даже не обращаю внимания. Просто надо попробовать учесть все варианты.
 
 
 
#16
27.02.2009 09:27:16
Всем большое спасибо за участие в решении моей проблемы. Но все же очень хочется достичь правильного результата. Это возможно?
 
 
 
#17
27.02.2009 09:48:32
{quote}{login=Stepa}{date=27.02.2009 09:27}{thema=}{post}Всем большое спасибо за участие в решении моей проблемы. Но все же очень хочется достичь правильного результата. Это возможно?{/post}{/quote}  
 
Щаз именно над этим работаю.  
Присоединяйтесь к выявлению и решению проблем.
 
 
 
#18
27.02.2009 10:16:34
{quote}{login=}{date=27.02.2009 09:48}{thema=Re: }{post}{quote}{login=Stepa}{date=27.02.2009 09:27}{thema=}{post}Всем большое спасибо за участие в решении моей проблемы. Но все же очень хочется достичь правильного результата. Это возможно?{/post}{/quote}  
 
Щаз именно над этим работаю.  
Присоединяйтесь к выявлению и решению проблем.{/post}{/quote}  
 
Дальше написания формулы по расчету количества у меня дело не пошло, потому надеюсь на Вас.
 
 
 
#19
27.02.2009 13:12:56
{quote}{login=The_Prist}{date=27.02.2009 01:11}{thema=Re: }{post}{quote}{login=The_Prist}{date=27.02.2009 01:09}{thema=}{post}Очередная доработка.{/post}{/quote}  
 
Я еще критерий добавил - Qantity: Количество оставшегося товара.  
Выбрать кол-во товара, рассчитанного функцией FIFO_Count.{/post}{/quote}  
 
Ураа, большое спасибо. Смотрю.
 
 
 
#20
27.02.2009 13:26:03
{quote}{login=The_Prist}{date=27.02.2009 01:11}{thema=Re: }{post}{quote}{login=The_Prist}{date=27.02.2009 01:09}{thema=}{post}Очередная доработка.{/post}{/quote}  
 
Я еще критерий добавил - Qantity: Количество оставшегося товара.  
Выбрать кол-во товара, рассчитанного функцией FIFO_Count.{/post}{/quote}  
Ур-р-рр-а заработало Прайст вы гений.... но формула не персчитывается при обновленни данных надо протягивать это почемУ?
 
 
 
#21
27.02.2009 13:28:14
{quote}{login=The_Prist}{date=27.02.2009 01:11}{thema=Re: }{post}{quote}{login=The_Prist}{date=27.02.2009 01:09}{thema=}{post}Очередная доработка.{/post}{/quote}  
 
Я еще критерий добавил - Qantity: Количество оставшегося товара.  
Выбрать кол-во товара, рассчитанного функцией FIFO_Count.{/post}{/quote}  
 
Prist, скажите, пожалуйста, почему не меняется кол-во и соответственно стоимость если я меняю кол-во в основной таблице?
 
 
 
#22
27.02.2009 14:34:45
{quote}{login=The_Prist}{date=27.02.2009 01:35}{thema=}{post}Особенность пользовательских функций. Не всегда рассчитываются автоматом. Просто скопируйте формулу в одной ячейке и протяните по всем. Они пересчитаются.{/post}{/quote}  
 
Ага, поняла. Вобщем все просто супер! Буду пользовать. Еще раз спасибо.
 
 
 
#23
27.02.2009 22:30:07
Чтобы пересчитывались ячейки, от которых зависит результат, достаточно в декларации функции добавить последний виртуальный параметр ParamArray Dependences():  
 
Function FIFO_Count(MyDate, Criteria, DateRange, ParamArray Dependences())  
'... (все что было раньше)  
End Function  
 
Function FIFO_Summ(MyDate, Criteria, DateRange, Qantity, ParamArray Dependences())  
'... (все что было раньше)  
End Function  
 
А в вызове функции добавить диапазоны ячеек, изменения которых должны вызывать пересчет функции.  
 
Например, так можно добавить автопересчет при изменении ячеек номенклатуры и количества С3:D10:  
=FIFO_Count(H3;$I$1;$A$3:$A$10;С3:D10)  
или так:  
=FIFO_Count(H3;$I$1;$A$3:$A$10;С3:С10;D3:D10)  
 
А здесь добавлены зависимости диапазона ячеек от номенклатуры C3:C10 до стоимости F3:F10:  
=FIFO_Summ(H3;$I$1;$A$3:$A$10;O3;C3:F10)  
или можно ограничиться только ячейками номенклатуры C3:C10 и стоимости F3:F10:  
=FIFO_Summ(H3;$I$1;$A$3:$A$10;O3;C3:C10;F3:F10)
 
 
 
#24
27.02.2009 22:51:00
{quote}{login=ZVI}{date=27.02.2009 10:30}{thema=Как добавить автопересчет в пользовательскую функцию}{post}Чтобы пересчитывались ячейки, от которых зависит результат, достаточно в декларации функции добавить последний виртуальный параметр ParamArray Dependences(){/post}{/quote}  
 
Спасибо за полезную (думаю не только мне) информацию!
 
 
 
#25
28.04.2010 22:00:27
{quote}{login=The_Prist}{date=27.02.2009 01:09}{thema=}{post}Очередная доработка.{/post}{/quote}  
 
Добрый вечер, не могли бы вы пояснить макрос комментариями, что куда и зачем пишется, чтобы понять используемые объекты.  
Спасибо.
 
 
 
#26
13.12.2010 14:03:13
Господа, искренне благодарю! Разобрался, адаптировал под себя, все отлично. Кроме одного: быстродействие на больших объемах данных оставляет желать лучшего. Подскажите как можно ускорить функцию? Первое, что приходит на ум - это построить логику так, чтобы получать данные в один проход по циклу вместо двух (например использовать массивы). Второе - это вообще отказать от цикла и переходить по артикулам с помощью поиска, например. Насколько это возможно и целесообразно?
 
 
 
#27
13.12.2010 14:29:44
Т.е. вариант:  
 
В одном цикле проходим по всем записям и сохраняем данные по нужному артикулу в массив. Потом запускаем цикл по массиву.  
 
будет быстрее текущего варианта?  
 
А вариант:  
 
Заменить оба цикла на перебор значений по артикулу с помощью Find.  
 
будет медленнее всех?  
 
Я просто с VBA на Вы, кодить могу, а вот понять на что повлияет выбор того или иного варианта не знаю как. Кодить все варианты, чтобы сравнить не хочется (опять же потому что с VBA на Вы). :)
 
 
 
#28
13.12.2010 21:52:40
Попробуйте вариант FIFO_Count() на массиве.  
Еще, говорят, для убыстрения кода целесообразно не использовать and при проверке. а делить условия и проверять их по очереди.  
 
Function FIFO_Count(MyDate, Criteria, DateRange As Range)  
   Dim arrDate(), i As Long, arrCriteria(), arrValue()  
   arrDate = DateRange.Value  
   arrCriteria = DateRange.Offset(0, 2).Value  
   arrValue = DateRange.Offset(0, 3).Value  
   iCount = 0  
   For i = 1 To UBound(arrDate)  
       If DateValue(arrDate(i, 1)) <= DateValue(MyDate) Then  
           If Criteria = arrCriteria(i, 1) Then  
               iCount = iCount + arrValue(i, 1)  
           End If  
       End If  
   Next  
   FIFO_Count = iCount  
End Function
 
 
 
Страницы: 1
Читают тему
Наверх