Excel VBA質問箱 IV

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

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


23081 / 76738 ←次へ | 前へ→

【59028】Re:ピボットテーブルを自動化したい
発言  かみちゃん E-MAIL  - 08/11/24(月) 0:00 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>2)1.は、この通り8にしたいのですが、この集計結果8を3.の行に表示したい
>  ので、上記のダブルクリックでの設定でやろうとしましたが駄目でした。
>  そこで、手集計(sum関数)で入れたのですが、これでは毎回位置が変わるので
>  自動記録では今回のみにしか通用しない

その通りです。やっと気づいていただけましたか?

自動記録で100%できるとは、誰も申し上げていません。
多少の修正は必要になります。

ですから、今回のみにしか通用しなくても自動記録はできるはずです。
その記録したコードをどのようなデータでも対応できるように修正すればいいわけ
で、修正の仕方がわからなければ、元データと期待している結果と、現在得られている
結果をきちんと説明すれば、いくらでもアドバイスはさせていただきます。

しかし、今回の場合、毎回、「手集計(sum関数)」をしているのですか?
本当は、手作業の手順は確立されているのではないのですか?
それとも、手間がかかるのは、この部分で、手順もあやふやなのではないでしょうか?

つまり、ピボットテーブルの作り方が間違っていると思います。

あまり長々とスレッドを伸ばすも、本意ではないので、[59005]で提示された
コードのうち、最後の

  With ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("出荷数量")
    .Orientation = xlRowField
    .Position = 3
  End With
  ActiveSheet.PivotTables("ピボットテーブル2").AddDataField ActiveSheet.PivotTables( _
    "ピボットテーブル2").PivotFields("商品名"), "データの個数 / 商品名", xlCount
  ActiveWindow.SmallScroll Down:=-3

を削除して、以下のコードを最後に追加してください。

  With ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("出荷数量")
    .Orientation = xlDataField
    .Function = xlSum '合計
    .Position = 1
  End With

  With ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("商品名")
    .Orientation = xlDataField
    .Function = xlCount 'データの個数
    .Position = 2
  End With

  With ActiveSheet.PivotTables("ピボットテーブル2").DataPivotField
    .Orientation = xlColumnField
    .Position = 1
  End With

'  '「特級」を先頭に移動
'  ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("等級").PivotItems("特級"). _
'    Position = 1

  '「倉庫」ごとの集計をしない
  ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("倉庫").Subtotals = Array( _
    False, False, False, False, False, False, False, False, False, False, False, False)
  Range("C6").Select
  '列と行の総計を非表示
  With ActiveSheet.PivotTables("ピボットテーブル2")
    .ColumnGrand = False
    .RowGrand = False
  End With

  '項目名の変更
  ActiveSheet.PivotTables("ピボットテーブル2").DataPivotField.PivotItems("合計 / 出荷数量"). _
    Caption = "出荷数"
  ActiveSheet.PivotTables("ピボットテーブル2").DataPivotField.PivotItems( _
    "データの個数 / 商品名").Caption = "行数"

  ActiveWorkbook.ShowPivotTableFieldList = False
  Application.CommandBars("PivotTable").Visible = False

  '列全体を指定している場合、「(空白)」が集計するため非表示にする
  With ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("倉庫")
    .PivotItems("(空白)").Visible = False
  End With

  MsgBox "データを集計しました"

これらのコードは、ピボットテーブルの一般操作を「マクロの記録」で記録しただけです。

今一度、ピボットテーブルの一般操作をご確認ください。
2 hits

【58993】ピボットテーブルを自動化したい ackkn 08/11/22(土) 10:23 質問
【58994】Re:ピボットテーブルを自動化したい トト 08/11/22(土) 13:29 発言
【58995】Re:ピボットテーブルを自動化したい ackkn 08/11/22(土) 13:55 発言
【58996】Re:ピボットテーブルを自動化したい トト 08/11/22(土) 14:19 発言
【58997】Re:ピボットテーブルを自動化したい ackkn 08/11/22(土) 16:13 発言
【58998】Re:ピボットテーブルを自動化したい トト 08/11/22(土) 16:37 発言
【58999】Re:ピボットテーブルを自動化したい ackkn 08/11/22(土) 17:46 お礼
【59000】Re:ピボットテーブルを自動化したい ackkn 08/11/22(土) 17:48 質問
【59001】Re:ピボットテーブルを自動化したい トト 08/11/22(土) 18:03 発言
【59002】Re:ピボットテーブルを自動化したい ackkn 08/11/22(土) 18:13 発言
【59003】Re:ピボットテーブルを自動化したい かみちゃん 08/11/22(土) 19:50 発言
【59004】Re:ピボットテーブルを自動化したい ackkn 08/11/22(土) 20:10 発言
【59005】Re:ピボットテーブルを自動化したい ackkn 08/11/22(土) 20:55 発言
【59006】Re:ピボットテーブルを自動化したい かみちゃん 08/11/22(土) 21:42 発言
【59007】Re:ピボットテーブルを自動化したい [名前なし] 08/11/22(土) 23:11 発言
【59008】Re:ピボットテーブルを自動化したい かみちゃん 08/11/23(日) 0:11 発言
【59009】Re:ピボットテーブルを自動化したい ackkn 08/11/23(日) 9:24 発言
【59010】Re:ピボットテーブルを自動化したい かみちゃん 08/11/23(日) 9:50 発言
【59011】Re:ピボットテーブルを自動化したい [名前なし] 08/11/23(日) 10:11 発言
【59012】Re:ピボットテーブルを自動化したい かみちゃん 08/11/23(日) 10:16 発言
【59013】Re:ピボットテーブルを自動化したい ackkn 08/11/23(日) 10:16 発言
【59014】Re:ピボットテーブルを自動化したい かみちゃん 08/11/23(日) 10:37 発言
【59015】Re:ピボットテーブルを自動化したい かみちゃん 08/11/23(日) 11:47 発言
【59016】Re:ピボットテーブルを自動化したい ackkn 08/11/23(日) 19:47 発言
【59017】Re:ピボットテーブルを自動化したい かみちゃん 08/11/23(日) 20:19 発言
【59019】Re:ピボットテーブルを自動化したい ackkn 08/11/23(日) 21:53 発言
【59020】Re:ピボットテーブルを自動化したい かみちゃん 08/11/23(日) 22:04 発言
【59021】Re:ピボットテーブルを自動化したい ackkn 08/11/23(日) 22:45 発言
【59023】Re:ピボットテーブルを自動化したい かみちゃん 08/11/23(日) 22:56 発言
【59025】Re:ピボットテーブルを自動化したい ackkn 08/11/23(日) 23:06 発言
【59026】Re:ピボットテーブルを自動化したい かみちゃん 08/11/23(日) 23:15 発言
【59027】Re:ピボットテーブルを自動化したい ackkn 08/11/23(日) 23:46 発言
【59028】Re:ピボットテーブルを自動化したい かみちゃん 08/11/24(月) 0:00 発言
【59029】Re:ピボットテーブルを自動化したい ackkn 08/11/24(月) 0:10 発言
【59030】Re:ピボットテーブルを自動化したい ackkn 08/11/24(月) 0:23 発言
【59031】Re:ピボットテーブルを自動化したい かみちゃん 08/11/24(月) 0:34 発言
【59032】Re:ピボットテーブルを自動化したい かみちゃん 08/11/24(月) 9:57 発言
【59048】Re:ピボットテーブルを自動化したい ackkn 08/11/24(月) 21:57 お礼
【59049】Re:ピボットテーブルを自動化したい かみちゃん 08/11/24(月) 22:09 発言

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