excel中 怎么实现满足条件时才有下拉列表

Question

“到货时间”是一个有效性设置的下拉列表可选1月、2月、3月...12月、未知。（总共13个选项）
如下需要帮助：
1、当到货时间为“未知”时，怎么设置“货位”变成下拉列表可以选择“厂家原因”或者“断货”？
2、当到货时间为非未知时，去除下拉列表呢？

Answer 1

在工作表宏窗口粘贴以下事件驱动：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 Then
With Target.Validation
.Delete
If Target.Offset(0, -1) = "未知" Then
.Add Type:=xlValidateList, Formula1:="厂家原因,断货"
End If
End With
End If
On Error GoTo 0
End Sub

追问

的确在效果上是出来的。但好像有个还需要改善：但选择“未知”变其他选项时，B2依然有下拉列表（移开鼠标点其他地方再点回来才可以实现）
还有个问题想追问：你这个代码是对B2所有效，请问怎么定义我要的单元格呢？比如E9、P9啊

追答

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 Then
Target.Offset(0, 1).Validation.Delete
End If
If Target.Column = 2 _
Or (Target.Column = 5 And Target.Row = 9) _
Or (Target.Column = 16 And Target.Row = 9) _
Then
With Target.Validation
.Delete
If Target.Offset(0, -1) = "未知" Then
.Add Type:=xlValidateList, Formula1:="厂家原因,断货"
End If
End With
End If
On Error GoTo 0
End Sub

原来的代码对B列的所有单元格有效。新的代码加了改进和E9、P9。是否起作用是靠对Target.Column 和Target.Row的值进行判断的。