Подпись данных (итог) в линейчатой гистограмме с накоплением
Пользователь
Сообщений: Регистрация: 23.12.2014
22.09.2016 11:20:15
Подскажите, пожалуйста, как вставить подписи данных итоговых значений в линейчатой гистограмме с накоплением. С столбчатой все получилось, изменив тип диаграммы ряда «Итог» на график.
Изменено: - 22.09.2016 11:31:03
Группировка данных по 4-х уровнях с помощью макроса
Пользователь
Сообщений: Регистрация: 23.12.2014
27.05.2016 15:27:43
Есть таблица в которой нужно группировать данные по 4 уровням. Начала группировать вручную но на 2000 строке (всего 9400) поняла, что без макроса не обойдусь. Нашла вот такой, вот здесь ,
Код
Sub Multilevel_Group()
Dim level As Single, i As Single
Dim start As Single, LastRow As Single
Const FIRST_ROW = 2 'первая строка списка
Const FIRST_COLUMN = 1 'первый столбец списка
Const NUMBER_OF_LEVELS = 3 'количество уровней
Set ws = ActiveSheet
ws.UsedRange.ClearOutline 'убираем все группировки на листе
LastRow = WorksheetFunction.Match("Конец", ws.Columns(FIRST_COLUMN), 0) 'определяем номер последней строки
'проходим во вложенном цикле по уровням и группируем
For level = 1 To NUMBER_OF_LEVELS
start = 0
For i = FIRST_ROW To LastRow
'если нашли начало группы - запоминаем номер строки
If ws.Cells(i, level+FIRST_COLUMN-1) <> "" And _
WorksheetFunction.CountA(ws.Cells(i + 1, FIRST_COLUMN).Resize(1, level)) = 0 Then start = i
'если нашли конец группы - группируем
If WorksheetFunction.CountA(ws.Cells(i + 1, FIRST_COLUMN).Resize(1, level)) > 0 And start > 0 Then
ws.Rows(start + 1 & ":" & i).Group
start = 0
End If
Next i
Next level
End Sub
но почему-то выдает ошибку. Подскажите, что я делаю не так.
