Excel VBA宏以显示从后端表筛选的信息

我正在寻找一些帮助与项目，我目前正在工作。我正在创建一个演示工作表，其中显示已达到各种状态的零件计数”。也就是说，零件过期，零件需要签订合同，零件带有设计等。在所有情况下，我有8种不同的状态，每个零件都可以基于特定标准。我已经创建了指示特定零件处于哪种状态的切换，并使用该切换在显示器中显示我的计数

目前，我已经将显示编码为基于下拉菜单进行切换，因此数据会根据我们的工作组进行更改。我想做的是创建一个代码，在单击后查看单击单元格中的计数，并显示在与该单元格相关的特定部分下方。例如，如果组1的状态“零件具有设计”单元格中的计数为5，则我希望将这5个特定零件以及与之相关的一些其他数据显示在我在此主显示下方创建的表中。所有数据都保存在单独的数据表中，所以我只需要知道如何过滤，然后复制我想要的数据的特定部分并重新显示它

我想在其中显示它的表称为“selection”，它目前有3个clomuns、ID、Part和Bid。我将从中提取数据的表位于一个称为data的单独工作表上，该工作表最终将对用户隐藏。这里有人能帮我吗

---

提前感谢您。

一种方法是将您的所有数据都放在当前电子表格中，并使用筛选功能筛选出符合您所需条件的行。为此，请向图纸中添加一个隐藏列，并将其公式设置为：

=IF（PArea=“-ALL AREA path-”，TRUE，IFERROR（IF（FIND（PArea，[@[producting AREA]]）>0，TRUE，FALSE），FALSE））

选择器下拉列表应为命名范围（此处为PArea）

然后，您可以添加一个运行以下代码的按钮-我将该按钮标记为“过滤器”-以便用户知道选择过滤器标准，然后单击过滤器。它运行的代码如下所示：

'Consumer Area
If Range("PArea") = "- ALL AREA PATHS -" Then
    ActiveSheet.ListObjects("Table_Dependenciesl").Range.AutoFilter Field:=22
Else
    ActiveSheet.ListObjects("Table_Dependenciesl").Range.AutoFilter Field:=22, _
        Criteria1:="TRUE"
End If

然后，隐藏列中的单元格（匹配时值=True，不匹配时为空白）和VBA代码的组合将隐藏所有未将筛选列设置为True的行。在本例中，文本“-ALL AREA path-”被添加到驱动下拉框@PArea”的下拉范围中，单元格公式中的逻辑知道，如果选择了所有值，则该值应为真，否则必须与特定的选定值匹配

---

autoFilter命令接受一个或两个参数-field#是列#（从@1开始），可选条件会将过滤器设置为带有公式的隐藏列显示“True”的位置。如果省略了条件，则过滤器将撤消，并且该列不再对要过滤的行起作用。请注意上面的行连续字符uu，这样您就不会紧张了。

向我们展示您的代码、示例数据、逻辑和预期结果。这比写小说要好：）