Napadá mne možnost pomocí výpočtové položky. Nevýhodou je, že pokud se v datech vyskytne další rok, tento vzorec se musí ručně aktualizovat. Nicméně, pokud aktualizujete kontingenční tabulky pomocí kódu, dá se to samozřejmě automatizovat. Např.:Sub subActualizeFormula()
Const sITEM As String = "Celkový průměr"
Dim bExists As Boolean
Dim sFormula As String
With Worksheets("detail_auta").PivotTables("Kontingenční tabulka 1").PivotFields("ROK")
Dim pi As PivotItem
For Each pi In .PivotItems
If Not pi.Caption = sITEM Then
sFormula = sFormula & "'" & pi.Caption & "'"
Else
bExists = True
End If
Next pi
Set pi = Nothing
sFormula = "=(" & Replace(sFormula, "''", "'+'") & ")/" & (.PivotItems.Count + bExists)
If Not bExists Then
.CalculatedItems.Add sITEM, sFormula
Else
.CalculatedItems(sITEM).StandardFormula = sFormula
End If
End With 'Worksheets("detail_auta").PivotTables("Kontingenční tabulka 1").PivotFields("ROK")
End Sub