2020年10月27日 星期二

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

沒有留言:

張貼留言

數字統計:20240223

成交量大  漲幅大 統計: 演算法模擬: