Question

我希望按某些名称进行过滤，例如JHILL2。我想弹出一个消息框，我可以在其中输入JHILL2，然后以此过滤特定的列。

我目前有只适用于JHILL2的代码，但是我想在每次运行宏时都使用选项框来更改名称

Sub filter_jhill2()

    Set ws = Worksheets("modified_report")

    Application.ScreenUpdating = False

    'Sheets("modified_report").Select

    'Selection.AutoFilter
    Worksheets("modified_report").Range("A1").AutoFilter Field:=6, Criteria1:="JHILL2"

End Sub

Answer 1

只需通过输入框添加变量

Dim criteria As String
criteria = InputBox("What name would you like to filter the column with?")

然后更改我认为可行的过滤器：

Worksheets("modified_report").Range("A1").AutoFilter Field:=6, Criteria1:= criteria

Answer 2

我通过以下代码使用它：

Sub filter_by_acr()

   Set ws = Worksheets("modified_report")

   Application.ScreenUpdating = False

   strInput = InputBox("Enter acronym to filter on")

   Worksheets("modified_report").Range("A1").AutoFilter Field:=6, Criteria1:=strInput

End Sub

我想创建一个消息框以输入要过滤的单元格数据

2 个答案: