如何使用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