基于另一个单元格的 VBA 过滤器

我是 VBA 初学者，试图根据单元格值过滤数据，经过一番谷歌搜索后，我编写了一段有效的代码

Sub FilterDepartment_Sales()
    Sheet6.Activate
    Sheet6.Cells.Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=12, Criteria1:=Sheet8.Range("B3").Value
End Sub

我必须将此宏分配给要运行的对象，当我更改 B3 中的单元格值时，数据不会自动刷新，如何在更改 B3 中的值时使其自动刷新

同样在上面的代码中，当我尝试执行以下操作时，它给了我一个错误

Sub FilterDepartment_Sales()
    Sheet6.Activate
    'Sheet6.Cells.Select
    'Selection.AutoFilter
    'Selection.AutoFilter Field:=12, Criteria1:=Sheet8.Range("B3").Value

    Sheet6.Cells.Select.AutoFilter Field:=12, Criteria1:=Sheet8.Range("B3").Value
End Sub

我收到“找不到对象错误”，任何原因说明我无法像这样压缩代码

根据我修改了代码的答案

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


    Sheet6.Activate
    Sheet6.Cells.Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=12, Criteria1:=Sheet8.Range("B3").Value




End Sub

但是现在当我更改 B3 中的值时什么也没有发生，我需要添加什么吗？

如果您希望每次更改工作表中的某些内容时都运行代码，则必须将代码放置在一个方法中，该方法处理更改某些内容的事件。

这是您必须找到更改事件的地方，您必须在左侧选择Sheet1，然后选择Worksheet从下拉列表中，右侧的列表将包含所有事件。每次更改都会引发更改事件，因此您需要对此进行过滤并仅处理特定单元格更改时的情况：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 2 And Target.Column = 3 Then
    Sheet6.Cells.AutoFilter Field:=12, Criteria1:=Sheet8.Range("B3").Value
End If
End Sub

在示例中，我们仅观察单元格中的变化B3.