Переключение значения поля в сводной таблице - PullRequest
Новая
       3

Переключение значения поля в сводной таблице

0 голосов
/ 27 февраля 2020

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

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

Кроме того, для простоты есть больше параметров, чем перечислено здесь, но неэффективно создавать несколько сводных диаграмм. Как мне нужно было бы создать пару сотен. 

Option Explicit
Sub Toggle_Value_Field()
'Add/Remove the field to the pivot table.
'The field is determined by the button text that calls the macro.

Dim pt As PivotTable
Dim pf As PivotField
Dim sField As String
Dim shp As Shape

  'Set variables
  Set pt = ActiveSheet.PivotTables(1)
  Set shp = ActiveSheet.Shapes(Application.Caller)
  sField = shp.TextFrame.Characters.Text

  'Toggle field
  'If visible then hide it
  If pt.PivotFields(sField).Orientation = xlRowField Then
  pt.PivotFields(sField).Orientation = xlHidden
    shp.Fill.ForeColor.Brightness = 0.5
  Else 'Add to Rows area
    pt.PivotFields(sField).Orientation = xlRowField
    shp.Fill.ForeColor.Brightness = 0
  End If

End Sub
...