難易度：★☆☆（かんたん）

※当校のExcel VBAコースを補足する内容となっています。

Yes/Noチャートとは、質問に対して「はい」か「いいえ」で答えていく診断方法のことです。心理テストやおすすめ商品紹介などでよく使われているので、一度は見たことがあると思います。
ExcelVBAを使って作成してみましょう。

メッセージボックスを表示する「MsgBox関数」と、条件によって処理を分岐させる「If文」を使って、次のようなチャートを作ります。


Sub YesNoChart()
if MsgBox("天気予報では、昼から雨ですか？",vbYesNo) = vbYes Then
    if MsgBox("あなたは8歳以下ですか？",vbYesNo) = vbYes Then
        MsgBox "傘を持ち、長靴を履いて行きましょう"
　　Else
        MsgBox "傘を持って行きましょう"
    End If
Else
    If MsgBox("あなたは男ですか？", vbYesNo) = vbYes Then
        MsgBox "気をつけて行ってらっしゃい！"
    Else
        If MsgBox("あなたは20歳以上ですか？", vbYesNo) = vbYes Then
            If MsgBox("今日は紫外線が強そうですか？", vbYesNo) = vbYes Then
                MsgBox "日傘を持って行きましょう"
            Else
                MsgBox "気をつけて行ってらっしゃい！"
            End If
        Else
            MsgBox "気をつけて行ってらっしゃい！"
        End If
    End If
End If
End Sub