締切済み

エクセルのマクロについて

2013/08/28 13:09

エクセルマクロについて教えてください現在作ろうとしているマクロは下記の通り A列（発注日）　　　B列（発注品名）　　　M列（納入日） 20130822　　　　　　　A　　　　　　　　　　　20130826 20130822　　　　　　　B　　　　　　　　　　　20130826 20130823　　　　　　　C　　　　　　　　　　　20130827 20130823　　　　　　　D　　　　　　　　　　　20130827 20130824　　　　　　　E　　　　　　　　　　　20130827 20130825　　　　　　　F　　　　　　　　　　　20130828 　　・　　　　　　　　　　・　　　　　　　　　　　　　　・　　・　　　　　　　　　　・　　　　　　　　　　　　　　・　続く　　　　　　　　　続く　　　　　　　　　　　　続く毎週作成する資料の為、発注件数や納入日は作成のつど変わってきます。上記の内容でエクセルシートに表があった場合 N列　　　　　　　O列 20130826　　　　2件 20130827　　　　3件 20130828　　　　1件と表記したいのですが、どのようにマクロを作れば良いか誰かご教授して頂けませんでしょうか？

ishinoda
お礼率50% (7/14)

その他（学問・教育）
回答数4
ありがとう数4

みんなの回答 （4）
専門家の回答

みんなの回答

akito0417
ベストアンサー率20% (55/266)

2013/08/28 17:45 回答No.4

実は既にマクロを組んでいまして情報の抽出や行列の削除、並び替え等をマクロで行っています。こうあるから既にあるのを参考にすれば出来ると思ったんですがねぇ。。。打つのが面倒くさいという勝手な理由から参考ページだけ貼っておきます。 excel vbaの基本的な書き方等 http://excelvba.pc-users.net/ 行のデータ数取得方法 http://www.happy2-island.com/excelsmile/smile03/capter00702.shtml その他既存のマクロを参考にしてください。これでも不明な場合は、ググってください。（今回のに必要なのは２つのサイトでいいはず。）

akito0417
ベストアンサー率20% (55/266)

2013/08/28 15:05 回答No.3

さっきのじゃループの条件がダメですね。 loop　M列の未処理件数 <= 0 　　if　比較元の日付　=　比較元の日付のセル＋1の値　then 　　　　カウントアップ　　else 　　　　N列のi番目.value　=　比較元の日付　　　　O列のi番目.value　=　カウントアップの結果　　　　M列のみ処理件数 -= カウントアップの結果　　　　カウントアップの結果を0クリア　　　　比較元の日付 = 比較元の日付のセル + カウントアップの結果の値　　　　iのカウントアップ　　end if next こんなんですかね。 ※日付が変わったら、M列のデータ数からカウントアップの結果を引けば残りの未処理数になるはずです。

質問者

お礼 2013/08/28 15:39

大変申し訳ありまえんがマクロが初心者の為もう少し詳しく教えていただけませんでしょうか？ご回答の内容をどう記載して良いか分かりません（汗）レベルが低くて申し訳ないです。

akito0417
ベストアンサー率20% (55/266)

2013/08/28 14:59 回答No.2

カテ違いの気もしますが、まあそれはおいといて。 M列のデータ数分繰り返して、一致する日付なら１ずつカウントアップしていけばいいと思います。日付が変わったら、N列とO列に出力すればいいかと。んで、比較元のデータ（M列）に次のデータをセットして、カウントアップした変数を０クリアすればいいかと。 loop　M列のデータ数分　　if　比較元の日付　=　比較元の日付のセル＋1の値　then 　　　　カウントアップ　　else 　　　　N列のi番目.value　=　比較元の日付　　　　O列のi番目.value　=　カウントアップの結果　　　　カウントアップの結果を0クリア　　　　比較元の日付 = 比較元の日付のセル + カウントアップの結果の値　　　　iのカウントアップ　　end if next こんなかんじで。 N列・O列用の添字変数を作れば出来るんじゃないですかね・・・。

質問者