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

質問

いつもお世話になっております。

次のような表をエクセルで作成出来ないものか？？…と考えています。
※添付ファイルを見てください。

Sheet1（価格の推移）　Sheet2（DLデータ）
の二つのシートがあります。

(1)Sheet2には毎日更新される当日のみのデータを添付します。
(2)Sheet1には、C列に当日の価格を表示し、発売日とデータ抽出日の差から、1日目、2日目…と経過日数に対応する列（黄色）に価格を表示するようにします。

単純な表なので、ここまでは私の関数に関する知識で対応可能なのですが、(1)のSheet2に当日のみのデータしか添付しないため、Sheet1には黄色のシートは表示されますが、青色のシートは消えてしまします。（当然ですが・・・）

そこで、VBA等の方法で、データを更新する前に、青色を残して、黄色を更新していく方法は無いかを考えています。

分かりずらい文章で申し訳ありませんがどなたかよろしくお願いいたします。

回答No.1

tom04 · ベストアンサー

こんばんは！
なかなか回答がつかないようなので・・・

セルの色云々は関係なく、単にE列以降に入っているデータはそのままで
D列の「発売日」からB1セルが何日後で、その列に「価格」を表示すれば良い訳ですかね？

一応そういうコトだと解釈しての一例です。
Sheet1のシートモジュールです。

Sub Sample1()
Dim i As Long, j As Long
For i = 3 To Cells(Rows.Count, "A").End(xlUp).Row
j = Range("B1") - Cells(i, "D")
Cells(i, 5 + j) = Cells(i, "C")
Next i
End Sub

こんな感じでよいのでしょうかね？

※　関数でないので、データ変更があるたびにマクロを実行する必要があります。m(_ _)m

お礼

ありがとうございました。