| Jak zamienić zliczanie na zsumowanie wszystkich pól danych? |
|
Problem: Utworzyłem tabelę przestawną z kilkoma polami danych. Niestety w tabeli znajdują się puste komórki co skutkuje tym, że zamiast funkcji sumującej wartości pojawia się funkcja zliczająca. Chciałbym to zmienić. ![]() ![]() Rozwiązanie: Możesz wykorzystać np. takie makro, które zamienia hurtowo funkcję zliczajacą komórki na funkcję sumującą: Sub CountToSum() Dim PT As PivotTable Dim PTfield As PivotField Set PT = ActiveSheet.PivotTables(1) For Each PTfield In PT.DataFields With PTfield If .Function = xlCount Then .Function = xlSum .Caption = Replace(.Caption, "Licznik z", "Suma") End If End With Next PTfield End Sub |
|
| Zmieniony ( Wtorek, 22. Wrzesień 2009 21:37 ) |

.jpg)