Уважаемые гении экселя! В примере таблица для формирования отгрузки товара, в которой д.б. учтен и весовой и штучный товар. Сложность в учете весового товара,т.к один и тот же магазин может заказывать, допустим, весовой творог в разных весовых категориях (3х0,5 = 3 шт по 0,5 кг, 12х5 = 12 шт по 5 кг) Как правильно вносить данные, чтобы просчитать итог?
Уважаемые гении экселя! В примере таблица для формирования отгрузки товара, в которой д.б. учтен и весовой и штучный товар. Сложность в учете весового товара,т.к один и тот же магазин может заказывать, допустим, весовой творог в разных весовых категориях (3х0,5 = 3 шт по 0,5 кг, 12х5 = 12 шт по 5 кг) Как правильно вносить данные, чтобы просчитать итог?Императрица
Добрый день. Как вариант, можно пользовательской функцией (макросы должны быть включены). Товар в разных весовых категориях разделяем точкой с запятой ";" [vba]
Код
Function SUMM_VES(r As Range) As Double For Each cl In r.Cells txt = Replace(cl.Value, "х", "*") txt = Replace(txt, "x", "*") txt = Replace(txt, ",", ".") s = Split(txt, ";") If UBound(s) >= 0 Then For i = 0 To UBound(s) SUMM_VES = SUMM_VES + Application.Evaluate(s(i)) Next i End If Next cl End Function
[/vba]
Добрый день. Как вариант, можно пользовательской функцией (макросы должны быть включены). Товар в разных весовых категориях разделяем точкой с запятой ";" [vba]
Код
Function SUMM_VES(r As Range) As Double For Each cl In r.Cells txt = Replace(cl.Value, "х", "*") txt = Replace(txt, "x", "*") txt = Replace(txt, ",", ".") s = Split(txt, ";") If UBound(s) >= 0 Then For i = 0 To UBound(s) SUMM_VES = SUMM_VES + Application.Evaluate(s(i)) Next i End If Next cl End Function