Excel VBA 質問スレッド No.61 (未解決)

左のシートをコピーしてシート名は左のシートの日付の翌日の日付にしたい

投稿者 : すごい初心者です。。     投稿日時 : 2019/05/24(Fri) 00:20:42     OS : 未指定     EXCEL : 未指定
シートがあり、シート名は日付(例: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

[返信 1] Re : 左のシートをコピーしてシート名は左のシートの日付の翌日の日付にしたい
投稿者 : たくや     投稿日時 : 2019/05/25(Sat) 21:20:30
翌日分ができているのであれば、翌々日分はDateに2を加算すればいいだけではないですか?

当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2021-05-10 05:39:09 )

Page
Top