[[練習問題]]
西暦を12で割ったあまりを配列の添え字に紐付けする
 Sub 干支_配列()
 Dim zodiac As Variant
 Dim years As Integer
 Dim i As Integer
 zodiac = Array("申""酉""戌""亥""子""丑""寅""卯""辰""巳""午""未")
 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

トップ   編集 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS