Excel VBA質問箱 IV

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

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


21336 / 76732 ←次へ | 前へ→

【60797】Re:データの位置を変えたい
質問  たかと  - 09/3/15(日) 23:23 -

引用なし
パスワード
   ▼横入り さん:

回答ありがとうございました。
もう少し質問させてください。

ピボットテーブルをVBAで記述することをしたことがなく、
よくわからなかったせいもあり、ピボット以外に方法があるのでしたら、
ご教授いただきたく投稿しました。
ピボットテーブルを実際に記録してみたのですが、次の点教えていただけないでしょうか?
もとのデータが情報が日ごとに増えていくので、行数などが増えた場合に、
範囲の自動取得させたいのですが…


  Range("A1:C13").Select
  ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    "当月データ!R1C1:R13C13").CreatePivotTable TableDestination:="", TableName:= _
    "ピボットテーブル1", DefaultVersion:=xlPivotTableVersion10
  ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
  ActiveSheet.Cells(3, 1).Select
  Range("G5").Select
  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


おそらくはじめ3行ほどに範囲の情報が記述されていると思うのですが、
どのように記述すればいいのかわかりません。
ネットなどいろいろ調べてみましたが、ちょっとわかりません。
本当に初心者質問で申し訳ありませんが、
ご教授お願いいたします。
  

0 hits

【60791】データの位置を変えたい たかと 09/3/15(日) 0:15 質問
【60792】Re:データの位置を変えたい 横入り 09/3/15(日) 7:04 発言
【60793】Re:データの位置を変えたい 横入り 09/3/15(日) 8:57 発言
【60797】Re:データの位置を変えたい たかと 09/3/15(日) 23:23 質問
【60798】Re:データの位置を変えたい 横入り 09/3/16(月) 0:05 発言
【60803】Re:データの位置を変えたい たかと 09/3/16(月) 11:29 質問
【60804】Re:データの位置を変えたい ss 09/3/16(月) 12:21 回答
【60820】Re:データの位置を変えたい 横入り 09/3/16(月) 21:23 発言
【60846】Re:データの位置を変えたい たかと 09/3/17(火) 22:54 質問
【60847】Re:データの位置を変えたい 横入り 09/3/17(火) 23:12 発言
【60848】Re:データの位置を変えたい たかと 09/3/17(火) 23:40 質問
【60849】Re:データの位置を変えたい 横入り 09/3/17(火) 23:50 発言
【60867】Re:データの位置を変えたい たかと 09/3/18(水) 23:32 お礼

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