Excel VBA課題(4)

第７章ワイン販売管理（完成）.xlsをベースに，商品リストの絞り込み検索をかける際の方法を，対話的な方法(ユーザーに文字を入力させない)に変更せよ．

sample code

Sub 色検索()
    Dim iro As String
    Dim flag As Integer
    flag = 0
    flag = MsgBox("検索したいワインは赤ですか？", vbYesNo + vbQuestion, "ワイン検索")
    If flag = "6" Then
        iro = "赤"
        Range("B5").Select
        Selection.AutoFilter Field:=3, Criteria1:=iro
    Else
        flag = MsgBox("検索したいワインは白ですか？", vbYesNo + vbQuestion, "ワイン検索")
        If flag = 6 Then
            iro = "白"
            Range("B5").Select
            Selection.AutoFilter Field:=3, Criteria1:=iro
        Else
            flag = MsgBox("検索したいワインはロゼですか？", vbYesNo + vbQuestion, "ワイン検索")
            If flag = 6 Then
                iro = "ロゼ"
                Range("B5").Select
                Selection.AutoFilter Field:=3, Criteria1:=iro
            Else
                MsgBox "赤、白、ロゼのいずれかを選択してください", vbOKOnly + vbExclamation
            End If
        End If
    End If
End Sub