有没有办法根据工作表中的数据验证列表值创建 IF 语句？

Question

在 P 列中，我有一个下拉列表，为我创建的每个新工作表添加的代码如下所示。

lastrow = ActiveWorkbook.Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).row

With Range("P2:P" & lastrow).Validation
 .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
 Operator:=xlBetween, Formula1:="Yes,No,N/A"
 .IgnoreBlank = True
 .InCellDropdown = True
End With

在 QI 列中，希望根据用户从 P 列输入的特定值填充另一个下拉列表。

例如，如果用户在 P 列中选择No ，我只希望value 1或value 2填充到 Q 列的那一行。如果用户在 P 列中选择Yes ，我只希望填充value 3或value 4在 Q 列中。

我知道我需要在上面声明如下内容：

Dim ActionRow As Long

Dim colAction As Long
colAction = 16

For ActionRow = 2 To 500 ' Wb.Worksheet("Sheet1").UsedRange.Rows.Count
    If .Cells(ActionRow, 16).Value = "No" Then
    ADD DROP DOWN LIST VALUES 1 & 2
Next ActionRow

任何人都可以帮我修改这个，或者如果列中没有数据，这是不可能的吗？

Answer 1

下面怎么样，这将根据列 P 上选择的值将验证列表添加到列 Q：

Sub foo()
lastrow = ThisWorkbook.Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
With Range("P2:P" & lastrow).Validation
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
    Operator:=xlBetween, Formula1:="Yes,No,N/A"
    .IgnoreBlank = True
    .InCellDropdown = True
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 16 And Target.Value = "No" Then
    With Range("Q" & Target.Row).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="value 1, value 2"
        .IgnoreBlank = True
        .InCellDropdown = True
    End With
ElseIf Target.Column = 16 And Target.Value = "Yes" Then
    With Range("Q" & Target.Row).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="value 3, value 4"
        .IgnoreBlank = True
        .InCellDropdown = True
    End With
End If
End Sub