エクセル練習問題:日付関連の計算(VBA)

解答例 topへ

問題1の解答例 topへ

1. DateSerial関数を使って日付のシリアル値にし、表示形式で和暦を表示します。
   
   Sub test10()
   Dim i As Long
   For i = 3 To 5
   Cells(i, 6).Value = DateSerial(Cells(i, 2).Value, Cells(i, 3).Value, Cells(i, 4).Value)
   Cells(i, 6).NumberFormatLocal = "ggge年m月d日"
   Next i
   End Sub
2. セルに日付形式の値を入れて、Excelが日付データとして自動でシリアル値の変換することを利用した例です。
   • 年/月/日 のような日付形式のデータが入力されると、Excelは日付データと認識してシリアル値に変換します。
   Sub test11()
   Dim i As Long
   For i = 3 To 5
   Cells(i, 6).Value = Cells(i, 2).Value & "/" & Cells(i, 3).Value & "/" & Cells(i, 4).Value
   Cells(i, 6).NumberFormatLocal = "ggge年m月d日"
   Next i
   End Sub

問題2の解答例 topへ

1. WeekdayName関数、Weekday関数を使ってセルに曜日を入力します。
   • 構文:Weekday(date, [firstdayofweek])
     構文:WeekdayName(weekday, abbreviate, firstdayofweek)
     WeekdayName Weekday に説明がありますので参照してください。
   Sub test20()
   Dim i As Long
   For i = 3 To 5
   Cells(i, 3).Value = WeekdayName(Weekday(Cells(i, 2).Value))
   Next i
   End Sub
2. Format関数で表示形式を使って曜日を表示する例です。
   • 構文:Format(expression[, format[, firstdayofweek[, firstweekofyear]]])
     Format関数 に説明がありますので参照してください。
   Sub test21()
   Dim i As Long
   For i = 3 To 5
   Cells(i, 4).Value = Format(Cells(i, 2).Value, "aaaa")
   Next i
   End Sub