教えてください。

質問

仕事上の個人的な業務管理のため、Excelを使っています。
私は普段、関数を多用してExcelファイルを作成しているため、いつも容量が大きめになっています。
Excelのマクロについては、自動記録で作成させたものを自分なりに試行錯誤して改良して使っています。
普段、Excelは2007を使っています。
本題に入ります。
A列には商品名、B列には販売日、C列には販売実績(総数)、D列には実売数、E列の前日までの実売数を入力しています。(D列の更新前にE列の更新を実施)
商品数は500以上、シートは現在、4枚目に入りました。
日々の更新作業の前段として、マクロで(1)C列のコピー(2)E列に値貼り付け、(3)D列値のクリアを実行させています。
現状については、C列の販売実績(総数)は、(D列の実売数+E列の前日までの実売数)を数式を使っています。
そこで、B列に変更があれば、D列の入力を待ってその結果をC列に反映するようなマクロができるのかな？と思い、ご教示いただけばと相談させていただきました。よろしくお願いします。

回答No.3

keithin · ベストアンサー

総合的に、回答したのとは違う事を勝手に間違えてやっている様子が疑われます。
回答した方法は、全てのバージョンのエクセルで何一つ変える必要なく、実施できます。

あなたの補足：
＞早速、シートにマクロを貼り付けてみましたが、B列に入力してもマクロが実行されません。

回答とは違う、まちがった「シート」に記入している様子が疑われます。
手順を再掲しておきますので、回答した通りに行ってください。

再掲：
＞手順：
＞シート名タブを右クリックしてコードの表示を選ぶ

言わずもがなですが、ここで言ってる「シート名タブ」とは、あなたのＡＢＣＤＥ列のエクセルシートのシート名タブの事です。
また、中途半端に何かやりかけてて、ドツボに嵌っている可能性もあります。
まっさらのブックを用意して、回答の説明をよく読みながらその通りに手を動かして、作成し動作確認してください。

あなたの補足：
＞再度ファイルを開いたところ、
＞dim h as Reng
＞が定義されていません。

こちらも、回答した内容とは違います。
次のように回答している通りに、行ってください。

再掲：
＞現れたシートに下記をコピー貼り付ける

お礼

わが社のパソコンは外部記録媒体の使用が制限されており、手入力で入力していたので、入力ミスをしてしまい、ご迷惑をおかけしました。
本日、改めて入力し直したところ、おかげさまで希望どおりにできました。
また、Excelに関し疑問がでましたら質問させていただきたいと思いますので、その際にはよろしくお願いします。
今回は本当にありがとうございました。

回答No.2

keithin

準備：
Ｃ列には
=D2+E2
のように数式を記入しておく

段取り：
１．Ｂ列の日付を更新したら
２．自動的にＣ列の数値をＥ列に転記し
３．Ｄ列をクリアしてその日の売り上げの記入を待つ
４．その後Ｄ列に記入すれば、勝手にＣ列に加算される。

手順：
シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub Worksheet_Change(byval Target as excel.range)
　dim h as range
　on error resume next
　for each h in application.intersect(target, range("B:B"))
　　if h <> "" then
　　　cells(h.row, "E").value = cells(h.row, "C").value
　　　cells(h.row, "D").clearcontents
　　end if
　next
end sub

ファイルメニューから終了してエクセルに戻る
段取り通りＢ列の日付を更新し、Ｄ列に数字を記入する。

お礼

すばやい対応、ありがとうございます。
早速、シートにマクロを貼り付けてみましたが、B列に入力してもマクロが実行されません。
今日は本来自分が普段使っているパソコンではなく、Excel2003を使っているためなのでしょうか？
わが社には、Excel2003、2007、2010が混在しているので、どのパソコンからでも動作するようなマクロで、改めてお願いします。

補足

いったん終了させ、再度ファイルを開いたところ、
dim h as Reng
が定義されていません。というメッセージがでました。どうすればいいのでしょうか？

回答No.1

noname#192382

お尋ねします。
>
日々の更新作業の前段として、マクロで(1)C列のコピー(2)E列に値貼り付け、(3)D列値のクリアを実行させています。

そこで、B列に変更があれば、D列の入力を待ってその結果をC列に反映するようなマクロができるのかな？と思い、ご教示いただけばと相談させていただきました。よろしくお願いします。

お尋ねになっていることは「日々の更新作業の前段」の作業をマクロでしたいということでしょうか。
それとも「B列に変更があれば、」ということはもしB列に異なる数が入力されたらその時点で、前日のデータを更新するということでしょうか。そうなると間違って異なる日づけを入力したときのことが心配になります。どちらでしょうか。、

補足

言葉足らずで申し訳ありません。
お尋ねの件については、後者です。
データの更新があれば、マクロが自動で実行されると、業務の効率が良くなると思い、質問させていただきました。
よろしくお願いします。