excel - Excelカスケードドロップダウンを使用するときにセルをクリアする方法

Question

Excelの間接関数を使用して入力されるカスケードドロップダウンがありますが、これはすべて正常に機能します。

ただし、最初のドロップダウンの値が変更された場合、これは無効になるため、2番目のドロップダウンの値をクリアしたいと思います。

どうすればこれを行うことができますか？

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim oneCell As Range
    On Error GoTo ErrorOut
    For Each oneCell In ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)
        If Not oneCell.Validation.Value Then oneCell.ClearContents
    Next oneCell
ErrorOut:
Application.EnableEvents = True
On Error GoTo 0
End Sub

参考までに> http://www.contextures.com/xlDataVal02.html