Перенос соответствующих значений в общую таблицу по нескольким критерям

@Mymine · Регистрация: 23.10.2015

Author24 — интернет-сервис помощи студентам

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

Появилась срочная задача.

В прикрепленном файле необходим создать макрос на кнопке Start на вкладке Pivot, позволяющий переносить данные в таблицу с трех остальных вкладок.
Прошу учесть, что столбцы и строки в них находятся в произвольном порядке.

@pashulka · 21.05.2017, 12:56

Можете попробовать сводную таблицу, ибо за исключением деталей, результат будет именно тот, что Вы хотите получить.

@Mymine · 21.05.2017, 13:09 **[ТС]**

Да, вы правы, спасибо большое, но к сожалению мне необходим именно макрос.

@pashulka · 21.05.2017, 22:15

Если это нужно для работы, а не для преподавателя, то можно - либо программно создавать каждый раз новую сводную таблицу, либо также программно обновлять уже имеющуюся сводную таблицу.

@Mymine · 21.05.2017, 23:09 **[ТС]**

Это задание для курсов в университете, поэтому необходим написать именно макрос, выполняющий поставленную задачу. Идея со сводной таблицей, пусть и через vba, интересна, но боюсь требуется алгоритм для поиска и переноса подходящего значения с разных вкладок в заданную область по нескольким критериям

toiai · 22.05.2017, 18:17

Вот пример создания консолидированной сводной таблицы макросом:

Visual Basic

Sub CreatePivotConsolidate()
    Dim arr(), i&, sh As Worksheet
    For Each sh In Sheets
        If InStr(1, sh.Name, "Sheet") <> 0 Then
            ReDim Preserve arr(i)
            arr(i) = Array(sh.Name & "!" & sh.UsedRange.AddressLocal(ReferenceStyle:=xlR1C1), sh.Name)
            i = i + 1
        End If
    Next
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlConsolidation, SourceData:=arr). _
        CreatePivotTable TableDestination:="", TableName:="СводнаяТаблица4"
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    With ActiveSheet.PivotTables("СводнаяТаблица4")
        .DataPivotField.PivotItems("Сумма по полю Значение").Position = 1
        .PivotFields("Страница1").Orientation = xlColumnField
        .PivotFields("Страница1").Position = 2
        .ColumnGrand = False
        .RowGrand = False
        .PivotFields("Столбец").Subtotals = _
            Array(False, False, False, False, False, False, False, False, False, False, False, False)
        .TableStyle2 = ""
    End With
End Sub

@pashulka 4135 / 2239 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	21.05.2017, 12:56	2
	Можете попробовать сводную таблицу, ибо за исключением деталей, результат будет именно тот, что Вы хотите получить. 0

@Mymine 0 / 0 / 0 Регистрация: 23.10.2015 Сообщений: 8
	21.05.2017, 13:09 [ТС]	3
	Да, вы правы, спасибо большое, но к сожалению мне необходим именно макрос. 0

@pashulka 4135 / 2239 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	21.05.2017, 22:15	4
	Если это нужно для работы, а не для преподавателя, то можно - либо программно создавать каждый раз новую сводную таблицу, либо также программно обновлять уже имеющуюся сводную таблицу. 0

@Mymine 0 / 0 / 0 Регистрация: 23.10.2015 Сообщений: 8
	21.05.2017, 23:09 [ТС]	5
	Это задание для курсов в университете, поэтому необходим написать именно макрос, выполняющий поставленную задачу. Идея со сводной таблицей, пусть и через vba, интересна, но боюсь требуется алгоритм для поиска и переноса подходящего значения с разных вкладок в заданную область по нескольким критериям 0

	22.05.2017, 18:17