OtenkiAme の回答履歴

1つのシートにページに複数のピボットテーブルデータがあるのですが 更新ボタンを押すだけで、全てのピボットテーブルデータを更新したいです。 （元データは全て別です） よろしくお願いします。

エクセルでピボットテーブルを使いデータの集計を行い、ピボットグラフを作成したいと思っています。 グラフの作成までは出来たのですが、グラフの大きさなどを整えることができません。 グラフエリアのサイズや位置を変えることは出来たのですが、その中のプロットエリアや凡例のサイズや位置を変えることが出来ません。 プロットエリアなどをクリックし、隅のポイントをクリックしてもサイズなどを変えることができません。 ピボットグラフのフィールドボタンを表示しないようにもしてみましたが、それでもサイズなどを変えることはできませんでした。 （ちなみに、ピボットテーブルを使わないグラフでプロットエリアや凡例のサイズを変えることはできます） ピボットグラフでプロットエリアのサイズとかを変更することはできないのですか？ また、変える方法があれば、お願いします。 使っているのは、Excel2003です。

VBAを使いピボットテーブルを自動的に再作成（データが追加更新されていく為）したいのですがうまくいきません、何方か良い方法を教えて下さい、参考URLでも構いません、宜しくお願い致します。

以前、http://oshiete1.goo.ne.jp/qa3362330.html　を質問させていただいた者です。 同じくエクセル２００３で、ピボットを作りました。ＶＢＡで、 Selection.End(xlDown).Select N = Selection.Row を登録し、下記のプログラムを作ったところ、★の部分で再計算が始まり、終了まで非常に時間がかかってしまいます（１分程）。マクロは作動しますので、時間がかからないようにする方法はあるでしょうか。よろしくお願いします。 Sheets("data").Select Range("D1").Select ActiveCell.FormulaR1C1 = "担当" Selection.End(xlDown).Select N = Selection.Row ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],number!C[-3]:C[-2],2,0)" Selection.AutoFill Destination:=Range("D2:D" & N) Range("D2:D" & N).Select Selection.Copy ★　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Sheets("answer").Select Range("A1").Select ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "data!R1C1:R" & N & "C4").CreatePivotTable TableDestination:="[集計(1).xls]answer!R1C1", _ TableName:="ピボットテーブル1", DefaultVersion:=xlPivotTableVersion10 With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("性別") .Orientation = xlRowField .Position = 1 End With With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("商品番号") .Orientation = xlColumnField .Position = 1 End With ActiveSheet.PivotTables("ピボットテーブル1").AddDataField ActiveSheet.PivotTables( _ "ピボットテーブル1").PivotFields("価格"), "合計 / 価格", xlSum Columns("A:A").ColumnWidth = 30 Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A1").Select End Sub

ピポットをマクロに自動登録しました。ところが作動するとデバックが起きてしまいます。ＶＢＡに特別なプログラムを付け加える必要があるのでしょうか？　初心者なので勉強不足のところが多いのですが、どうかよろしくお願いします。 なお、シートは3枚で「data」「number」「answer」があり、「data」には価格の情報がないので、「number」シートからvlookupで情報を拾ってきています。ピポットは「answer」シートに作り、値の貼り付けをしてセルＡ１の列幅を20にしています。 Range("D1").Select ActiveCell.FormulaR1C1 = "担当" 　　 ActiveCell.Characters(1, 2).PhoneticCharacters = "タントウ" Range("D2").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(R2C1:R92C1,number!R2C1:R109C2,2,0)"　　 Selection.AutoFill Destination:=Range("D2:D92"), Type:=xlFillDefault Range("D2:D92").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A2").Select Application.CutCopyMode = False ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "data!R1C1:R92C4").CreatePivotTable TableDestination:="[集計(1).xls]answer!R1C1" _ , TableName:="ピボットテーブル1", DefaultVersion:=xlPivotTableVersion10 With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("性別") .Orientation = xlColumnField .Position = 1 End With With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("商品番号") .Orientation = xlRowField .Position = 1 End With With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("担当") .Orientation = xlRowField .Position = 1 End With ActiveSheet.PivotTables("ピボットテーブル1").PivotSelect "商品番号[All]", xlLabelOnly, _ True Range("B2").Select ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("商品番号").Orientation = _ xlHidden ActiveSheet.PivotTables("ピボットテーブル1").AddDataField ActiveSheet.PivotTables( _ "ピボットテーブル1").PivotFields("価格"), "合計 / 価格", xlSum Columns("A:A").Select Selection.ColumnWidth = 20 Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub

Excelでピボットグラフレポートを作成したあと、ピボットテーブルレポートを表示させないように設定するにはどうすればよいのですか？

ピボットテーブル内のあるセルをダブルクリックすると、その元データがエクセルの表で出力されますよね。その表にオートフォーマット機能が働いて列幅なんかが勝手に変わって表示されちゃうんですけど、これを止めたいのです。 どうやったらいいのでしょうか。

Excelのピボットテーブルで日付のフィールドを四半期でグループ化すると1月～3月が第1四半期、4月～6月が第2四半期、7月～9月が第3四半期、10月～12月が第4四半期となってしまいますが、4月～6月を第1四半期とすることはできるのでしょうか。 （リストから1月～3月のデータをなくしても4月～6月は第2四半期となってしまいました）

エクセル2000を使っています。ピボットテーブルに罫線を追加したいのですが、セルの書式設定で罫線を設定しても、データを更新すると、もとに戻ってしまいます。ピボットテーブルオプションで、書式の維持を選択しているのですが・・・罫線は設定できないのでしょうか？

よろしくお願いします。 エクセル２０００のピボットテーブルについて教えてください。 ピボットテーブルの結果を二軸のグラフにするにはどうしたらいいのでしょうか？（ｘ軸、ｙ軸がありその表に点が打ち込まれている表です。） 先輩が作った表は、そのｘ軸、ｙ軸がそれぞれの軸のデータの平均をあらわしていて、ｙ軸上では右に、ｘ軸上では上にあれば、データの平均を上回っている表なのです。 どうすればそのような表が作れるのでしょうか？ 困ってます。教えてください。 よろしくお願いします。

エクセル2000を使っています。ピボットテーブルに罫線を追加したいのですが、セルの書式設定で罫線を設定しても、データを更新すると、もとに戻ってしまいます。ピボットテーブルオプションで、書式の維持を選択しているのですが・・・罫線は設定できないのでしょうか？