シートをコピーして コピーしたシートの翌日の日付（例：0524）にしたい

シートがあり、シート名は日付（例：0523）そのシートをコピーして
コピーしたシートの翌日の日付（例：0524）にしたい(右側に）
そしてその日付をコピーしたシートのB7に表示させたい（例：2019/05/24）

色々と参考にしつつ下記のように作ってみて動きましたが、、
これだと翌日分までしか作成できないことに気づき・・・

翌日分、翌々日分まで作成するにはどのようにすればいいでしょうか。。

詳しい方教えて下さい。
宜しくお願いします。

Option Explicit
Sub test()



ActiveSheet.Select
ActiveSheet.Copy After:=ActiveSheet
Dim Sname As String
Sname = Now
ActiveSheet.Name = Format(Date + 1, "mmdd")
Dim Nengetu As Date
Nengetu = Now
Range("B7").Select
ActiveCell.FormulaR1C1 = Format(Date + 1, "yyyy/mm/dd")

Range("F10:AC41").Select
Selection.ClearContents
Range("F10").Select

End Sub

No.1 回答者： hotosys 回答日時： 2019/05/24 23:19

必要な数だけ

For i = 1 To 2
の2を増やしてください。


Sub sample()
Dim s As String
Dim i As Integer
s = Format(ActiveSheet.Name, "00/00")
If Not IsDate(s) Then
MsgBox "日付でありません"
Exit Sub
End If
For i = 1 To 2
ActiveSheet.Copy After:=ActiveSheet
ActiveSheet.Name = Format(DateValue(s) + i, "mmdd")
Range("B7").Value = DateValue(s) + i
Range("B7").NumberFormat = "yyyy/mm/dd"
Next
End Sub

この回答へのお礼

ありがとうございます＾＾
無事に動きました。

シートの日付が（例：0523）とすると、数式が、
AS10には=SUM(AB10:AO10,'0524'!F10:I10)と
AT10には=SUM('0524'!J10:AA10)と
当日と次の日の合計に渡って計算するように入っています。
AS37　AT37　まで下に続いて入っています。

0524のシートがないと式が壊れてしまうんですが、
自動でコピーした際に壊れずコピーする方法ってありますでしょうか。
手動でする際にはシートをコピーして毎回入れなおしています。
引き続きの質問で大変申し訳ありません。
お分かりになれば教えていただけたら、大変助かります。。

お礼日時：2019/05/25 04:17