- 追加された行はこの色です。
- 削除された行はこの色です。
[[練習問題]]
Sub 干支()
Sub 干支_配列()
Dim zodiac As Variant
Dim years As Integer
Dim i As Integer
zodiac = Array("申""酉""戌""亥""子""丑""寅""卯""辰""巳""午""未")
years = Range("A1").Value
i = years Mod 12
Range("A2").Value = "西暦" & years & "年の干支は" & zodiac(i) & "です"
End Sub
おまけ
Sub 干支_Case文()
Dim zodiac As String
Dim years As Integer
years = Range("A1").Value
Select Case years Mod 12
Case Is = 0
zodiac = "申"
Case Is = 1
zodiac = "酉"
Case Is = 2
zodiac = "戌"
Case Is = 3
zodiac = "亥"
Case Is = 4
zodiac = "子"
Case Is = 5
zodiac = "丑"
Case Is = 6
zodiac = "寅"
Case Is = 7
zodiac = "卯"
Case Is = 8
zodiac = "辰"
Case Is = 9
zodiac = "巳"
Case Is = 10
zodiac = "午"
Case Is = 11
zodiac = "未"
Case Else
End Select
Range("A2").Value = "西暦" & years & "年の干支は" & zodiac & "です"
End Sub