Изменение макросом - нижней границы автофильтра.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Изменение макросом - нижней границы автофильтра. (Макросы/Sub)

yl3d

Дата: Воскресенье, 13.08.2017, 09:32 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 66

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Доброе утро, специалисты по программированию.

На листе есть несколько сортировок автофильтром (они стоят в разных местах листа).
В данном случае - я расположил два автофильтра рядом.

Как макросом изменить нижний предел сортировки всех автофильтров на листе - до номера строки, который вписан в ячейку I9 ?

(Нужен именно макрос, поскольку - ручной способ здесь не поможет, так как в моем исходном файле, который я не смог загрузить из-за размера - автофильры настроены так, что располагаются в разных местах листа (а не рядом друг с другом). Поэтому при ручном изменении границ - придется заново проводить и настройку - выборочного отображения автофильтров)

К сообщению приложен файл: 4564567.xls (31.0 Kb)

Ответить

RAN

Дата: Воскресенье, 13.08.2017, 12:36 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата yl3d, 13.08.2017 в 09:32, в сообщении № 1 ()

автофильры настроены так, что располагаются в разных местах листа (а не рядом друг с другом)

Можно взглянуть на это чудо?

Быть или не быть, вот в чем загвоздка!

Ответить

yl3d

Дата: Воскресенье, 13.08.2017, 13:02 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 66

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Цитата RAN, 13.08.2017 в 12:36, в сообщении № 2 ()

Можно взглянуть на это чудо?

Смотрите.

К сообщению приложен файл: 4654645.rar (24.7 Kb)

Ответить

KuklP

Дата: Воскресенье, 13.08.2017, 17:18 | Сообщение № 4

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Это ОДИН автофильтр, у к-рого некоторые стрелки скрыты макросом.

Цитата yl3d, 13.08.2017 в 09:32, в сообщении № 1 ()

В данном случае - я расположил два автофильтра рядом.

- щас расплачусь.

Так что "у всех автофильтров" нижняя граница и так одна. Учите уже матчасть.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

RAN

Дата: Воскресенье, 13.08.2017, 17:33 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Почему вы этот автофильтр гордо именуете "несколько автофильтров"?
Для вашего файла, до номера строки, который вписан в ячейку N1
[vba]

Код

Sub HideAutoFilterDropdowns()
    With ActiveSheet
        If .AutoFilterMode Then .Range("A1").AutoFilter
        .Range("A2:L" & Range("N1").Value).AutoFilter
        With .AutoFilter.Range
            .AutoFilter Field:=2, VisibleDropDown:=False
            .AutoFilter Field:=3, VisibleDropDown:=False
            .AutoFilter Field:=6, VisibleDropDown:=False
            .AutoFilter Field:=7, VisibleDropDown:=False
            .AutoFilter Field:=10, VisibleDropDown:=False
            .AutoFilter Field:=11, VisibleDropDown:=False
        End With
    End With
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

yl3d

Дата: Воскресенье, 13.08.2017, 17:49 | Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 66

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

RAN, спасибо - все работает.

Ответить

Изменение макросом - нижней границы автофильтра. (Макросы/Sub)

Страница 1 из 1
1