Excel VBA質問箱 IV

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

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


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

15650 / 76734

←次へ　｜　前へ→


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

roro728 - 10/9/10(金) 13:42 -


	引用なし

	パスワード

お返事遅くなり、申し訳ありません。
このコード使えそうです!　ありがとうございます!!!

▼teian さん：
>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