VBA: ошибка времени выполнения '424' с автофильтром

Я искал на форуме, но не нашел ответа на свой вопрос.

Sub delMakro ()

Dim rngAutoFill As Range

Установите rngAutoFill = Range ("A1: Z1")

rngAutoFill.Select
rngAutoFill.AutoFilter = True

Конец подписки

Я получаю ошибку времени выполнения "424", но не понимаю, почему


vba autofilter
person Petter__    schedule 24.10.2016    source источник
comment
Вы написали это в каком-то vbs-файле или в коде листа / книги? Рекомендуется ссылаться на диапазон вместе с именем книги и листа, чтобы код можно было повторно использовать.   -  person Mukul Varshney    schedule 24.10.2016
comment
В коде позади. Вы имеете в виду VBA-Editor? (Alt + F11)   -  person Petter__    schedule 24.10.2016
comment
Я думаю, вы называете диапазон ячеек, которые хотите заполнить, но не называете лист и книгу, о которых вы говорите.   -  person GNMercado    schedule 24.10.2016
comment
Я имел в виду редактор разработчика Excel, в котором можно писать код.   -  person Mukul Varshney    schedule 24.10.2016
comment
Да, точно. Это то же самое   -  person Petter__    schedule 24.10.2016

Ответы (1)


arrow_upward
0
arrow_downward

Метод Autofilter () может возвращать значение (Variant), но нельзя присвоить значение, как вы пытаетесь сделать с rngAutoFill.AutoFilter = True

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

rngAutoFill.AutoFilter '<-- if dropdown arrows were off, it turns them on and viceversa

Если вы хотите, чтобы стрелки раскрывающегося списка появлялись в 1-м поле вашего диапазона

rngAutoFill.AutoFilter field:=1, VisibleDropDown:=True

Если вы хотите, чтобы стрелки раскрывающегося списка появлялись во 2-м и 4-м поле вашего диапазона

rngAutoFill.AutoFilter field:=Array(2,4), VisibleDropDown:=True
person user3598756    schedule 24.10.2016
comment
@Petter__, это тебе помогло? - person user3598756; 25.10.2016