練習問題/解答例/星座を求めるプログラム/Excel VBA の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• 練習問題/解答例/星座を求めるプログラム/Excel VBA へ行く。
• 練習問題/解答例/星座を求めるプログラム/Excel VBA の差分を削除

[[練習問題]]
 Sub 星座()
 Dim stars As Variant
 Dim days As Variant
 Dim month As Integer
 Dim day As Integer
 Dim i As String
 stars = Array("山羊", "水瓶", "魚", "牡羊", "牡牛", "双子", "蟹", "獅子", "乙女", "天秤", "蠍", "射手", "山羊")
 days = Array(20, 18, 20, 20, 21, 21, 22, 22, 23, 23, 22, 21, 20)
 month = Range("A1").Value
 day = Range("A2").Value
    If day <= days(month - 1) Then
        i = stars(month - 1)
    Else
        i = stars(month)
    End If
 Range("A3").Value = month & "月" & day & "日の星座は" & i & "座です"
 End Sub