Chapter-05 樞紐分析表

第五章　樞紐分析表

05-01　取得樞紐分析表的資料來源

應用範例
Sub 取得樞紐分析表的資料來源()
MsgBox “顯示被選取的樞紐分析表的資料來源”
MsgBox Selection.PivotTable.SourceData
End Sub

05-02　取得樞紐分析表資料來源工作表的欄位名稱

應用範例
Sub 顯示樞紐分析表資料來中的欄位名稱()
MsgBox "將樞紐分析表的資料來源工作表的欄位依序顯示出來"
pfsuu = Selection.PivotTable.PivotFields.Count
For i = 1 To pfsuu
pfname = Selection.PivotTable.PivotFields(i).Name
MsgBox "第 " & i & " 個欄位的名稱： " & pfname
Next i
End Sub

05-03　取得樞紐分析表的資料欄位名稱

應用範例
Sub 取得樞紐分析表中資料欄位的名稱()
MsgBox “顯示被選取的樞紐分析表內資料欄位的名稱”
dfsuu = Selection.PivotTable.DataFields.Count
For i = 1 To dfsuu
MsgBox Selection.PivotTable.DataFields(i).Name
Next i
End Sub

05-04　取得樞紐分析表行欄位的名稱

應用範例
Sub 取得樞紐分析表中行欄位的名稱()
MsgBox “顯示被選取的樞紐分析表內行欄位的名稱”
cfsuu = Selection.PivotTable.ColumnFields.Count
For i = 1 To cfsuu
MsgBox Selection.PivotTable.ColumnFields(i).Name
Next i
End Sub

05-05　取得樞紐分析表列欄位的名稱

應用範例
Sub 取得樞紐分析表中列欄位的名稱()
MsgBox “顯示被選取的樞紐分析表內列欄位的名稱”
gfname = Selection.PivotTable.RowFields.Count
For i = 1 To gfname
MsgBox Selection.PivotTable.RowFields(i).Name
Next i
End Sub

05-06　取得樞紐分析表的頁欄位名稱

應用範例
Sub 取得頁欄位的名稱()
MsgBox “取得頁欄位的名稱”
pfsuu = Selection.PivotTable.PageFields.Count
For i = 1 To pfsuu
MsgBox Selection.PivotTable.PageFields(i).Name
Next i
End Sub

05-07　隱藏欄位中的項目

應用範例
Sub 隱藏欄位中的項目()
MsgBox “隱藏樞紐分析表中「費用類別」欄位內的「置裝費」項目”
Selection.PivotTable.PivotFields(“費用類別”).PivotItems.Item(“置裝費”).Visible = False
MsgBox “回復原來的狀態”
Selection.PivotTable.PivotFields(“費用類別”).PivotItems.Item(“置裝費”).Visible = True
End Sub

05-08　變更頁欄位所顯示的項目

應用範例
Sub 變更頁欄位中的項目()
MsgBox “將樞紐分析表中頁欄位「類別」所顯示的項目變更為「轉帳」”
Selection.PivotTable.PivotFields(“類別”).CurrentPage = “轉帳”
MsgBox “回復原來的狀態”
Selection.PivotTable.PivotFields(“類別”).CurrentPage = “全部”
End Sub

05-09　隱藏樞紐分析表的加總資料

應用範例
Sub 隱藏樞紐分析表的加總資料()
MsgBox “隱藏樞紐分析表中列與行的加總資料”
Selection.PivotTable.RowGrand = False
Selection.PivotTable.ColumnGrand = False
MsgBox “回復原來的狀態”
Selection.PivotTable.RowGrand = True
Selection.PivotTable.ColumnGrand = True
End Sub

05-10　變更列欄位與行欄位的位置

應用範例
Sub 變更列欄位及行欄位的位置()
MsgBox “將列欄位及行欄位的位置交換”
Selection.PivotTable.PivotFields(“月”).Orientation = xlColumnField
Selection.PivotTable.PivotFields(“費用類別”).Orientation = xlRowField
MsgBox “回復原來的狀態”
Selection.PivotTable.PivotFields(“月”).Orientation = xlRowField
Selection.PivotTable.PivotFields(“費用類別”).Orientation = xlColumnField
End Sub

05-11　變更頁欄位與行欄位的位置

應用範例
Sub 變更列欄位及頁欄位的位置()
MsgBox “將列欄位及頁欄位的位置交換”
Selection.PivotTable.PivotFields(“月”).Orientation = xlPageField
Selection.PivotTable.PivotFields(“類別”).Orientation = xlRowField
MsgBox “回復原來的狀態”
Selection.PivotTable.PivotFields(“月”).Orientation = xlRowField
Selection.PivotTable.PivotFields(“類別”).Orientation = xlPageField
End Sub

05-12　變更樞紐分析表行欄位的欄寬

應用範例
Sub 設定樞紐分析表的行寬()
MsgBox “將樞紐分析表中B行到F行的行寬設為7點”
ActiveSheet.Columns(“B:F”).Select
Selection.ColumnWidth = 7
End Sub

05-13　更新樞紐分析表的資料

應用範例
Sub 更新樞紐分析表的資料()
MsgBox “更新樞紐分析表的資料，並顯示是否更新成功”
MsgBox ActiveSheet.PivotTables(1).RefreshTable
End Sub

05-14　取得最新的樞紐分析表資料更新日期

應用範例
Sub 取得資料更新的日期()
MsgBox “顯示樞紐分析表最新的資料更新日期”
MsgBox Selection.PivotTable.RefreshDate
End Sub