Сортировка данных

[slava9]

Как можно сделать постоянную сортировку?
Допустим по датам, я изменил в одной из строчек дату, нажал Enter и сразу чтоб отсортировалось. Не хочу постоянно лесть самому каждый раз сортировать.

[Serge_Bliznykov]

хороший вопрос.

если по простому и эффективно - то никак.

но, разумеется, костыли можно приделать.

вариант 1. повесить функцию сортировки на событие изменения листа (например, на Worksheet_Change ). Работать будет так, как Вы хотите, но если таблица будет достаточно большой, то тормозить будет очень сильно (и чем больше таблица, тем сильнее будет тормозить).

вариант 2. реализовать сортировку в новом месте с помощью формул.
вариант пошустрее, но возни и с ним много будет. и тоже будет тормозить на очень больших таблицах.

оно Вам точно надо?

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

Не хочу постоянно лесть самому каждый раз сортировать.

так киньте кнопку сортировки на лист и не надо никуда "лезть"...

[сфинкс]

эксцель - вид - макросы - записать - сделать - остановить

и в прямом эфире сформируется макрос
сортирующий именно что нужно например

Sub sort()
' sort 
    Range("B1:C5").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("list3").sort.SortFields.Clear
    ActiveWorkbook.Worksheets("list3").sort.SortFields.Add Key:=Range("B1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("list3").sort
        .SetRange Range("B1:C5")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("S12").Select
End Sub

повторяю: это автоматически созданный пример

зато легко вынести кнопку макроса на панель быстрого доступа
и работа выглядит: поменяли дату - щёлк макрос - отсортировалось
ведь область сортировки включена в макрос

[IgorGO]

slava9,
выложите сюда файл, я Вам сделаю такую сортировку