Как сделать сортировку столбца по клику на его заголовок?

[n0str0m0]

В экселе не силен, но вот возникла задача. Есть таблица со множеством столбцов. Как мне сделать так, чтобы при нажатии на заголовок столбца производилась сортировка по возрастанию, а при повторном нажатии - по убыванию. Знаю, что есть фильтр, но не все умеют им пользоваться, а хотелось бы, чтобы мой файл мог сортироваться по столбцам на любом компе у любого пользователя. Заранее спасибо.

[IgorGO]

проверяйте.
уже сортируется?
я силой мысли посылал код в Ваш файл (правда, экстрасенс из меня никакой - могло не получиться)

чтобы мой файл мог сортироваться по столбцам на любом компе у любого пользователя

еще посмотрите, разрешены ли у Вас макросы в екселе и потом, в переспективе, они должны быть разрешены "на любом компе у любого пользователя", чтобы и у них сортировалось.

[n0str0m0]

Сообщение от IgorGO

проверяйте.
уже сортируется?
я силой мысли посылал код в Ваш файл (правда, экстрасенс из меня никакой - могло не получиться)
еще посмотрите, разрешены ли у Вас макросы в екселе и потом, в переспективе, они должны быть разрешены "на любом компе у любого пользователя", чтобы и у них сортировалось.

Я думал, что проблемка мизерная и без файла понятна. Я не хотел, чтобы за меня все сделали и мне дали готовое. Мне хотелось бы понять сам принцип, как это делается. Прикрепляю файл, если не трудно, то подскажите, как это сделать

[BigDaddy]

а вот так не пойдет?
просто выделяется первая строка с заголовком:

ФИО возраст рост вес

устанавливается фильтр (в меню или правой кнопкой мыши - и нажать на "фильтр")
и сортируйте на здоровье по убываю-возрастанию любой колонки

[BigDaddy]

или именно таким фильтром, вы говорили, не все могут пользоваться?
может их научить?..
ведь совсем просто!

[n0str0m0]

Сообщение от BigDaddy

или именно таким фильтром, вы говорили, не все могут пользоваться?
может их научить?..
ведь совсем просто!

Да я согласен, что проблемы нет. Проблема с другой стороны. Я даже не знаю, кто этот файл будет смотреть, поэтому и прошу помощи. Поэтому отвергаю вариант с фильтром. Ведь сортируются таблицы на сайтах, причем легко, хотелось бы такое же реализовать у себя в файле
Чувствую, что это надо что-то в виде кнопки в VBA, но как это сделать, не знаю

[IgorGO]

правой кнопкой по ярлыку листа, "исходный текст", вставте туда этот

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Cells.Count > 1 Then Exit Sub
  If Application.Intersect(Target, Range("B8:E8")) Is Nothing Then Exit Sub
  With Sort
    .SortFields.Clear
    .SortFields.Add Key:=Target.Resize(Target.End(xlDown).Row - Target.Row + 1, 1), SortOn:=xlSortOnValues, _
    Order:=IIf(Right(Target, 1) = " ", xlAscending, xlDescending), DataOption:=xlSortNormal
    If Right(Target, 1) = " " Then Target = Trim(Target) Else Target = Target & " "
    .SetRange Target.Offset(0, 2 - Target.Column).Resize(Target.End(xlDown).Row - Target.Row + 1, 4)
    .Header = xlYes
    .Apply
  End With
End Sub

при нажатии на заголовок столбца производилась сортировка по возрастанию, а при повторном нажатии - по убыванию

[n0str0m0]

Сообщение от IgorGO

правой кнопкой по ярлыку листа, "исходный текст", вставте туда этот

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Cells.Count > 1 Then Exit Sub
  If Application.Intersect(Target, Range("B8:E8")) Is Nothing Then Exit Sub
  With Sort
    .SortFields.Clear
    .SortFields.Add Key:=Target.Resize(Target.End(xlDown).Row - Target.Row + 1, 1), SortOn:=xlSortOnValues, _
    Order:=IIf(Right(Target, 1) = " ", xlAscending, xlDescending), DataOption:=xlSortNormal
    If Right(Target, 1) = " " Then Target = Trim(Target) Else Target = Target & " "
    .SetRange Target.Offset(0, 2 - Target.Column).Resize(Target.End(xlDown).Row - Target.Row + 1, 4)
    .Header = xlYes
    .Apply
  End With
End Sub

Простите, не могли бы Вы подсказать, что с этим всем делать? Сделал буквально, как Вы написали, сохранил файл с поддержкой макросов. И... ничего...
В автокаде знаю, как ЛИСП прикрутить, а здесь - нет

[IgorGO]

см. вложение

[n0str0m0]

Сообщение от IgorGO

см. вложение

Прошу прощения за назойливость. Вы все сделали, почти как мне хотелось. Срабатывает сортировка только один раз, на второе нажатие не реагирует. Необходимо кликнуть в другой ячейке, а затем снова на нужной, чтобы сортировка поменялась с возрастания на убывание.
Вот только мне непонятно, как Вы это сделали. То есть, все работает, но хотелось бы знать, как это работает. Если не трудно, поясните. Ну или дайте ссылочку, где про эту процедуру можно почитать.

Во вкладке РАЗРАБОТЧИК есть кнопка ВСТАВИТЬ, где находятся элементы управления формами. Нельза ли прикрутить как нибудь элемент к заголовкам столбцов, чтобы при нажатии на этот элемент происходила сортировка по возрастанию/убыванию?