Я пытаюсь рассчитать общий процент по типам оповещений, используя этот столбец. Столбец работает так, что если он равен «1», то он находится во времени обслуживания. Если это «0», то это не так. Я пытаюсь добавить вычисляемое поле, чтобы найти общий процент времени обслуживания от того, сколько типов оповещений было в пределах уровня обслуживания. Но я не уверен, как использовать цикл для подсчета количества «1» и деления его на все возвращаемые значения TTS. Код уже возвращает сводную таблицу. Я просто не уверен, как вернуть дополнительный столбец TTS Percentage. У меня проблемы с последним фрагментом кода.
With xlPT
With .PivotFields("Generated")
.Orientation = xlPageField
'.Position = 1
.Caption = "Day Generated"
End With
With .PivotFields("Closed")
.Orientation = xlPageField
'.Position = 1
.Caption = "Day Closed"
End With
With .PivotFields("AlertDescription")
.Orientation = xlRowField
'.Position = 1
.Caption = "Alert Description"
End With
With .PivotFields("Status")
.Orientation = xlColumnField
' .Position = 2
.Caption = "Status"
End With
With .PivotFields("Inbox_Key")
.Orientation = xlDataField
.Function = xlCount
.NumberFormat = "#,##0"
.Caption = "Count of Status'"
End With
With .PivotFields("TTS")
.Orientation = xlRowField
'.Function = xlCount
'.NumberFormat = "#,##0"
.Caption = "Time to Serve"
End With
With .CalculatedFields.Add("TTS_Total", "=sum(TTS) WHEN TTS = '1'/Count(TTS)")
.Orientation = xlRowField
.Function = xlAverage
.NumberFormat = "0.00%"
.Caption = "Time to Serve %"
End With