Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как посчитать в одной таблице штучный и весовой товар? - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Как посчитать в одной таблице штучный и весовой товар?
Императрица Дата: Понедельник, 18.12.2017, 12:15 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Уважаемые гении экселя! В примере таблица для формирования отгрузки товара, в которой д.б. учтен и весовой и штучный товар.
Сложность в учете весового товара,т.к один и тот же магазин может заказывать, допустим, весовой творог в разных весовых категориях (3х0,5 = 3 шт по 0,5 кг, 12х5 = 12 шт по 5 кг) Как правильно вносить данные, чтобы просчитать итог?
К сообщению приложен файл: 2990465.xls (27.0 Kb)


Я знаю, что ничего не знаю.
 
Ответить
СообщениеУважаемые гении экселя! В примере таблица для формирования отгрузки товара, в которой д.б. учтен и весовой и штучный товар.
Сложность в учете весового товара,т.к один и тот же магазин может заказывать, допустим, весовой творог в разных весовых категориях (3х0,5 = 3 шт по 0,5 кг, 12х5 = 12 шт по 5 кг) Как правильно вносить данные, чтобы просчитать итог?

Автор - Императрица
Дата добавления - 18.12.2017 в 12:15
sboy Дата: Понедельник, 18.12.2017, 13:33 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Как вариант, можно пользовательской функцией (макросы должны быть включены). Товар в разных весовых категориях разделяем точкой с запятой ";"
[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]
К сообщению приложен файл: 8910219.xls (35.5 Kb)


Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
Как вариант, можно пользовательской функцией (макросы должны быть включены). Товар в разных весовых категориях разделяем точкой с запятой ";"
[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]

Автор - sboy
Дата добавления - 18.12.2017 в 13:33
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!