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

 

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

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
выделение столбца при применении автофильтра
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
Группа: Друзья
Ранг: Экселист
Сообщений: 9131
Репутация: 2415 ±
Замечаний: 0% ±

Excel 2010
Цитата micholap_denis, 22.11.2021 в 23:50, в сообщении № 1 ( писал(а)):
уважаемого Борода творение вроде
а вот и нет)
Sub Мяу()
может быть только у RAN

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

К сообщению приложен файл: 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 WithEnd 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
Группа: Друзья
Ранг: Экселист
Сообщений: 9131
Репутация: 2415 ±
Замечаний: 0% ±

Excel 2010
вот эта срока

.Range.FormatConditions.Delete

удаляет формат


Ю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 ( писал(а)):
а как быть что бы не удалялись уже имеющиеся УФ?

да легко
Цитата Nic70y, 27.11.2021 в 13:08, в сообщении № 4 ( писал(а)):
от эта срока
.Range.FormatConditions.Delete
удаляет формат

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


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

да легко
Цитата Nic70y, 27.11.2021 в 13:08, в сообщении № 4 ( писал(а)):
от эта срока
.Range.FormatConditions.Delete
удаляет формат

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

Автор - RAN
Дата добавления - 27.11.2021 в 20:33
  • Страница 1 из 1
  • 1
Поиск:

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