Автофильтр с использованием переменных критериев VBA

Я пытаюсь установить автофильтр на листе с помощью переменной, но она не работает.

Dim Criteria As Object i = 1 Set Criteria = ActiveSheet.Cells(i, 1) MsgBox (Criteria.Value) ' this returns BC01.03 

Однако, когда я пытаюсь фильтровать «Criteria.Value», ничего не возвращает.

 Selection.AutoFilter ActiveSheet.Range("$A$1:$BM$204").AutoFilter Field:=2, Criteria1:=" & Criteria.Value & " 

Пожалуйста посоветуй.

Избавьтесь от кавычек вокруг вашего аргумента Criteria1:

ActiveSheet.Range («$ A $ 1: $ BM $ 204»). Поле AutoFilter: = 2, Criteria1: = Criteria.Value

Кроме того, просто вопрос, почему вы используете позднюю привязку к объекту Range? Я использую позднюю привязку для объектов, для которых потребуется другая библиотека / ссылка, но поскольку Range является частью библиотеки объектов Excel, я бы использовал раннее связывание. Я бы использовал Dim Criteria as Range но это только мое предпочтение.

  • Excel VBA устанавливает AutoFilter как «Доза не содержит» с использованием значения DIM
  • Скопируйте автофильтрованный диапазон, vba excel
  • Зацикливание макросов на шаге, но сбой при автозапуске
  • VBA Autofilter не ограничивает набор данных
  • Использование строкового массива в качестве критерия в автообновлении VBA
  • Извлечь критерии1 значения отфильтрованных данных на основе даты
  • Автофильтр с несколькими подстановочными знаками
  • Apache POI, вызывающий автосохранение после автофильтра
  • Метод AutoFilter не работает
  • Есть ли способ увидеть, какие фильтры активны в Excel, кроме значков воронки?
  • Excel VBA - Применить автоматический фильтр и Сортировать по определенному цвету
  • Interesting Posts

    Установка локальной переменной из publicvariable в другой форме во время инициализации формы

    Вычислите среднее значение столбцов, затем удалите столбцы с помощью таблицы Google

    Excel VBA – цветные дубликаты диапазонов с разными цветами

    База данных запросов с точкой в ​​названии

    Exce: обратитесь к ячейке в одной строке ниже адреса в другой ячейке

    Ошибка при загрузке файлов .xls или .xlsx в хранилище данных

    IF / AND между двумя датами Условное форматирование

    Открытие веб-страницы в виде файла Excel, но с файлами .xlsx

    Нужна переменная String из класса, чтобы она равнялась переменной в другом классе, а также данные ArrayList для сопоставления данных ArrayList в другом классе

    извлекать несколько узлов xml в массив без циклов

    Excel VBA – значение выражения теряет тип и значение после истинного утверждения IF

    Разгруппировать листы из массива в VBA

    Не повторяющиеся значения Copy Paste

    Автоматическое добавление предложения автозаполнения в Excel с использованием EPPlus и C #

    Конкатенация различного количества строк в одном столбце по одному ключевому слову в Excel

    Давайте будем гением компьютера.