Добрый день, уважаемые знатоки!
Провожу сортировку объекта listobjects на листе в фоновом режиме (т.е. лист не является активным). Всё отрабатывает хорошо, но после этого при переходе на лист выделенным оказывается весь конкретный listobject (таблица). Как можно убрать выделение без активации листа?
Application.ScreenUpdating = False
With CrtSheet.ListObjects("Òàáëèöà1").Sort
With .SortFields
.Clear
.Add Key:=CrtSheet.Range("Ìîäåëü"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Add Key:=CrtSheet.Range("Èíâ._¹"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
End With
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.ScreenUpdating = True
Ответить
|