VBA入門：樞紐分析 小工具(列資料隱藏、增加與取消小計)

 

最近寫了各樞紐分析的案子，用了一些小副程式，提供參考。

功能取得樞紐分析表的名稱，列印在即時運算上。

Private Sub CommandButton1_Click()

For A = 1 To ActiveSheet.PivotTables.Count Step 1

    Debug.Print ActiveSheet.PivotTables(A).Name

         Next

End Sub

隱藏列資料的選項。

說明：xlHidden是隱藏，很多人當作刪除資料

Sub DELETE_All_PTFieldsRow()

 For Each pf In ActiveSheet.PivotTables("PivotTable1").RowFields

    pf.Orientation = xlHidden

Next pf

End Sub

資加列的資料，副程式引數為文字資料，直接增加。

Sub PivotTable_ADD(ROW_NAME)

    With ActiveSheet.PivotTables("PivotTable1").PivotFields(ROW_NAME)

        .Orientation = xlRowField

    End With

End Sub

取消各行的小計結果，副程式引數為陣列資料，陣列內須以文字型態設定資料

Sub PivotTable_Subtotals_CANEL(TAG)

Set pt = ActiveSheet.PivotTables(1)

With pt

 For P = LBound(TAG) To UBound(TAG, 2) Step 1

      .PivotFields(TAG(1, P)).Subtotals(1) = True     

     .PivotFields(TAG(1, P)).Subtotals(1) = False

 Next

End With