Архив форума

В готовом варианте вы навряд ли найдёте эти анализы для вашей структуры данных. Могу предложить как вариант выгружать данные в Ехсель, и работать с ними уже там. Для XYZ-анализа в Ехселе есть встроенная функция для рассчёта среднего квадратичного отклонения: СРОТКЛ(массив данных). Для АВС-анализа же у меня есть написанная на ВБА для Ехселя функция (единственное, массив данных перед использованием надо отсортировать по убыванию - не стал с этим заморачиваться в функции):
 
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