Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

15858 / 76734

←次へ　｜　前へ→


	【66350】Re:エクセル　2007　ピボットテーブル

teian - 10/8/25(水) 10:33 -


	引用なし

	パスワード

Subtotalsプロパティは、PivotFieldsクラスには無さそうですので、
各々のPivotFieldに対してセットしてやればいいのではないでしょうかね？

以下、サンプルです。

Dim myArray As Variant
Dim pvtFld As PivotField
myArray = Array(False, False, False, False, False, False, False, False, False, False, False, False)
With Worksheets(1).PivotTables(1)
　　For Each pvtFld In .PivotFields
　　　　With pvtFld
　　　　　　If .Orientation > 0 Then
　　　　　　　　.Subtotals = myArray
　　　　　　End If
　　　　End With
　　Next
End With

1 hits

▼

【66347】エクセル　2007　ピボットテーブル roro728 10/8/24(火) 16:39