inosisi回答ポイント 100ptウォッチ

質問です

エクセルでＣＳＶファイルのSheet1にＡ列に日付、Ｂ列に金額、Ｃ列に担当者名が2行目から
データがあります。
Ａ列　　　Ｂ列　　　　Ｃ列
8月1日　　1000　　　ＡＡＡ

Sheet2に下記のようなクロス集計を作成するマクロをお願いします。（画像添付）
　　　AAA BBB CCC DDD EEE FFF GGG 計
1日　1,000 500 300 200 250 150 2,400
2日 500 300 200 100 250 150 1,500
3日　1,000 500 200 100 250 150 2,200
4日
5日
～

29日
30日
31日
合計　　2,000 1,500 600 600 200 750 450 6,100

日付はあらかじめ1日から31日まで固定しその行に該当金額を表示する
担当者名は変更可能とする
答えのｓｈｅｅｔ2の1行目は担当者名の項目名を表記する

• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• きゃづみぃ2011/08/04 21:23:48

  満足50pt

  ピボットテーブルをVBAで やってみました。

  なので ちょっと 表示が 違う箇所もありますが だいたい質問の内容は 出来てると思います。

  Sub Macro2()
      Worksheets("Sheet2").Cells.Clear
      
      ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
          "Sheet1!R1C1:R26C3").CreatePivotTable TableDestination:= _
          "Sheet2!R1:R65536", TableName:="ピボ", DefaultVersion:=xlPivotTableVersion10
      
      c1 = Format(Worksheets("Sheet1").Range("A1").Value, Worksheets("Sheet1").Range("A1").NumberFormatLocal)
      c2 = Worksheets("Sheet1").Cells(1, "C")
      
      Worksheets("Sheet2").PivotTables("ピボ").AddFields RowFields:=c1, ColumnFields:=c2
         
      Worksheets("Sheet2").PivotTables("ピボ").PivotFields(2).Orientation = xlDataField
      Application.CommandBars("PivotTable").Visible = False
      ActiveWorkbook.ShowPivotTableFieldList = False
  End Sub
  

  スター

  • inosisi 2011/08/05 14:15:44

    ありがとうございます

    ピボットテーブルとマクロをやってみたんですが日付が同じ日付で集計されないのですが何か方法はありますか？

    日付のなかみは秒単位になっています見た目は月日だけですが

    よろしくお願いします。

その他の回答

• きゃづみぃ2011/08/04 20:58:05

  満足50pt

  これはピボットテーブルを使うと 一発でできます。

  
  

  http://www11.plala.or.jp/koma_Excel/contents7/mame7046/mame704601.html

  http://www11.plala.or.jp/koma_Excel/pivot_menu.html

  スター

この質問へのコメント

• inosisi2011/08/04 19:26:36
  添付画像の空欄の0表示は不要です。
  
• inosisi2011/08/04 19:44:58
  「担当者名は変更可能とする」
  はデータの中から持ってくると思いますので「変更可能とする」の文言は不要です
  
  Ｂ列からＨ列の1行目に担当者名を表示する
  
  Ｉ列の計欄の0表示はなしです。
• inosisi2011/08/04 19:57:35
  「担当者名は変更可能とする」
  はデータの中から持ってくると思いますので「変更可能とする」の文言は不要です
  Ｂ列からＨ列の1行目に担当者名を表示する
  
  私の勘違いでやはりあらかじめ担当者欄Ｂ列からＨ列7個は固定します
  その担当者名はデータの中からコピー貼りつけして同じものを表示しますので合致させます
  担当者7個は固定します担当者の金額がない場合は空欄となります
  
  担当者の参照が必要であればSheet3のＡ列に記述してもＯＫです
  マクロの中に記述してもＯＫです
  お手数おかけします。
  
  
  
• きゃづみぃ2011/08/04 20:59:51
  ピボットテーブルは とても便利な機能なので ぜひ マスタしてください。
  クロス集計に おおいに役立ちます。
  
• きゃづみぃ2011/08/04 21:26:06
  ＞私の勘違いでやはりあらかじめ担当者欄Ｂ列からＨ列7個は固定します
  
  これは ある分だけ 作成されます。
• きゃづみぃ2011/08/05 14:31:26
  時分秒が違うと別扱いになっちゃうんですね。
  
  こちらでテスト用に作成する場合は、日付のみしか入れませんので
  時分秒は すべて 0となります。
  
  可能ならば 時分秒を すべて 0にして 実行してみたらいいでしょう。
  
• きゃづみぃ2011/08/05 14:42:28
  まず A列を D列にコピーします。
  A列の1行目に
  =TEXT(D1,"mm月dd日")
  と入れてこれをコピーして 行数分 貼り付けます。
  
  次に マクロの
  c1 = Format(Worksheets("Sheet1").Range("A1").Value, Worksheets("Sheet1").Range("A1").NumberFormatLocal)
  を
  c1 = Worksheets("Sheet1").Range("A1").Value
  に変更して 実行させれば いいですよ。
  
  
  
• inosisi2011/08/06 17:42:49
  ありがとうございます
  ピポットテーブルでやりましたら上手く行きました
  =TEXT(D1,"mm月dd日")
  の関数があって助かりましたありがとうございます。
  
  マクロの方はせっかく作っていただいたのですがなぜか最初の行しか
  できません。修正もしたのですが
  
  ピッポットデーブルでできますのでＯＫです
• inosisi2011/08/07 18:22:29
  takntさん
  マクロの方はデータソースの変更でテーブル/範囲を選択しましたらできました。
  素人の質問ですみませんでした。
  
  ピポットテーブルはいろいろ活用できそうなので助かります。
  ありがとうございました。
  今後ともよろしくお願いします。

質問の情報

登録日時

2011-08-04 19:05:13

終了日時

2011-08-06 17:43:06

回答条件

1人3回まで

この質問のカテゴリ

• コンピュータ
• インターネット

この質問に含まれるキーワード

人気の質問

• 経団連が夫婦別姓（選択的）を提言しました。政府は、配偶者控除の廃止を志向しているようです。結婚制度を…匿名質問者21日前
• オススメのシェイバー教えてください！ 以下の条件に近いシェイバーはあるのでしょうか。 1.髭が濃いため深…Ryoya3911日前
• ０５７０ で始まる電話番号は、キャリアなどとの間でカケ放題などの契約をしていても、そのサービスは受け…匿名質問者11日前
• 友人の解答と自身の解答で異なります。教えて頂けないでしょうか。 C社株式は，３年後に平均で1,000円にな…匿名質問者32日前
• 僕の親は苛立っています。 「俺はネットの天才なのに、なんで通報されたり、アカウント凍結されたりするん…匿名質問者343日前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ