Всем привет!
На листе «сумма» есть сводная таблица. Написал код, с помощью которого можно группировать значения в таблице в зависимости от проставленных чисел в ячейках «от», «до» и «шаг».
Проблема в следующем:
1.Значения «от», «до» и «шаг» должны быть на другом листе - листе «Общий». Я сделал на них ссылку через знак «равно» ( =Общий!A3 ), однако не происходит автоматических вычислений, при изменении значений «от», «до», «шаг» на листе «Общий».
2.Пытался написать код для листа «Общий», но не вышло.
Код для листа "сумма"
Какие есть идеи?
Заранее благодарен!
На листе «сумма» есть сводная таблица. Написал код, с помощью которого можно группировать значения в таблице в зависимости от проставленных чисел в ячейках «от», «до» и «шаг».
Проблема в следующем:
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 |
Какие есть идеи?
Заранее благодарен!