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

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

[[20090421113327]]: #score: 4770; @digest: b210bb8be68e9897e685379989c5ef03; @id: 43054; @mdate: 2009-04-22T12:12:33Z; @size: 3771; @type: text/plain; #keywords: lcolumn (17779), 日計 (12243), 前計 (11199), 月計 (9000), ト状 (6267), pivottables (6167), ピボ (5448), 額日 (5319), xlrowfield (5304), ニド (5304), 夫! (5223), トテ (5000), position (4388), ドナ (4289), pivotfields (3828), 計30 (3806), 付名 (3722), 計15 (3645), 日あ (3634), ナ) (3511), 計: (3310), 計6 (3040), ミニ (3018), ーブ (2892), テー (2813), 表2 (2632), ボッ (2530), ル1 (2450), ブル (2315), 月1 (2310), 月30 (2306), 月2 (2082); 『日計と月計』（TAIYO）
下記の表1のような表を、表2のように、ボタン1つで日計と月計がでるようにしたいです。この表は、他のシートへのデータシートになっているため、もう一つボタンを作って解除もすぐできるようにしたいと思ってます。表1 合計 : 金額日付名前計 6月1日あ 10 6月1日い 50 6月2日あ 30 6月30日う 30 7月1日あ 15 7月2日え 100 表2 合計 : 金額日付名前計 6月1日あ 10 6月1日い 50 6月1日計 60 6月2日あ 30 6月2日計 30 6月30日う 30 6月30日計 30 6月計 120 7月1日あ 15 7月1日計 15 7月2日え 100 7月2日計 100 7月計 150 [エクセルのバージョン]Excel2000 [OSのバージョン]Windows2000 ---- まさにピボットテーブルだと思うんですが、それを「マクロの記録」で記録したものを使うのではだめなんでしょうか。また、他のシートから参照させているデータなら、 ピボットテーブルを別シート表示させたほうがいいと思うんですけど。 (ミニドナ) ---- 日々データは増えていき、表を作りたいというよりは、画面で日計と月計がわかればいいんですが。それでもピボットテーブルを使った方がいいでしょうか? （TAIYO） ---- 他のシートからデータを参照するのならば、データのレイアウトは変更しないほうがいいのではないでしょうか。たとえば、表1から表2に同じシート状で変更した場合、表2にした状態でこのデータを参照しているシートを見るとデータがおかしくなったりしないですか? 「大丈夫!」ということであっても、作業の途中に何らかのトラブルが起きた場合、データを復元するのって大変ですよね。 >それでもピボットテーブルを使った方がいいでしょうか? ピボットでやる方法が一番簡単でわかりやすいと思ったのでアドバイスしました。 ピボットテーブルがダメな理由があれば教えてください。それはさておき、同じシート状にピボットテーブルを作成・クリアするマクロを作りました。とは言っても私もマクロは素人同然なので「マクロの記録」をしながら作ったものです。詳しい方はもっと効率のよい・きれいなマクロを作れるのかもしれませんが、私にはこれが限界です。 CommandButton1とCommandButton2はシート状に作ったボタンの名前です。シート名はSheet1としています。また、表はタイトルを含めA2から始まっていて、ピボットは同じシートのE1に作られるように作成しています。 Private Sub CommandButton1_Click() 'ピボットテーブル表示 Dim lrow As Long, lcolumn As Long Range("A2").Select lrow = Selection.End(xlDown).Row lcolumn = Selection.End(xlToRight).Column ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "Sheet1!R2C1:R" & lrow & "C" & lcolumn).CreatePivotTable TableDestination:=Range("E1"), _ TableName:="ピボットテーブル1" ActiveSheet.PivotTables("ピボットテーブル1").SmallGrid = False With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("日付") .Orientation = xlRowField .Position = 1 End With With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("名前") .Orientation = xlRowField .Position = 2 End With With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("計") .Orientation = xlDataField .Position = 1 End With End Sub Private Sub CommandButton2_Click() 'ピボットテーブル削除 MsgBox "ピボットテーブルを" & vbCrLf & "クリアします" Columns("E:G").Select Selection.Delete Shift:=xlToLeft Range("A1").Select End Sub (ミニドナ) ※抜けがあったので修正しました 2009/4/21 14:58 ---- ＞日々データは増えていき、＞表を作りたいというよりは、画面で日計と月計がわかればいいんですが。でしたら、別シートへピボットテーブルを作って於いてデータが増えた場合は [!](更新)ボタンを押して確認するのはどうでしょう。 (HANA) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200904/20090421113327.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ