Excel VBA質問箱 IV

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

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


2687 / 13646 ツリー ←次へ | 前へ→

【66347】エクセル 2007 ピボットテーブル roro728 10/8/24(火) 16:39 質問[未読]
【66350】Re:エクセル 2007 ピボットテーブル teian 10/8/25(水) 10:33 発言[未読]
【66559】Re:エクセル 2007 ピボットテーブル roro728 10/9/10(金) 13:42 お礼[未読]

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

引用なし
パスワード
   ピボットテーブルを立ち上げた際、自動的に小計が各列・行に表示されるのですが、VBAで、一度に非表示にする方法はありますか? 以下コードを適当に作ってみたのですが、エラーが出てしまい、上手く行きません。
ご教示の程よろしくお願いします!

Sheets("Pivot").PivotTables("TGETransations").PivotFields.Subtotals = False

【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

【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

2687 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free