Vba 单击第一个下拉列表时，执行第二个下拉列表的宏 问题:

我有两个下拉列表，当我从第一个下拉列表中选择一个选项时，有没有办法自动选择第二个下拉列表

下拉列表使用数据验证2透视表填充

代码 点击样本 问题

Sample2\u Click

与

Sample\u Click

相同，唯一的区别是

范围（“”

值）。

---

尽管我做了很多努力，但还是会出错

使用intersect时不需要循环所有单元格。。。此外，该表应该是正确的一个。。。这样，您只需要：

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, [F9]) Is Nothing Then
    [F10].Select
  ElseIf Not Intersect(Target, [F10]) Is Nothing Then
    [F11].Select
  End If
End Sub

---

…为我工作时没有出现错误…

您是否尝试使用

应用程序启动
示例。\u单击
。EnableEvents=False
？您遇到了哪些错误，以及哪行代码出现了错误？
Dim ACount As Integer
Dim Dept As String
Dim Func As String
Dim Pos As String

Range("F9").Select
Dept = Trim(ActiveCell.Value)

Sheets("Sheet1").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("Dept").ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields("Dept").CurrentPage =    Dept

ACount = ActiveSheet.PivotTables("PivotTable1").RowRange.Cells.Count
ACount = ACount + 2

Sheets("Home").Select
    Range("F10").Select
    With Selection.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=Sheet1!$A$4:$A$" & ACount
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
    End With
    ActiveCell.Formula = ""

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, [F9]) Is Nothing Then
    [F10].Select
  ElseIf Not Intersect(Target, [F10]) Is Nothing Then
    [F11].Select
  End If
End Sub