エクセルの学校：全文検索：Hyper Estraier：ピボットテーブル

Results of 1 - 1 of about 2422 for ピボットテーブル (0.004 sec.)

[[20170414220641]]: #score: 4769; @digest: 06df74b6516513358ff38a2f3d7b769a; @id: 73228; @mdate: 2017-04-16T12:50:23Z; @size: 6094; @type: text/plain; #keywords: 算額 (26028), 精算 (20112), 御無 (9243), pivotfields (7656), 頼日 (7616), xlcolumnfield (6501), createpivottable (6321), pivotcaches (6084), 然思 (5900), xldatabase (5829), xlrowfield (5304), 額") (4508), 社| (4253), ピボ (4164), orientation (3986), 無沙 (3977), 沙汰 (3645), トテ (3332), 企業 (3318), 株式 (3292), 業名 (3187), pivottables (3073), 式会 (2759), りり (2183), 名") (1979), ボッ (1934), ーブ (1926), テー (1874), 計表 (1706), 依頼 (1545), 別シ (1479), ブル (1445); 『ピボットテーブルの自動作成で教えてください。』（りりちゃん☆彡）
こんばんわ。ピボットテーブルで教えていただきたいです。りりちゃん☆彡と申します。いつもお世話になっております。 ピボットテーブルを使用して、企業ごとの集計をしたいです。教本で自動で作成できるコードを見付けたので、自分でアレンジして使用していますが、本当は別のシートにピボットテーブルを作成してほしいです。（今は同一シートにできてしまいます。）どう修正すれば、別のシートで作成してくれるのかどなたか教えてくださいっ。やりたいことは、下記の通りです。同一ブックの中に下記のような表があります。これでピボットテーブルを作成したいです。シート1:〇月精算額集計表シート2:〇月の精算額計表から、作成したピボットテーブルを作成したいです。シート1の集計表はAからEまでですが、最終的に1年間分を集計するので毎月増えていきます。シート1: |[A] |[B] |[C] |[D] |[E] [1]|伝票番号|企業名 |先方担当|依頼日 |ご精算額 [2]|riri001 |A株式会社|猫田 |2016/4/15|1,403,335 [3]|riri002 |B株式会社|犬先 |2016/4/25|7,553,532 [4]|riri003 |C株式会社|鳥島 |2016/4/28| 246,722 シート2: シート1から読み込んで作成したピボットテーブル。 ◎使用しているコード◎ Sub ピボットテーブル自動作成_応用2() Dim rng As Range Dim ws As Worksheet For Each ws In Worksheets Set rng = ws.Range("A5").CurrentRegion '集計表の表の始点 ActiveWorkbook.PivotCaches.Add(xlDatabase, rng) _ .CreatePivotTable ws.Range("A2") 'PVTの始まりシート2に表示してほしいです。 With ws.PivotTables(1) .PivotFields("依頼日").Orientation = xlRowField .PivotFields("企業名").Orientation = xlColumnField .PivotFields("精算額").Orientation = xlDataField End With Next End Sub お忙しい所お手数ですが、ご指導の方よろしくお願い致します。りりちゃん☆彡＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- 回答ではありません。ピボットは操作でも、ほとんど経験がなく、わからないことだらけですが、勉強のためにアップされたレイアウトを元に、あれこれいじっています。ところで、交通整理。（回答そのものは、他の皆さんからすぐにアップされると思います）・元データですけど、サンプルは A1 から始まっていますよね。でも、ほんとは A5 が基点なんですか? ・フィールドに "精算額" とあります。一方、レイアウトサンプルではご精算額になってます。これでうまくいってますか? ・結果を別シートというのは要件としてはわかります。でも、現在のコードは、ブック内の各シートすべてに対して、それぞれピボット集計を行っていますよね。その結果を特定の別シートに展開? 各シートの集計結果を別シートに、それぞれどのように配置する予定ですか? ・また、その別シートはピボット集計の元データとしては使ってはいけないのですが、現在の構えではそのシート自体も元データシートとして扱われてしまいますよね? シートを取り出すループで、そのシートが集計用別シートであれば除外するという制御が必要でしょうね。 ★いずれにしても、集計結果を別シートに展開するなら、そういった操作（ダイアログで既存のシート(E)と場所(L)で指定）すればコード雛形は生成されると思いますよ。（β） 2017/04/15(土) 10:51 ---- 別のシートにピボットテーブルを作成する動作をマクロ記録してみてはどうでしょうか。手作業で他のシートに作れないのことはないと思いますが。（γ） 2017/04/15(土) 10:53 ---- 現在使っているコード正しいのかな…と書こうとしたらすでにβさんから指摘が。 Sub ピボットテーブル自動作成_応用2() Dim rng As Range Set rng = Sheets("Sheet1").Range("A1").CurrentRegion Sheets("Sheet2").Select ActiveWorkbook.PivotCaches.Add(xlDatabase, SourceData:="Sheet1!" & rng.Address).CreatePivotTable Range("A1") With Sheets("Sheet2").PivotTables(1) .PivotFields("依頼日").Orientation = xlRowField .PivotFields("企業名").Orientation = xlColumnField .PivotFields("精算額").Orientation = xlDataField End With Set rng = Nothing End Sub （bi） 2017/04/15(土) 11:03 ---- （β）様、（γ）様、（bi）様。こんばんわ。りりちゃんです。この度は、お世話になっております。昨日は外出していてご連絡できなくてすみません。（β）様、御無沙汰いたしております。今回もご指導いただきありがとうございます。りりです。いつもお世話になっております。色々ご質問とご指摘いただきありがとうございました。スミマセンお気付きの通りです。。私の方で、書込みするときにコピペしてから、セル番号の修正したのが間違っていました。ごめんなさい。あと、ご精算額という部分も間違えてました。実際には精算額としています。 ActiveWorkbook.PivotCaches.Add(xlDatabase, rng) _ .CreatePivotTable ws.Range("A2") の所は、今使っているものは K5 になってました。あと、新規ページはC5辺りになって居ればいいかなと思います。 4つめの・の件は。。ゴメンナサイあまり考えていません。。ありがとうございました。また色々教えてください(*´▽｀*) （γ）様、いつもご指導いただきありがとうございます。御無沙汰しております。りりです。いつもお世話になっております。修正したりしたいとき、一度マクロの記録を使ってみるという手があるんですね。できなくて悩んでいた時でも、全然思いつかなかったです。。今度はできないとき一度記録してみるって言うやり方をやってみたいと思います。それでわからなくなったらまたこちらでご相談したいと思います。ありがとうございました。また色々教えてください(*'▽') （bi）様、初めまして。りりちゃん☆彡です。このたびのご指導、お忙しい所ありがとうござました。先程やってみたら無事希望通りになってました(*^^*)ありがとうございます!! とってもとっても助かります。それにしても。。別のシートで作成させる時はこうやえばいいんですね。。。 VBA初心者で本を見ながら頑張ってはいますが、まだ全然できていないです。今回の事もどうやればいいのかな〜?と思っては見たものの全然思いつきもしませんでしたし。。本の通りに頑張って、とりあえずはできては見たものの、別シートにしたいのにな〜と提出の度に思ってました。今度はやっと、納得いった形で提出できるんだ〜って嬉しくなりました。 (人''▽｀)ありがとう☆ 色々と勉強になりました。ありがとうございました。今後ともどうぞよろしくお願い致します。（りりちゃん☆彡） 2017/04/16(日) 21:50 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201704/20170414220641.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ