マクロで過去日付分の計算式を値のみコピーする方法を探しています。

質問

マクロで過去日付分の計算式を値のみコピーする方法を探しています。

１つのシートに1ヶ月分の在庫を管理している表をエクセルで作成しています。
ほとんどすべてのセルに計算式が入っているので、とても重いため、過去日付のものは確定する方法を探しています。

　商品名　　　6/1　6/2　6/3　6/4・・・・・・
　Ａの出荷数 1 2 3 4 ・・・・
　Ａの在庫数　50　　48　 45　 41・・・・・
　Ｂの出荷数　 5 6 7 8・・・・・
　Ｂの在庫数 60 54 47 39・・・・・
　　　・
　　　・　
　　　・
　　　・

というふうに６００アイテム以上の商品在庫の表です。

「確定」というボタンを押せば商品の出荷数の過去日のみをコピーして値で貼りつけるようなマクロを作成したいのですが、可能でしょうか？

上手に説明ができなくてすみません。。。
よろしくお願いします。

回答No.2

mt2008 · ベストアンサー

日付がシリアル値で1行目に入っていて、出荷数が2行目、4行目等の偶数行に入っているとした場合、以下のサンプルコードでいけると思います。

Sub Sample()
　　Dim nTargetCol As Long
　　Dim i As Long

　　Application.ScreenUpdating = False '画面更新停止
　　nTargetCol = Evaluate("MATCH(TODAY()-1,1:1,1)") '対象列を取得
　　For i = 2 To Range("A" & CStr(Rows.Count)).End(xlUp).Row Step 2 '偶数行を対象
　　　　Range(Cells(i, 2), Cells(i, nTargetCol)).Select '選択
　　　　Selection.Copy
　　　　Selection.PasteSpecial Paste:=xlPasteValues '値のみ貼り付け
　　　　Application.CutCopyMode = False
　　Next i
　　Application.ScreenUpdating = True '画面更新再開
End Sub

お礼

ありがとうございます。
早速、いろいろ勉強しながら試して、思い通りの作業ができました。
本当にありがとうございます。

こういうサイトがあり、みなさんが親切に教えてくださり、すごく助かります。

お礼が遅くなりすみませんでした。

回答No.1

Hirorin_20

可能です。
システムクロックで本日を求めて、過去の列範囲を求めます。
一般式は在庫数のセルに入っているのでしょうか。そこにデータをセットしてあげればよいでしょう。
ついでに前回確定を行った日付をどこかのセルに持っておけばその日付以降昨日まで行えば良いことになります。日付を書き換えれば再確定も出来ます。

お礼

早速の回答ありがとうございます。
しかし。。。理解できませんでした。
きっとすごくいい案をいただいてるのだとは思うのですが、私自身が勉強不足の為、どうしたらいいのかわかりません。。。
もしよろしければ、もう少し教えていただけないでしょうか。。。よろしくお願いします。
ちなみに、在庫数のセルにも計算式は入っています。
ただ、その部分は確定したくないので、出荷数の部分だけを確定する方法があれば教えてください。

わがままと勉強不足をお詫びします。