制御構文｜Excel VBA (Part.3)【If Then】ネスト・論理演算子利用編

Option Explicit

Sub babyLife1()

    Dim months As Integer
    Dim actionNum As Integer
    
    months = InputBox("月齢を入力して下さい。")
    actionNum = InputBox("知りたい情報の番号を入力して下さい" & Chr(10) _
                         & "睡眠時間" & Chr(9) & "：1" & Chr(10) _
                         & "授乳時間" & Chr(9) & "：2" & Chr(10) _
                         & "お風呂時間" & "：3")
    
    If months <= 0 Then
        If actionNum = 1 Then
            MsgBox "0か月未満の新生児は、お昼は約2時間間隔、夜は3時間間隔で睡眠をとります。ママは睡眠不足になりがちなので家事など周囲の人が助けてあげましょう。"
        ElseIf actionNum = 2 Then
            MsgBox "0か月未満の新生児は、授乳の間隔は短いです。目が覚めたら授乳のタイミングとするのが一般的です。"
        ElseIf actionNum = 3 Then
            MsgBox "0か月未満の新生児は、沐浴となります。ガーゼを利用して優しく洗ってあげます。"
        End If
    ElseIf months <= 3 Then
        If actionNum = 1 Then
            MsgBox "1か月から3か月未満の赤ちゃんは、1日の中で約3時間間隔で睡眠を取ります。この時期もママは睡眠不足になりがちなので周囲の人は助けてあげましょう。"
        ElseIf actionNum = 2 Then
            MsgBox "1か月から3か月未満の赤ちゃんの授乳の間隔3時間おきです。目が覚めたら授乳のタイミングです。"
        ElseIf actionNum = 3 Then
            MsgBox "1か月から3か月未満の赤ちゃんは、お風呂に入ることが出来ます。湯船で抱っこしてガーゼで優しく洗ってあげます。"
        End If
    ElseIf months <= 6 Then
            If actionNum = 1 Then
            MsgBox "6か月未満の赤ちゃんは、夜の睡眠時間が約8時間と長くなります。授乳の間隔は減りますがおむつの交換もあるのでママは睡眠不足を補うためにも周囲の人は助けてあげましょう。"
        ElseIf actionNum = 2 Then
            MsgBox "6か月未満の赤ちゃんは、授乳以外にも離乳食が始まります。離乳食づくりも大変です。家事は家族で助け合いましょう。"
        ElseIf actionNum = 3 Then
            MsgBox "6か月未満の赤ちゃんは、お風呂に入ることが出来ます。湯船で抱っこしてガーゼで優しく洗ってあげます。"
        End If
    ElseIf months <= 8 Then
            If actionNum = 1 Then
            MsgBox "8か月未満の赤ちゃんは、夜の睡眠時間が約8時間ですが、お昼はお昼寝タイムを除いてお散歩や室内遊びなど起きている時間が増えます。日中の過ごし方が夜中の睡眠に影響します。家族でスケジュールの管理を頑張りましょう。"
        ElseIf actionNum = 2 Then
            MsgBox "8か月未満の赤ちゃんは、離乳食の回数が増えます。離乳食づくりも大変です。家事は家族で助け合いましょう。"
        ElseIf actionNum = 3 Then
            MsgBox "8か月未満の赤ちゃんは、お風呂に入ることが出来ます。湯船で抱っこしてガーゼで優しく洗ってあげます。"
        End If
    ElseIf months <= 11 Then
            If actionNum = 1 Then
            MsgBox "11か月未満の赤ちゃんは、夜の睡眠時間が約8～9時間です。お昼はお昼寝タイムを除いてお散歩や室内遊びなど起きている時間が増えます。日中の過ごし方が夜中の睡眠に影響します。家族でスケジュールの管理を頑張りましょう。"
        ElseIf actionNum = 2 Then
            MsgBox "11か月未満の赤ちゃんは、日中の食事はほとんどが離乳食になります。離乳食づくりも大変です。家事は家族で助け合いましょう。このころから柔らかい手作りおやつなども食べ始めます。"
        ElseIf actionNum = 3 Then
            MsgBox "11か月未満の赤ちゃんは、お風呂に入ることが出来ます。湯船で抱っこしてガーゼで優しく洗ってあげます。"
        End If
    ElseIf months <= 12 Then
            If actionNum = 1 Then
            MsgBox "12か月の赤ちゃんは、夜の睡眠時間が約8～9時間です。お昼はお昼寝タイムを除いてお散歩や室内遊びなど起きている時間が増えます。日中の過ごし方が夜中の睡眠に影響します。家族でスケジュールの管理を頑張りましょう。"
        ElseIf actionNum = 2 Then
            MsgBox "12か月の赤ちゃんは、日中の食事は普通食に変わっていきます。"
        ElseIf actionNum = 3 Then
            MsgBox "12か月の赤ちゃんは、お風呂に入ることが出来ます。湯船で抱っこしてガーゼで優しく洗ってあげます。"
        End If
    End If
End Sub