練習問題/解答例/干支を求めるプログラム/Excel VBA の履歴(No.1)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• 練習問題/解答例/干支を求めるプログラム/Excel VBA へ行く。
  • 1 (2013-07-06 (土) 23:52:39)
  • 2 (2013-07-07 (日) 01:18:26)
  • 3 (2013-07-07 (日) 01:18:26)

練習問題

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