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

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

[[20040521131039]]: #score: 4770; @digest: 6b473cc9c5810676aa0cbde6351ea04f; @id: 6769; @mdate: 2004-05-24T02:04:27Z; @size: 3393; @type: text/plain; #keywords: ル6 (19287), r75c5 (15368), pivottables (10792), showpivottablefieldlist (10586), 計! (9608), xlpivottableversion10 (8781), sourcedata (7104), tabledestination (6697), defaultversion (6514), pivotfields (6380), hisa (5961), adddatafield (5793), xlrowfield (5304), tablename (4816), position (4388), 録時 (4341), createpivottable (4214), pivotcaches (4056), sourcetype (4027), トテ (4000), xldatabase (3886), ピボ (3845), 統計 (3810), 上金 (3228), 択時 (2874), 動記 (2656), ーブ (2313), テー (2250), 回デ (2140), 計/ (2044), orientation (1995), ボッ (1935); 『ピボットテーブル』（HISA）
ピボットテーブルをマクロの自動記録したのですが、集計するごとに指定する範囲が違う（列数は同じで行数が増える）ので範囲を指定するメッセージボックスを表示させることはできますか?または毎回データの入力されてるセル全体が選択されるといいのですが・・・ ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "統計!R1C1:R75C5").CreatePivotTable TableDestination:="", TableName:= _ "ピボットテーブル2", DefaultVersion:=xlPivotTableVersion10 上記のコードの R1C1:R75C75 この部分をなんとかしたいのですが、できるのでしょうか? ---- 範囲選択時に、ctrl + shift + ↓ などのショートカットキーを使っては如何ですか? (INA) ---- マクロではなくて手動で作成するときは ctrl + shift + ↓ でいいのですが、マクロのコードをいじって、入力されているデータを全て選択というのはできないのでしょうか? (HISA) ---- 範囲選択時に、ctrl + shift + ↓ などのショートカットキーを使って >マクロの自動記録しては如何ですか? (INA) ---- だめでした・・・データを仮に増やして試したのですが、前回ctrl + shift + ↓で指定した部分のみが実行されてしまいます。 (HISA) ---- A1〜 E の最下行までなら E1 を選択。 ctrl + shift + ← して、 ctrl + shift + ↓ でいいのでは? (INA) ---- 自動記録時に ctrl + shift + ← ctrl + shift + ↓ で範囲を指定してるのですが、やはりデータが追加されてしまうと記録した時のセル範囲しか集計されません・・・ (HISA) ---- >自動記録時に ctrl + shift + ← ctrl + shift + ↓ で範囲を指定してるのですが、どのようなコードを使っているか、掲載して頂けませんか? (INA) ---- おはようございます。土曜日曜お休みでしたので、返事が遅くなりました。自動記録で作成されたコードです。 Sub 集計ピボットテーブル作成() ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "統計!R1C1:R75C5").CreatePivotTable TableDestination:="", TableName:= _ "ピボットテーブル6", DefaultVersion:=xlPivotTableVersion10 ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1) ActiveSheet.Cells(3, 1).Select ActiveWorkbook.ShowPivotTableFieldList = True With ActiveSheet.PivotTables("ピボットテーブル6").PivotFields("月度") .Orientation = xlPageField .Position = 1 End With With ActiveSheet.PivotTables("ピボットテーブル6").PivotFields("担当者名") .Orientation = xlRowField .Position = 1 End With With ActiveSheet.PivotTables("ピボットテーブル6").PivotFields("商品コード") .Orientation = xlRowField .Position = 2 End With ActiveSheet.PivotTables("ピボットテーブル6").AddDataField ActiveSheet.PivotTables( _ "ピボットテーブル6").PivotFields("数量"), "合計 / 数量", xlSum ActiveSheet.PivotTables("ピボットテーブル6").AddDataField ActiveSheet.PivotTables( _ "ピボットテーブル6").PivotFields("売上金額"), "合計 / 売上金額", xlSum ActiveWorkbook.ShowPivotTableFieldList = False End Sub 基になるデータは A B C D E 1 月度担当者商品コード数量売上金額このような形です。(hisa) ---- >SourceData:= "統計!R1C1:R75C5" ↓ SourceData:= "統計!A1:E" & Range("E65536").End(xlup).Row にすると、如何でしょうか? (INA) ---- できました。 INAさん、どうもありがとうございました。(HISA) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200405/20040521131039.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ