追加課題(1/15)

色検索プログラムをIf文のみで実装せよ．
(P168 MsgBox関数の戻り値参照)

Sub 色検索()
    Dim iro As Integer
    iro = MsgBox("ワインの色は赤ですか？", vbYesNo)
    If iro = 6 Then
        Range("B5").Select
        Selection.AutoFilter 3, "赤"
    Else
        iro = MsgBox("ワインの色は白ですか？", vbYesNo)
        If iro = 6 Then
            Range("B5").Select
            Selection.AutoFilter 3, "白"
        Else
            iro = MsgBox("ワインの色はロゼですか？", vbYesNo)
            If iro = 6 Then
                Range("B5").Select
                Selection.AutoFilter 3, "ロゼ"
            Else
                MsgBox "選択が間違っています" & Chr(13) & _
                "赤､白､ロゼの中から選択してください", vbOKOnly + vbExclamation
            End If
        End If
    End If
End Sub

輸入国検索プログラムもIf文のみで実装せよ．

Sub 輸入国検索()
    Dim kuni As Integer
    kuni = MsgBox("輸入国はイタリアですか？", vbYesNo)
    If kuni = 6 Then
        Range("B5").Select
        Selection.AutoFilter 5, "イタリア"
    Else
        kuni = MsgBox("輸入国はフランスですか？", vbYesNo)
        If kuni = 6 Then
            Range("B5").Select
            Selection.AutoFilter 5, "フランス"
        Else
            MsgBox "入力が間違っています" & Chr(13) & _
        "イタリア，フランスのいずれかを入力してください", vbOKOnly + vbExclamation
        End If
    End If
End Sub