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

Вход

Регистрация

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

 

= Мир MS Excel/Формула для формирования накопительного списка - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Формула для формирования накопительного списка (Формулы/Formulas)
Формула для формирования накопительного списка
vermut Дата: Понедельник, 04.04.2016, 16:17 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 60% ±

Excel 2013
[color=red]Есть несколько списков номенклатуры и кол-вом, причем состав номенклатуры может меняться и неупорядочн, как формировать накопительный список ? Пример во вложении.
К сообщению приложен файл: add_spisok.xlsx(18Kb)
 
Ответить
Сообщение[color=red]Есть несколько списков номенклатуры и кол-вом, причем состав номенклатуры может меняться и неупорядочн, как формировать накопительный список ? Пример во вложении.

Автор - vermut
Дата добавления - 04.04.2016 в 16:17
abtextime Дата: Понедельник, 04.04.2016, 16:23 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 427
Репутация: 60 ±
Замечаний: 0% ±

Excel 2010
А Список2, Список3, ..., Список N - могут размещаться ПОД Списком1?

Если да - то замечательно Сводная таблица подходит
 
Ответить
СообщениеА Список2, Список3, ..., Список N - могут размещаться ПОД Списком1?

Если да - то замечательно Сводная таблица подходит

Автор - abtextime
Дата добавления - 04.04.2016 в 16:23
_Boroda_ Дата: Понедельник, 04.04.2016, 16:30 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 10334
Репутация: 4357 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Сводная по нескольким диапазонам консолидации
К сообщению приложен файл: add_spisok_1.xlsx(17Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеСводная по нескольким диапазонам консолидации

Автор - _Boroda_
Дата добавления - 04.04.2016 в 16:30
vermut Дата: Понедельник, 04.04.2016, 16:35 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 60% ±

Excel 2013
А Список2, Список3, ..., Список N - могут размещаться ПОД Списком1?


Да могут, спасибо.
 
Ответить
Сообщение
А Список2, Список3, ..., Список N - могут размещаться ПОД Списком1?


Да могут, спасибо.

Автор - vermut
Дата добавления - 04.04.2016 в 16:35
vermut Дата: Понедельник, 04.04.2016, 16:36 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 60% ±

Excel 2013
Сводная по нескольким диапазонам консолидации


Спасибо за участие, а кроме сводных не вариантов?
 
Ответить
Сообщение
Сводная по нескольким диапазонам консолидации


Спасибо за участие, а кроме сводных не вариантов?

Автор - vermut
Дата добавления - 04.04.2016 в 16:36
abtextime Дата: Понедельник, 04.04.2016, 16:55 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 427
Репутация: 60 ±
Замечаний: 0% ±

Excel 2010
ну вот так можно, конечно

Код
=СУММЕСЛИ($A$5:$A$999;H5;$B$5:$B$999)


Но надо, чтобы ВСЕ артикулы были в сводном списке, и если позиции нет в списках, то будет = 0
К сообщению приложен файл: _add_spisok.xlsx(12Kb)


Сообщение отредактировал abtextime - Понедельник, 04.04.2016, 16:55
 
Ответить
Сообщениену вот так можно, конечно

Код
=СУММЕСЛИ($A$5:$A$999;H5;$B$5:$B$999)


Но надо, чтобы ВСЕ артикулы были в сводном списке, и если позиции нет в списках, то будет = 0

Автор - abtextime
Дата добавления - 04.04.2016 в 16:55
abtextime Дата: Понедельник, 04.04.2016, 16:59 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 427
Репутация: 60 ±
Замечаний: 0% ±

Excel 2010
Впрочем, можно и для такой структуры, например для двух столбцов

Код
=СУММЕСЛИ($A$5:$A$999;H5;$B$5:$B$999)+СУММЕСЛИ($D$5:$D$999;H5;$E$5:$E$999)
К сообщению приложен файл: 2007511.xlsx(13Kb)
 
Ответить
СообщениеВпрочем, можно и для такой структуры, например для двух столбцов

Код
=СУММЕСЛИ($A$5:$A$999;H5;$B$5:$B$999)+СУММЕСЛИ($D$5:$D$999;H5;$E$5:$E$999)

Автор - abtextime
Дата добавления - 04.04.2016 в 16:59
vermut Дата: Вторник, 05.04.2016, 08:38 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 60% ±

Excel 2013
Спасибо всем за участие!
 
Ответить
СообщениеСпасибо всем за участие!

Автор - vermut
Дата добавления - 05.04.2016 в 08:38
МВТ Дата: Среда, 06.04.2016, 19:49 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация: 136 ±
Замечаний: 0% ±

Excel 2007
Как вариант, макрос на словаре
[vba]
Код
Sub tt()
    Dim Dict As Object, LRow As Long, LCol As Long, i As Long, j As Long, S As String
    Set Dict = CreateObject("Scripting.Dictionary")
    LCol = Cells(6, Columns.Count).End(xlToLeft).Column
    With Dict
        For i = 1 To LCol
            If Cells(5, i) Like "Ñïèñîê*" Then
                LRow = Cells(Rows.Count, i).End(xlUp).Row - 2
                For j = 7 To LRow
                    S = Cells(j, i)
                    If .exists(S) Then _
                    .Item(S) = .Item(S) + CDbl(Cells(j, i + 1)) _
                    Else .Add Key:=S, Item:=CDbl(Cells(j, i + 1))
                Next
            End If
        Next
        Range("K7").Resize(.Count, 1) = WorksheetFunction.Transpose(.Keys)
        Range("L7").Resize(.Count, 1) = WorksheetFunction.Transpose(.Items)
        Application.ScreenUpdating = False
        With ActiveSheet.Sort
            .SortFields.Clear
            .SortFields.Add Key:=Range("K7"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .SetRange Range("K7:L13")
            .Header = xlNo
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        Range("K7").Select
        Application.ScreenUpdating = True
    End With
End Sub
[/vba]
Только поменять диапазон вывода собранных данных, сейчас он в столбцах K и L того же листа, что и данные
 
Ответить
СообщениеКак вариант, макрос на словаре
[vba]
Код
Sub tt()
    Dim Dict As Object, LRow As Long, LCol As Long, i As Long, j As Long, S As String
    Set Dict = CreateObject("Scripting.Dictionary")
    LCol = Cells(6, Columns.Count).End(xlToLeft).Column
    With Dict
        For i = 1 To LCol
            If Cells(5, i) Like "Ñïèñîê*" Then
                LRow = Cells(Rows.Count, i).End(xlUp).Row - 2
                For j = 7 To LRow
                    S = Cells(j, i)
                    If .exists(S) Then _
                    .Item(S) = .Item(S) + CDbl(Cells(j, i + 1)) _
                    Else .Add Key:=S, Item:=CDbl(Cells(j, i + 1))
                Next
            End If
        Next
        Range("K7").Resize(.Count, 1) = WorksheetFunction.Transpose(.Keys)
        Range("L7").Resize(.Count, 1) = WorksheetFunction.Transpose(.Items)
        Application.ScreenUpdating = False
        With ActiveSheet.Sort
            .SortFields.Clear
            .SortFields.Add Key:=Range("K7"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .SetRange Range("K7:L13")
            .Header = xlNo
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        Range("K7").Select
        Application.ScreenUpdating = True
    End With
End Sub
[/vba]
Только поменять диапазон вывода собранных данных, сейчас он в столбцах K и L того же листа, что и данные

Автор - МВТ
Дата добавления - 06.04.2016 в 19:49
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Формула для формирования накопительного списка (Формулы/Formulas)
Страница 1 из 11
Поиск:

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