月末日付連続出力

 

Sub test()
    '  月末日付連続出力

    With ActiveSheet
    
        Set myRange = .Range("A1:A12")
        .Range("A1").Value = "2025/01/31"
        myRange.DataSeries Type:=xlChronological, Date:=xlMonth
        myRange.NumberFormat = "[$-ja-JP]gge年mm月dd日(aaa)"
    
    End With

End Sub

 

 

土日以外Weekday連続出力

 

Sub test2()
    ' 土日以外Weekday連続出力

 

    With ActiveSheet
    
        Set myRange = .Range("B1:B25")
        .Range("B1").Value = "2025/01/01"
        myRange.DataSeries Type:=xlChronological, Date:=xlWeekday
        myRange.NumberFormat = "yyyy/mm/dd(aaa)"
    
    End With

End Sub

 

実行結果

 

 

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る