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

Просто вставьте этот набор букв в модуль листа и кайфуйте 😎 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

Всем Эксель!