VBA_EXCEL

日付

Sub SetDefaultDate()
 
    Dim myDate As Date
    myDate = Date
 
    Worksheets("Sheet1").Activate
    Range(Cells(3, 2), Cells(10, 2)) = Year(myDate)
    Range(Cells(3, 3), Cells(10, 3)) = Month(myDate)
    Range(Cells(3, 4), Cells(10, 4)) = Day(myDate)
 
End Sub