こんにちは私はピボットテーブルでカウントするためにVBAを使用したい

Question

私は行の "Pogグループ"と "アイテム＃"のコーディングを書くためにVBAを使用することができます。次に、このPivotテーブルのVBAによって各PogグループのItem＃repeatを何度も数えたいと思います。私はそれらを合計することができますが、私はそれらを数える方法を知らない。下の図では、左のピボットテーブルの効果を実現することができますが、右の効果を実現したいと思います。すべてのあなたの助けをありがとう！

Sub creatpivottable2() 

Dim PT As PivotTable 
Dim PTCache As PivotCache 
Worksheets("SKU & POG DataResource").Select 

Set PTCache = ActiveWorkbook.PivotCaches.Create(xlDatabase, Cells(1, 1).CurrentRegion) 
Set PT = ActiveSheet.PivotTables.Add(PivotCache:=PTCache, TableDestination:=Range("E4")) 

With PT 
.PivotFields("POG Group").Orientation = xlRowField 
.PivotFields("Item #").Orientation = xlRowField 
.PivotFields("Trait #").Orientation = xlDataField 


End With 


End Sub 

enter image description here

Answer 1

使用このスニペット：

With PT 
    .PivotFields("POG Group").Orientation = xlRowField 
    .PivotFields("Item #").Orientation = xlRowField 
    With .PivotFields("Trait #") 
     .Orientation = xlDataField 
     .Function = xlCount 
    End With 
End With