Сортировка в один клик Как сортировать сводную таблицу в excel макросом VBA

Сортировка средствами VBA еще никогда не было настолько простой. Нужно всего лишь вставить этот макрос в лист Excel и наслаждаться новым удобством работы со сводными таблицами. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) FirstPivotCol = Target(1, 1).PivotTable.TableRange1.Column &первый столбец диапазона размещения сводной таблицы SortingFieldName = Cells(Target(1, 1).Row, FirstPivotCol).PivotField &имя поля сводной таблицы по которому будем сортировать s = 3 - Target.PivotTable.PivotFields(SortingFieldName).AutoSortOrder &направление сортировки s = IIf(s БОЛЬШЕ 2, 1, s) &случаев, когда сортировка включается впервые, включаем начальную сортировку Target.PivotTable.PivotFields(SortingFieldName).AutoSort s, Target.PivotField.Name &выбранное на предыдущем этапе направление сортировки Cancel = True E: End Sub угловые скобки здесь запрещены поэтому надпись БОЛЬШЕ замени на значок больше. #PivotTable