[[20230916022136]]　『日付が+１ずつ変わる自動印刷方法』（ジェル）　ページの最後に飛ぶ

『日付が+１ずつ変わる自動印刷方法』（ジェル）

例えばセルA1に××××年　セルB2に××月　セルc3に××日←前日
　　　セルA10に××××年　セルB10に××月　セルc10に××日←後日
２枚目のC3には明後日の日付、C10には明明後日の日付、３枚目のC3は明明後日+１、C10は明明後日+2みたいになるようにお願いします。
また、年、月をまたいでも年、月、日
が変更されて印刷できるようなマクロでお願いします。
全くマクロがわかってないので宜しくお願いします。

＜使用 Excel：unknown、使用 OS：unknown ＞

＞全くマクロがわかってないので宜しくお願いします。
少しはマクロの知識を身に着けてからにしたらどうですか。
××××年、××月、××日と×で伏せないで実際の日付を提示して説明しましょう。
＜使用 Excel：unknown、使用 OS：unknown ＞も記入しましょう。
（?） 2023/09/16(土) 08:39:15

前日、後日とはいつの日付に対してのことでしょうか。
本日の日付に対してということでしょうか。
（?） 2023/09/16(土) 08:45:42

Option Explicit
Sub OneInstanceMain()

    Dim i As Long
    Dim mR As Range
    Dim pR As Range
    Dim zD As Long
    zD = Date
    With Worksheets("Sheet1")
        .UsedRange.Clear
        Set mR = .Range("A1,B2,C3")
        Set pR = .Range("A10,B10,C10")
        Do
            i = i + 1
            If i > 3 Then Exit Do
            mR.Areas(1)(1) = Year(zD - 1)
            mR.Areas(2)(1) = Month(zD - 1)
            mR.Areas(3)(1) = Day(zD - 1)
            pR(1, 1) = Year(zD + 1)
            pR(1, 2) = Month(zD + 1)
            pR(1, 3) = Day(zD + 1)
            zD = zD + 1
            .PrintPreview
        Loop
    End With
End Sub
^^;
（隠居Z） 2023/09/16(土) 09:14:07

コメント返信：

[ 一覧(最新更新順) ]

[[20230916022136]] 『日付が+１ずつ変わる自動印刷方法』（ジェル） ページの最後に飛ぶ

[[20230916022136]]　『日付が+１ずつ変わる自動印刷方法』（ジェル）　ページの最後に飛ぶ