VBA：如何使用表格标题进行过滤答案

【问题标题】：VBA: How to filter using table headingsVBA：如何使用表格标题进行过滤
【发布时间】：2019-01-09 14:30:08
【问题描述】：

我创建了一个名为“MCO 项目”的宏按钮，单击该按钮时将过滤我的电子表格以仅过滤活动的 MCO 项目（在产品列 H 和阶段 2b 中查找“MCO”和阶段-门阶段中的阶段 3 R 列）。它现在工作正常。但是，我遇到的问题是，如果要在 H 列“字段 8”之前或在 H 列“字段 8”和 R 列“字段 18”之间（产品列和阶段之前的任何内容）向电子表格添加一列 -门阶段）它会抛出宏计算。例如，如果我要在“G”列之后添加一个新列，它会弄乱宏并且项目将无法正确过滤。

目标是单击“MCO 项目”宏按钮按产品（标题）过滤表以查找“MCO”（当前字段“8”）。并过滤 Phase-Gate Phase（Header）（当前字段“18”）以包括“Phase 3”和“Phase 2b”。那么有没有人知道宏专门查看产品列的方法？无论是添加还是删除列？非常感谢您提供的任何帮助/指导。

VBA代码

表格截图

【问题讨论】：

您能否将代码作为文本发布在您的帖子中，
Sub Button426_Click() End Sub Sub MCO_Projects() ' ' MCO_Projects 宏 ' ' ActiveSheet.ListObjects("Capacity_Model").Range.AutoFilter Field:=8, _ Criteria1:="MCO" ActiveWindow。 SmallScroll Down:=9 ActiveWindow.SmallScroll ToRight:=-51 ActiveSheet.ListObjects("Capacity_Model").Range.AutoFilter Field:=18, _ Criteria1:="=Phase 2B", Operator:=xlOr, Criteria2:="=阶段 3" ActiveWindow.SmallScroll ToRight:=53 ActiveWindow.SmallScroll Down:=-6 End Sub

标签： excel vba

【解决方案1】：

当您的表格从 A 列开始时，您有多种选择。例如，您可以使用带有索引的 ListColumns 来返回表中 Product 字段的列号。对其他字段重复此逻辑。如果它不是从 A 开始，您可以使用相同的原理，对起始列进行减法作为调整。

table.ListColumns("Product").Index  '<== Gives your 8 for Field:=

您也可以在 HeaderRowRange 上使用 Find

Option Explicit
Public Sub Test()
    Dim table As ListObject, field1 As Range, fieldFilter1 As Long
    Set table = ActiveSheet.ListObjects("Capacity_Model")

    Set field1 = table.HeaderRowRange.Find("Product")
    If Not field1 Is Nothing Then
        fieldFilter1 = field1.Column
    End If
    Debug.Print table.ListColumns("Product").Index
End Sub

【讨论】：