excel - Excel VBA 代码用于创建一个用于归档特定列的文本框

Question

我正在尝试找到一种方法来过滤文件中的列，理想情况下，我希望有人在文本框中输入名称，然后文件将过滤该特定名称。我一直在尝试寻找一种代码来在线执行此操作，但我一直无法找到一个有效的代码。

Active  Company Name        ID    Company Profile Owner
Yes     Company 1           B52     Profile 2     Jim
Yes     Company 2           B84     Profile 3     Jack
No      Company 3           B98     Profile 4     Ana
Yes     Company 4           B82     Profile 5     Jim
No      Company 5           B15     Profile 6     Ana

基本上在文本框中，用户将键入所有者的名称，然后代码将根据所有者列进行过滤，以仅显示与该名称关联的记录。

谢谢

Answer 1

这是一个答案，因为我是董事会成员，我想尝试输入框。安装这两个宏并在第 1 行插入两个按钮，将宏分配给按钮。第一个按钮将使用输入框询问您要过滤的列#，第二个按钮将使用输入框询问要过滤的条件。第二个宏清除过滤器。

Sub Button3_Click()
Dim fldInput As String
Dim criInput As String
fldInput = InputBox("Enter the Column # to Filter")
criInput = InputBox("Enter the String to filter on")

    With ActiveSheet.Range("A1").CurrentRegion
        .AutoFilter
        .AutoFilter Field:=fldInput, Criteria1:=criInput
    End With
End Sub

Sub Button4_Click()
ActiveSheet.Range("A1").CurrentRegion.AutoFilter
End Sub