Реальный Excel
24.04
Сортировка умной таблицы по даблклику.
Просто вставьте этот набор букв в модуль листа и кайфуйте 😎 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
Всем Эксель!
Николай Пряхин
· 24.04
А чем не нравится просто правая кнопка мыши и сортировать?
ответить
Николай Пряхин
25.04
Нет. Просто встать в любую ячейку нужного столбца правую клавишу мыши. Там сортировка.
ответить
еще контент в этом сообществе
еще контент в этом соообществе
Реальный Excel
24.04
войдите, чтобы увидеть
и подписаться на интересных профи