Доброго времени суток всем форумчанам.
Суть проблемы заключается в следующем: есть данные по затратам времени на определенные операции и стоимости минуты этих операций. Идея заключалась в том, что при помощи PowerPivot создать сводную таблицу, в которой при установлении количества изделий мы сможем получить подробную расшифровку трудовых операций и их стоимость. Добавил вычисляемое поле =[кол-во минут]*[стоимость минут]*[количество изделий]. В принципе сводная свою роль выполняет, но вот проблемы с суммированием по изделиям и общим итогам. Сводная складывает стоимостные показатели минут и в промежуточных итогах дает [сумма минут]*[сумма стоимостей]*[кол-во изделий]. Хотелось бы чтобы по факту складывалась сумма по группе изделий по показателям [кол-во минут]*[стоимость минуты]*[кол-во изделий]. Ну и следовательно общий итог складывался по сумме групповых итогов. Буду рад любым подсказкам. Заранее спасибо)

Всем доброго времени суток.
Прикладываю два файла. В 1-м есть таблица куда надо перенести значения (в дальнейшем через PowerPivot будет строится сводная таблица план-факта). Во втором выгруженный из 1С документ в котором раскидана информация по затратам на проект. Помогите понять какой набор функций использовать для того, чтобы перетягивать значения затрат в соответствии с набором условий (номер подзаказа второго уровня; подкатегория; дата; стоимость незавершенного производства). Заранее спасибо)

Благодарю. Имеет ли смысл там дублировать эту тему?

Доброго всем дня.
Имеем следующую проблему. При выгрузке из 1С спецификации изделия в формате excel для расчета калькуляции программа выдает значения.
Сам файл имеет сложную структуру. Например несколько уровней группировки, где каждая группировка 2-го уровня разбивается ещё на несколько строчек 3-го уровня, которые в свою очередь разбиваются на строки более низкого уровня. Соответственно в ячейке первого уровня должна быть формула на построчное суммирование значений ячеек 2 уровня того же столбца, следовательно каждая ячейка 2-го уровня должна представлять из себя сумму построчного суммирования ячеек того же столбца 3-го уровня и т.д. Т.е мне необходимо, сгенерировать макрос, который автоматизирует данную работу, так как сейчас все это делается руками и при выгрузке спецификации в 3000 строк это очень долго и нудно.
Мучил на эту тему ChatGPT но он выдает неудовлетворительные результаты. Может проблема в запросе...
Надеюсь на вашу помощь. Пример калькуляции до и после ручной обработки прикладываю. (Пример1 - файл выгруженный из 1С; Пример 2 - файл обработанный руками).
Также примеры макросов от ChatGPT

Скрытый текст

Sub ВыполнитьПоследовательностьДействий()    ' Выделить всю таблицу и сделать границы видимыми    Cells.Select    Selection.Borders.LineStyle = xlContinuous        ' Задать формулу для столбца F    Range("F2:F" & Cells(Rows.Count, 5).End(xlUp).Row).FormulaR1C1 = "=RC[-1]*RC[-3]"        ' Раскрасить уровни группировки    ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1    With ActiveSheet.Cells        .Range("A1").ShowDetail = True        .Range("A1").Interior.Color = #ffff00 ' Желтый        .Range("A2").ShowDetail = True        .Range("A2").Interior.Color = #ffc000 ' Оранжевый, Акцент 6        .Range("A3").ShowDetail = True        .Range("A3").Interior.Color = #00b0f0 ' Темно-бирюзовый, Акцент 5        .Range("A4").ShowDetail = True        .Range("A4").Interior.Color = #800080 ' Лиловый, Акцент 4    End With        ' Расчет ячеек столбца F для каждого уровня    For i = 1 To 9        If Cells(Rows.Count, 6).End(xlUp).Row >= Cells(Rows.Count, 1).End(xlUp).Row + i Then            Cells(Rows.Count, 6).End(xlUp).Offset(1, 0).FormulaR1C1 = "=SUM(R[" & i & "]C:R[" & i & "]C[1])"        End If    Next i End Sub Sub ВыполнитьПоследовательностьДействий()    ' Включить отображение уровней группировки    ActiveSheet.Outline.ShowLevels RowLevels:=9, ColumnLevels:=1        ' Переменная для хранения номера уровня группировки    Dim уровень As Integer        ' Цикл для перебора уровней группировки    For уровень = 1 To 9        ' Формула для ячейки F уровня        Range("F" & уровень).Formula = "=SUM(" & GetRangeForLevel(уровень) & ")"    Next уровень End Sub Function GetRangeForLevel(уровень As Integer) As String    ' Функция для определения диапазона ячеек на заданном уровне группировки    Dim адрес As String    адрес = ""        ' Цикл для поиска ячеек на уровне    For Each Раздел In ActiveSheet.Rows        If Раздел.OutlineLevel = уровень Then            If адрес = "" Then                адрес = Раздел.Cells(1, 6).Address            Else                адрес = адрес & "," & Раздел.Cells(1, 6).Address            End If        ElseIf Раздел.OutlineLevel > уровень Then            Exit For        End If    Next Раздел        GetRangeForLevel = адрес End Function11:02