|
Windows XP
エクセル2003を使用しています。
以下のようなマクロを作成し、
毎月、前月シートをコピーして、
最新データを作成しています。
8月には、4月〜8月までのシートが並ぶことになります。
ですが、一度、最新シートを作成してしまうと、
前月以前のDim 件数累計など、
過去のシートの数値を変更した場合に、
最新シートのデータに変更した数値が正しく反映されません。
過去のシートの数値を変更しても、
最新シートまで順次連動して、正しい数値を反映させるには、
どのようにすればよいか、ご教示いただけると有り難いです。
どうぞよろしくお願い致します。
======================
Sub Macro1()
Dim shtNm As String
Dim newShtNm As String
Dim mySht As Worksheet
Dim i As Long
shtNm = ActiveSheet.Name
If Val(shtNm) + 1 > 12 Then
newShtNm = "1"
Else
newShtNm = Val(shtNm) + 1
End If
ActiveSheet.Copy after:=ActiveSheet
Set mySht = ActiveSheet
mySht.Name = newShtNm & "月度"
Dim 件数累計
件数累計 = Range("B19")
Range("B18").FormulaR1C1 = 件数累計
見積累計 = Range("E19")
Range("E18").FormulaR1C1 = 見積累計
工事金額累計 = Range("F19")
Range("F18").FormulaR1C1 = 工事金額累計
予算累計 = Range("H19")
Range("H18").FormulaR1C1 = 予算累計
End Sub
|
|