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

Вход

Регистрация

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

 

= Мир MS Excel/Автоподсчёт количества с условием и удалением лишних строк - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автоподсчёт количества с условием и удалением лишних строк (Формулы/Formulas)
Автоподсчёт количества с условием и удалением лишних строк
SirKelt Дата: Четверг, 08.02.2018, 04:20 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Доброго времени суток!

Прошу помочь с написанием макроса или может какой-то другой вариант есть. В общем...
Имеем перечень товаров с определённым партиями и количеством:
____________________________________
Товар Описание Партия Количество
1210 Сыр 001 30
1210 Сыр 001 20
1210 Сыр 002 15
2544 Яйцо 004 50
2544 Яйцо 004 60
2544 Яйцо 006 20
2544 Яйцо 006 17
3100 Мука 008 25
3100 Мука 008 25
3100 Мука 008 30
3100 Мука 008 10
____________________________________

Необходимо, что бы автоматически подсчитывалось количество по партии, то есть конечный вариант был:
____________________________________
Товар Описание Партия Количество
1210 Сыр 001 50
1210 Сыр 002 15
2544 Яйцо 004 110
2544 Яйцо 006 37
3100 Мука 008 90
____________________________________

Ассортимент и партии ежедневно меняются.

С уважением, SirKelt
К сообщению приложен файл: 4063479.png(12.0 Kb) · 4154886.png(9.2 Kb)


Сообщение отредактировал SirKelt - Четверг, 08.02.2018, 04:28
 
Ответить
СообщениеДоброго времени суток!

Прошу помочь с написанием макроса или может какой-то другой вариант есть. В общем...
Имеем перечень товаров с определённым партиями и количеством:
____________________________________
Товар Описание Партия Количество
1210 Сыр 001 30
1210 Сыр 001 20
1210 Сыр 002 15
2544 Яйцо 004 50
2544 Яйцо 004 60
2544 Яйцо 006 20
2544 Яйцо 006 17
3100 Мука 008 25
3100 Мука 008 25
3100 Мука 008 30
3100 Мука 008 10
____________________________________

Необходимо, что бы автоматически подсчитывалось количество по партии, то есть конечный вариант был:
____________________________________
Товар Описание Партия Количество
1210 Сыр 001 50
1210 Сыр 002 15
2544 Яйцо 004 110
2544 Яйцо 006 37
3100 Мука 008 90
____________________________________

Ассортимент и партии ежедневно меняются.

С уважением, SirKelt

Автор - SirKelt
Дата добавления - 08.02.2018 в 04:20
китин Дата: Четверг, 08.02.2018, 07:35 | Сообщение № 2
Группа: Модераторы
Ранг: Участник клуба
Сообщений: 5103
Репутация: 809 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
Прошу помочь с написанием макроса

а где помочь то? в картинке макрос писать?


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщение
Прошу помочь с написанием макроса

а где помочь то? в картинке макрос писать?

Автор - китин
Дата добавления - 08.02.2018 в 07:35
Nic70y Дата: Четверг, 08.02.2018, 07:37 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4884
Репутация: 1060 ±
Замечаний: 0% ±

Excel 2013


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
Сообщениеhttps://support.office.com/ru-ru....4456576

Автор - Nic70y
Дата добавления - 08.02.2018 в 07:37
sv2014 Дата: Четверг, 08.02.2018, 11:02 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 223
Репутация: 60 ±
Замечаний: 0% ±

Excel 2013
SirKelt, добрый день,как вариант кнопки test и очистка

[vba]
Код
Sub test()
       Dim z, i&, j&, k&, m&, t$: z = Range("A1:D" & Range("A" & Rows.Count).End(xlUp).Row).Value
    With CreateObject("scripting.dictionary"): .CompareMode = 1
    For i = 1 To UBound(z): t = z(i, 1) & z(i, 2) & z(i, 3)
        If .exists(t) = False Then
            m = m + 1: .Item(t) = m: For j = 1 To UBound(z, 2): z(m, j) = z(i, j): Next
        Else
           z(.Item(t), 4) = z(.Item(t), 4) + z(i, 4)
        End If
    Next
Range("F1").Resize(.Count, UBound(z, 2)).Value = z
End With
End Sub
[/vba]
К сообщению приложен файл: example_09_02_2.xls(38.5 Kb)
 
Ответить
СообщениеSirKelt, добрый день,как вариант кнопки test и очистка

[vba]
Код
Sub test()
       Dim z, i&, j&, k&, m&, t$: z = Range("A1:D" & Range("A" & Rows.Count).End(xlUp).Row).Value
    With CreateObject("scripting.dictionary"): .CompareMode = 1
    For i = 1 To UBound(z): t = z(i, 1) & z(i, 2) & z(i, 3)
        If .exists(t) = False Then
            m = m + 1: .Item(t) = m: For j = 1 To UBound(z, 2): z(m, j) = z(i, j): Next
        Else
           z(.Item(t), 4) = z(.Item(t), 4) + z(i, 4)
        End If
    Next
Range("F1").Resize(.Count, UBound(z, 2)).Value = z
End With
End Sub
[/vba]

Автор - sv2014
Дата добавления - 08.02.2018 в 11:02
Che79 Дата: Четверг, 08.02.2018, 12:51 | Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 1274
Репутация: 227 ±
Замечаний: 0% ±

Excel 2007, 2013
Сводная (Вам выше и ссылку на почитать даже дали)
К сообщению приложен файл: 654321.xlsx(14.3 Kb)


Делай нормально и будет нормально!
 
Ответить
СообщениеСводная (Вам выше и ссылку на почитать даже дали)

Автор - Che79
Дата добавления - 08.02.2018 в 12:51
SirKelt Дата: Суббота, 10.02.2018, 19:18 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо огромное за помощь!
 
Ответить
СообщениеСпасибо огромное за помощь!

Автор - SirKelt
Дата добавления - 10.02.2018 в 19:18
SirKelt Дата: Воскресенье, 11.02.2018, 20:13 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Понял как работает кнопка, как привязать макрос, но не понял, как сделать, что бы по двум столбцам параллельно считалось.
То есть в первом случае были столбцы: Товар, Описание, Партия, Количество.
А как быть если столбцов чуть больше и по двум из них нужен параллельный подсчёт?
Пример: Товар, Описание, Партия, Количество, Квант, Кол-во упаковок
Необходимо, чтобы подсчитывалось "Количество" и "Кол-во упаковок" параллельно.

Заранее благодарю!

С уважением, SirKelt
К сообщению приложен файл: 7012843.xls(47.5 Kb)
 
Ответить
СообщениеПонял как работает кнопка, как привязать макрос, но не понял, как сделать, что бы по двум столбцам параллельно считалось.
То есть в первом случае были столбцы: Товар, Описание, Партия, Количество.
А как быть если столбцов чуть больше и по двум из них нужен параллельный подсчёт?
Пример: Товар, Описание, Партия, Количество, Квант, Кол-во упаковок
Необходимо, чтобы подсчитывалось "Количество" и "Кол-во упаковок" параллельно.

Заранее благодарю!

С уважением, SirKelt

Автор - SirKelt
Дата добавления - 11.02.2018 в 20:13
Che79 Дата: Воскресенье, 11.02.2018, 20:34 | Сообщение № 8
Группа: Проверенные
Ранг: Старожил
Сообщений: 1274
Репутация: 227 ±
Замечаний: 0% ±

Excel 2007, 2013
Вариант сводной.
К сообщению приложен файл: 887521.xlsx(16.6 Kb)


Делай нормально и будет нормально!
 
Ответить
СообщениеВариант сводной.

Автор - Che79
Дата добавления - 11.02.2018 в 20:34
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автоподсчёт количества с условием и удалением лишних строк (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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