фильтр текстбокс для умной таблицы

Вход

Регистрация

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

= Мир MS Excel/фильтр текстбокс для умной таблицы - Мир MS Excel

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

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

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

фильтр текстбокс для умной таблицы

micholap_denis

Дата: Вторник, 01.11.2022, 12:15 | Сообщение № 1

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

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

Сообщений: 341

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

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

Excel 2013

День добрый, взял из готовых решений фильтр Текст бокс автомат
как подправить макрос что бы работал и на листе (2) к умной таблице...

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

Ответить

msi2102

Дата: Вторник, 01.11.2022, 14:23 | Сообщение № 2

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

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

Сообщений: 415

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

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

Excel 2007

Цитата micholap_denis, 01.11.2022 в 12:15, в сообщении № 1 (

)

что бы работал и на листе (2) к умной таблице

Так?
[vba]

Код

Private Sub FLTR_by_Box(oBj As Object, Optional СТОЛБЕЦ, Optional LTWH As String = "ltw", Optional SP_Star As Boolean = False)
    If SP_Star Then oBj.Value = Replace(oBj.Value, " ", "*")
    If oBj.Value <> "" Then
        ActiveSheet.ListObjects("Таблица1").Range.AutoFilter Field:=СТОЛБЕЦ, Criteria1:="*" & oBj.Value & "*"   ', Operator:=xlAnd
    Else
        ActiveSheet.ListObjects("Таблица1").Range.AutoFilter Field:=СТОЛБЕЦ
        Range(ActiveCell.Address).Activate   ' сдвинуть экран к выделенной ячейке
    End If
    oBj.Activate  ' вернуть курсор в текстбокс
End Sub

[/vba]

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

Ответить

micholap_denis

Дата: Вторник, 01.11.2022, 14:25 | Сообщение № 3

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

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

Сообщений: 341

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

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

Excel 2013

msi2102, Спасибо!

Ответить

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

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