ピボットテーブルにフィールドを追加する ： Excel

Private Sub CommandButton1_Click()
    'ピボットテーブルのキャッシュ型
    Dim tCache As PivotCache
    
    Worksheets("日別の製造数").Activate
    'ピボットテーブルのキャッシュ作成
    Set tCache = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Range("A1:C16"))
    
    'ピボットキャッシュから、ピボットテーブルを作成
    tCache.CreatePivotTable TableDestination:=Worksheets("名前で集計").Range("A1"), TableName:="製造数"
    
    '名前の項目を追加
    Worksheets("名前で集計").PivotTables("製造数").AddFields RowFields:="名前"
    
    '製造数を追加
    Worksheets("名前で集計").PivotTables("製造数").PivotFields("製造数").Orientation = xlDataField
End Sub

Private Sub CommandButton2_Click()
    Worksheets("名前で集計").Activate
    
    'ピボットテーブル「製造数」に、日付と名前フィールドを追加する
    ActiveSheet.PivotTables("製造数").AddFields Array("日付", "名前")

    '日付を行フィールドにする
    With ActiveSheet.PivotTables("製造数").PivotFields("日付")
        .Orientation = xlRowField
    End With
    
    '名前を列フィールドにする
    With ActiveSheet.PivotTables("製造数").PivotFields("名前")
        .Orientation = xlColumnField
    End With

End Sub