выделение столбца при применении автофильтра

Старая форма входа

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

выделение столбца при применении автофильтра (Макросы/Sub)

micholap_denis

Дата: Понедельник, 22.11.2021, 23:50 | Сообщение № 1

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

Ранг: Обитатель

Сообщений: 341

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

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

Excel 2013

есть готовое решение
уважаемого Борода творение вроде
а как сделать чтоб срабатывало в умной таблице тоже?

К сообщению приложен файл: Koord_in_Filter.xlsm (16.4 Kb)

Сообщение отредактировал micholap_denis - Понедельник, 22.11.2021, 23:53

Ответить

Nic70y

Дата: Вторник, 23.11.2021, 10:00 | Сообщение № 2

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

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

Сообщений: 9005

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

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

Excel 2010

Цитата micholap_denis, 22.11.2021 в 23:50, в сообщении № 1 (

)

уважаемого Борода творение вроде

а вот и нет)
Sub Мяу()
может быть только у RAN
[vba]

Код

Sub Мяу()
    Dim i&, k&, r As Range
    With ActiveSheet.ListObjects("Таблица1").AutoFilter
        k = .Range(1).Column
        .Range.FormatConditions.Delete
        For i = 1 To .Range.Columns.Count
            If .Filters(i).On Then
                ' выделяется весь столбец
                ' Set r = Intersect(.Range, ActiveSheet.Columns(i + k - 1))
                Set r = Intersect(.Range.Rows(1), Columns(i + k - 1))
                r.FormatConditions.Add Type:=xlExpression, Formula1:="=СТОЛБЕЦ()=" & i + k - 1
                r.FormatConditions(1).Interior.Color = 255
                Set r = Nothing
            End If
        Next
    End With
End Sub

[/vba]