Excel vba-worksheet_change下拉列表

Question

嗨Stackoverflow社区，

如果满足条件，我想添加一个数据验证下拉列表。

如果“最终侦察”出现在C列中，则以以下状态填充下拉列表：“最终”或“正在审查”，否则不要填充下拉列表。

我可以使用非VBA验证列表，但在这种类型的评估审查中，我需要使用VBA版本。

这就是我到目前为止所拥有的，我被困得很厉害。我在C栏有“最终侦察”，如果最终侦察出现在C栏，然后用“最终”和“正在审查”的选项填充下拉列表。

 Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Column = 1 Then

    ThisRow = Target.Row

    If Target.Value = "Final Recon" Then

    With Selection.Validation
        .Range ("N" & ThisRow)


.Delete
.Add Type:=xlValidateList, Formula1:="=Final", Formula2:="=Under Review"
 End With

    Else
        Range("N" & ThisRow) = ""
    End If
  End If
 End Sub

Answer 1

我想通了。我唯一的问题是，如果“最终侦察”不在“C”栏中，下拉框就不会出现。

   On Error Resume Next

 If Target.Column = 3 Then

   If Target.Validation.Type = "Final Recon" Then

    Application.EnableEvents = False

     ''get the data drop-down validation list

    Target.Offset(0, 11).Select

    With Selection.Validation


  .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop
     Operator:=xlBetween, _                      
  Formula1:="Final", Formula2:="Under Review"

  .IgnoreBlank = True
  .InCellDropdown = True
  .InputTitle = ""
  .ErrorTitle = ""
  .InputMessage = ""
  .ErrorMessage = ""
  .ShowInput = True
  .ShowError = True

  End With

 Else
  Target.Offset(0, 11).Value = ""

   End If
 End If

 exitHandler:
   Application.EnableEvents = True
   Exit Sub