VBA 季節を判定しよう
Sub 季節の判定()
Dim a As Integer
Dim b As String
a = InputBox("月")
Select Case a
Case 3 To 5
b = "春"
Case 6 To 8
b = "夏"
Case 9 To 11
b = "秋"
Case 12
b = "冬"
Case 1 To 2
b = "冬"
Case Else
b = "なし"
End Select
Call MsgBox(b)
End Sub