Я хочу создать окно сообщения для ввода в ячейку данных, по которым я хочу фильтровать

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

Я получил его с помощью следующего кода:

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

Answer 2

Просто добавьте переменную через поле ввода

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