Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/выделение столбца при применении автофильтра - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » выделение столбца при применении автофильтра (Макросы/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
 
Ответить
Сообщениеесть готовое решение
уважаемого Борода творение вроде
а как сделать чтоб срабатывало в умной таблице тоже?

Автор - micholap_denis
Дата добавления - 22.11.2021 в 23:50
Nic70y Дата: Вторник, 23.11.2021, 10:00 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8710
Репутация: 2261 ±
Замечаний: 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]
К сообщению приложен файл: 18.xlsm (17.2 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщение
Цитата 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]

Автор - Nic70y
Дата добавления - 23.11.2021 в 10:00
micholap_denis Дата: Пятница, 26.11.2021, 18:54 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 341
Репутация: 0 ±
Замечаний: 60% ±

Excel 2013
Nic70y, спасибо...RANу спасибо значит тоже
да работает...а как быть что бы не удалялись уже имеющиеся УФ?
 
Ответить
СообщениеNic70y, спасибо...RANу спасибо значит тоже
да работает...а как быть что бы не удалялись уже имеющиеся УФ?

Автор - micholap_denis
Дата добавления - 26.11.2021 в 18:54
Nic70y Дата: Суббота, 27.11.2021, 13:08 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 8710
Репутация: 2261 ±
Замечаний: 0% ±

Excel 2010
вот эта срока[vba]
Код
.Range.FormatConditions.Delete
[/vba]удаляет формат


ЮMoney 41001841029809
 
Ответить
Сообщениевот эта срока[vba]
Код
.Range.FormatConditions.Delete
[/vba]удаляет формат

Автор - Nic70y
Дата добавления - 27.11.2021 в 13:08
RAN Дата: Суббота, 27.11.2021, 20:33 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата micholap_denis, 26.11.2021 в 18:54, в сообщении № 3 ()
а как быть что бы не удалялись уже имеющиеся УФ?

да легко
от эта срока
.Range.FormatConditions.Delete
удаляет формат

Однеко, без этого, мяукать будет не в тот лоток.


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата micholap_denis, 26.11.2021 в 18:54, в сообщении № 3 ()
а как быть что бы не удалялись уже имеющиеся УФ?

да легко
от эта срока
.Range.FormatConditions.Delete
удаляет формат

Однеко, без этого, мяукать будет не в тот лоток.

Автор - RAN
Дата добавления - 27.11.2021 в 20:33
Мир MS Excel » Вопросы и решения » Вопросы по VBA » выделение столбца при применении автофильтра (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!