Страницы: 1
RSS
Автоматическая сортировка по возрастанию
 
Приветствую всех.
Существует ли возможность автоматической сортировки по возрастанию с помощью макроса или каким либо другим способом?
К примеру, при добавлении строки после нажатия Enter происходило перестроения всей таблицы по алфавиту?
 
Приветствую.
Существует.
Пишется процедура, которая в зависимости от изменения в определенных ячейках, запускает процесс сортировки в заданной последовательности.
Например.
Кому решение нужно - тот пример и рисует.
 
vita79,
код выводит сообщение при вставке строки:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
If Target.Address = Target.EntireRow.Address Then
    MsgBox Target.Row
    If Application.CountA(Target) = 0 Then Exit Sub
End If
End Sub

с сортировкой проще: ТЫЦ
Изменено: evgeniygeo - 20.09.2022 19:31:04
Страницы: 1
Наверх