Страницы: 1
RSS
Группировка значений сводной таблицы с помощью VBA
 
Всем привет!

На листе «сумма» есть сводная таблица. Написал код, с помощью которого можно группировать значения в таблице в зависимости от проставленных чисел в ячейках «от», «до» и «шаг».

Проблема в следующем:
1.Значения «от», «до» и «шаг» должны быть на другом листе - листе «Общий». Я сделал на них ссылку через знак «равно» ( =Общий!A3 ), однако не происходит автоматических вычислений, при изменении значений «от», «до», «шаг» на листе «Общий».    
2.Пытался написать код для листа «Общий», но не вышло.

Код для листа "сумма"
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Sheets("сумма").Range("D3:F3"), Range(Target.Address)) Is Nothing Then Exit Sub
    ActiveSheet.PivotTables("Сводная таблица1").PivotFields("сумма"). _
    ClearAllFilters
    Sheets("сумма").Range("A4").Select
    Selection.Ungroup
    Sheets("сумма").Range("A4").Select
    Selection.Group Start:=Sheets("сумма").Range("D3"), End:=Sheets("сумма").Range("E3"), By:=Sheets("сумма").Range("F3")
    Sheets("сумма").Range("D3").Select
End Sub

Какие есть идеи?
Заранее благодарен!
 
Сделал, чтобы работало с листа "Общий".
Изменено: Karataev - 17.07.2016 16:22:51 (Перевложил файл второй раз)
 
Karataev, супер! все работает! Огромное спасибо!
Страницы: 1
Наверх