VBAで連動プルダウンの入力規則Listに対して、初期化する処理を加える。

#VBAでJSの初期化処理もどき。
セルC5からC10までに連動する入力規則のリストがあるとして、
条件によってリストの中身を初期化する処理を加える。

全部VBAでリスト作ったほうがいいんじゃない　と思ったが
入力規則リストのほうがお手軽だったため、ここでは初期化処理だけを目的とする。

Worksheet_Change

Private Sub Worksheet_Change(ByVal Target As Range)
    'C5~C10以外のセルが変更された場合は処理を抜ける
    If Intersect(Target, Range("C5:C10")) Is Nothing Then
        Exit Sub
    'C5が変更された場合
    ElseIf Target.Address = Range("C5").Address Then
        Range("C6") = "-"
        Range("C7") = "-"
        Exit Sub
    'C6が変更された場合
    ElseIf Target.Address = Range("C6").Address Then
        Range("C7") = "-"
        Exit Sub
    'C10が変更された場合
    ElseIf Target.Address = Range("C10").Address Then
        If Range("C6").Value <> "AAA" Then
            Exit Sub
        End If
        Range("C7") = "-"
        Exit Sub
    End If
End Sub