Есть задача отслеживать наличие фильтрации в умной таблице и менять стиль таблицы.
думал что по Worksheet_SelectionChange получится проверять, но все что нашел на форуме не работает для умной таблицы.
по идее надо чтобы getActiveFilterCount выдавал 1 или более по количеству установленных фильтров в умной таблице
но что именно в эту функцию записать - пока загадка
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
i = getActiveFilterCount
If i <> 0 Then ActiveSheet.ListObjects("Таблица1").TableStyle = "TableStyleLight10"
Else ActiveSheet.ListObjects("Таблица1").TableStyle = "TableStyleLight9"
End If
End Sub
думал что по Worksheet_SelectionChange получится проверять, но все что нашел на форуме не работает для умной таблицы.
по идее надо чтобы getActiveFilterCount выдавал 1 или более по количеству установленных фильтров в умной таблице
но что именно в эту функцию записать - пока загадка
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
i = getActiveFilterCount
If i <> 0 Then ActiveSheet.ListObjects("Таблица1").TableStyle = "TableStyleLight10"
Else ActiveSheet.ListObjects("Таблица1").TableStyle = "TableStyleLight9"
End If
End Sub
Изменено: - 25.08.2024 19:26:37