Скрыть стрелки автофильтра в умной таблице на всех столбцах кроме столбца "Заказ"

Пользователь

Сообщений: 99 Регистрация: 04.01.2020

07.07.2026 11:46:31

Уважаемые форумчане, добрый день.
Помогите пожалуйста усовершенствовать макрос для скрытия стрелки раскрывающегося списка (автофильтра) в умной таблице.
Вот этот макрос работает:

Код

Sub UnVisDropDown()
    Range("tblMaket").AutoFilter Field:=1, VisibleDropDown:=False
    Range("tblMaket").AutoFilter Field:=2, VisibleDropDown:=False
    Range("tblMaket").AutoFilter Field:=3, VisibleDropDown:=False
    Range("tblMaket").AutoFilter Field:=4, VisibleDropDown:=False
    Range("tblMaket").AutoFilter Field:=5, VisibleDropDown:=False
    Range("tblMaket").AutoFilter Field:=6, VisibleDropDown:=False
    Range("tblMaket").AutoFilter Field:=7, VisibleDropDown:=False
    Range("tblMaket").AutoFilter Field:=8, VisibleDropDown:=False
    Range("tblMaket").AutoFilter Field:=9, VisibleDropDown:=False
    Range("tblMaket").AutoFilter Field:=10, VisibleDropDown:=False
    Range("tblMaket").AutoFilter Field:=11, VisibleDropDown:=False
End Sub

Но беда в том, что:
1. В таблице может быть разное количество столбцов.
2. Столбец "Заказ" может быть не только последним столбцом в таблице.

Т.е. нужно определить количество столбцов, затем выявить номер столбца "Заказ" и выключить стрелки везде кроме столбца "Заказ".

Прикрепленные файлы

zBook_v1.9.xlsb (14.83 КБ)

Конь

Пользователь

Сообщений: 1823 Регистрация: 16.01.2013

07.07.2026 12:08:28

Добрый день. Вариант:

Код

Option Explicit
Sub UnVisDropDown()
Dim i As Integer
For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
If Cells(1, i).Value <> "Заказ" Then Range("tblMaket").AutoFilter Field:=i, VisibleDropDown:=False
Next i
End Sub

Прикрепленные файлы

zBook_v1.9.xlsb (14.81 КБ)

Удивление есть начало познания © Surprise me!
И да пребудет с нами сила ВПР.

AndreiSMT Пользователь Сообщений: 99 Регистрация: 04.01.2020	#3 07.07.2026 12:13:08 Конь, большое вам спасибо!

Msi2102

Пользователь

Сообщений: 4505 Регистрация: 31.03.2014

07.07.2026 13:45:46

Ещё вариант

Код

Sub UnVisDropDown_1()
    ActiveSheet.ListObjects("tblMaket").ShowAutoFilterDropDown = False
    aaa = ActiveSheet.ListObjects("tblMaket").ListColumns("Заказ").Index
    Range("tblMaket").AutoFilter Field:=aaa, VisibleDropDown:=True
End Sub

Читают тему