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

Вход

Регистрация

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

 

= Мир MS Excel/Подсчет сумм уникальных значений. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчет сумм уникальных значений. (Макросы/Sub)
Подсчет сумм уникальных значений.
parovoznik Дата: Понедельник, 06.05.2019, 15:46 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 443
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
Добрый день.
Есть таблица с реестром отгрузок. По нажатию на кнопку формируется список уникальных значений и производится подсчет сумм по товару.Уникальные значения отображаются , а вот сумма выдает НОЛЬ.
Вопрос ,как подкорректировать код,что бы считалась сумма?
К сообщению приложен файл: 8811492.xlsm (17.8 Kb)
 
Ответить
СообщениеДобрый день.
Есть таблица с реестром отгрузок. По нажатию на кнопку формируется список уникальных значений и производится подсчет сумм по товару.Уникальные значения отображаются , а вот сумма выдает НОЛЬ.
Вопрос ,как подкорректировать код,что бы считалась сумма?
Автор - parovoznik
Дата добавления - 06.05.2019 в 15:46
nilem Дата: Понедельник, 06.05.2019, 16:42 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
parovoznik, привет
например, так:
[vba]
Код
Sub УникальныеСумма()
Dim r1 As Range    ', r2 As Range
Set r1 = Range("C4", Cells(Rows.Count, "C").End(xlUp)).Columns

r1.AdvancedFilter xlFilterCopy, , Range("H4"), True
With Range("H4").CurrentRegion.Columns(2)
    .Offset(1).Resize(.Rows.Count - 1).FormulaR1C1 = _
    "=SUMIF(" & r1.Address(, , xlR1C1) & ",RC[-1]," & r1.Offset(, 1).Address(, , xlR1C1) & ")"
End With
'    r2(2) = Application.SumIfs(r1(4), r1(3), r2(3))
'    Лист1.Range("I4") = "Количество"
End Sub
[/vba]

Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеparovoznik, привет
например, так:
[vba]
Код
Sub УникальныеСумма()
Dim r1 As Range    ', r2 As Range
Set r1 = Range("C4", Cells(Rows.Count, "C").End(xlUp)).Columns

r1.AdvancedFilter xlFilterCopy, , Range("H4"), True
With Range("H4").CurrentRegion.Columns(2)
    .Offset(1).Resize(.Rows.Count - 1).FormulaR1C1 = _
    "=SUMIF(" & r1.Address(, , xlR1C1) & ",RC[-1]," & r1.Offset(, 1).Address(, , xlR1C1) & ")"
End With
'    r2(2) = Application.SumIfs(r1(4), r1(3), r2(3))
'    Лист1.Range("I4") = "Количество"
End Sub
[/vba]
Автор - nilem
Дата добавления - 06.05.2019 в 16:42
parovoznik Дата: Понедельник, 06.05.2019, 17:26 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 443
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
nilem, работает.
А границы таблицы можно подкорректировать. Если например было 5 строк. А следующий отчет уже 3 строки или больше ,что бы границы создавались автоматически. Заранее благодарен.
 
Ответить
Сообщениеnilem, работает.
А границы таблицы можно подкорректировать. Если например было 5 строк. А следующий отчет уже 3 строки или больше ,что бы границы создавались автоматически. Заранее благодарен.
Автор - parovoznik
Дата добавления - 06.05.2019 в 17:26
nilem Дата: Понедельник, 06.05.2019, 17:52 | Сообщение № 4
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
[vba]
Код
With Range("H4").CurrentRegion
[/vba]
Выберите ячейку Н4, нажмите Ctrl+A - то, что выделено на листе, это и есть Range("H4").CurrentRegion. Сколько строк в нем будет, все попадут в обработку.

Яндекс.Деньги 4100159601573
 
Ответить
Сообщение[vba]
Код
With Range("H4").CurrentRegion
[/vba]
Выберите ячейку Н4, нажмите Ctrl+A - то, что выделено на листе, это и есть Range("H4").CurrentRegion. Сколько строк в нем будет, все попадут в обработку.
Автор - nilem
Дата добавления - 06.05.2019 в 17:52
parovoznik Дата: Понедельник, 06.05.2019, 18:32 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 443
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
nilem, понял.Благодарю.
 
Ответить
Сообщениеnilem, понял.Благодарю.
Автор - parovoznik
Дата добавления - 06.05.2019 в 18:32
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчет сумм уникальных значений. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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