使用Excel Cascading Dropdown时如何清除单元格

Question

我有一个使用excel Indirect函数填充的级联下拉列表，这一切都正常。

但是，当第一个下拉列表的值发生变化时，我想清除第二个下拉列表的值，因为现在它将无效。

我该怎么做？

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

供您参考＆gt; http://www.contextures.com/xlDataVal02.html