Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2706 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2706 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free