Сортировка умной таблицы по даблклику.

Просто вставьте этот набор букв в модуль листа и кайфуйте 😎 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim tbl As ListObject Dim ColumnIndex As Integer

' Проверяем, что клик произошел внутри таблицы On Error Resume Next Set tbl = Target.ListObject On Error GoTo 0

If Not tbl Is Nothing Then Cancel = True ' Отменяем стандартное действие двойного клика

' Определяем индекс столбца таблицы ColumnIndex = Target.Column - tbl.Range.Column + 1

' Настраиваем сортировку With tbl.Sort .SortFields.Clear .SortFields.Add2 _ Key:=tbl.ListColumns(ColumnIndex).Range, _ SortOn:=xlSortOnValues, _ Order:=xlDescending

.Header = xlYes .Apply End With End If End Sub

Всем Эксель!

repost

53

input message

напишите коммент

· 24.04

А чем не нравится просто правая кнопка мыши и сортировать?

ответить

25.04

Нет. Просто встать в любую ячейку нужного столбца правую клавишу мыши. Там сортировка.

ответить

еще контент в этом сообществе

еще контент в этом соообществе

войдите, чтобы увидеть

и подписаться на интересных профи

в приложении больше возможностей

пока в веб-версии есть не всё — мы вовсю работаем над ней

сетка — cоциальная сеть для нетворкинга от hh.ru

пересекайтесь с теми, кто повлияет на ваш профессиональный путь