Архив форума

Недавно устроился на работу в крупную компанию. Склад автоматизирован. Моя задача разместить товар (фармация) по АВС анализу на конвейере и на стеллажах. Очень слаб я в понимании АВС анализа, поэтому обращаюсь с просьбой помочь с выбором литературы (АВС для "чайников")
            Спасибо.

Если хотите сделать вручную, то для этого достаточно отсортировать позиции по вашему критерию (что бы числовые значения убывали), затем сделать столбец с накапливаемой суммой, и второй с отношением этой накапливоемой суммы к общей по всем позициям (в конце должна получиться 1 ;0). Рядом просто пронумерованный столбец 1, 2, 3, ... И тоже отношение номера к номеру последней позиции (в конце опять должна получиться 1 ;0). Складываете эти два отношения (в конце должна получиться 2 = 1 + 1 ;0). А там, где сумма даёт 1 и лежит граница между группами "А" и "В". Потом оставшуюся группу "В" разбиваете так же на "В" и "С" (позииции группы "А" не учитываете).
Для автоматического рассчёта в УВА Ехсел я написал автоматическую функцию:
 
Function ABC(diapazon As Range) As String  
'выдаёт значения, с которых начинаются группы B и C АВС-анализа  
'позиции должны стоять в порядке убывания количественного параметра  
    Dim i As Integer  
    Dim yachejka As Range  
    Dim sum As Single  
    Dim v_ya As Single  
    Dim temp As Single  
    Dim maxnov As Integer  
    Dim b As Single  
    Dim j As Integer  
    Dim c As Single  
    sum = 0  
    maxnom = 0  
    temp = 0  
    i = 0  
    For Each yachejka In diapazon  
   sum = sum + yachejka.Value  
   maxnom = maxnom + 1  
    Next yachejka  
    Do  
   i = i + 1  
   v_ya = diapazon.Cells(i, 1)  
   temp = temp + v_ya  
    Loop While (temp / sum + i / maxnom) <= 1  
    b = v_ya  
    j = i  
    Do  
   j = j + 1  
   v_ya = diapazon.Cells(j, 1)  
   temp = temp + v_ya  
    Loop While ((temp - b) / (sum - b) + (j - i) / (maxnom - i)) <= 1  
    c = v_ya  
ABC = "Группа B начинается с: " & b & " Группа C начинается с: " & c  
End Function