如何使用Excel级联下拉菜单清除单元格

Question

我有一个级联下拉菜单，它使用excel间接函数进行填充，这一切都正常。

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

我该怎么做？

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