application screenupdating

Ответ от Алексей Матевосов (AlexM)[гуру]
Автоматическая сортировка, кодом, который вам предложили е очень удачный в принципе. Дело в том, что сортировка запускается, как только происходит изменение данных на листе. Допустим, в вашей таблице данных три столбца и после ввода данных в ячейку каждого столбца будет происходить сортировка. Удобнее сортировать после ввода данных во все ячейки строки или после ввода данных в несколько строк. Для этого лучше подходит ручной запуск макроса, для которого можно сделать отдельную кнопку или назначить комбинацию клавиш.
Раз вы не знаете, куда вставлять макросы пишу подробную инструкцию.
Разрешаем выполнение макросов Сервис -> Макрос -> Безопасность -> Средняя.
Теперь вставляем макрос Сервис -> Макрос -> Редактор Visual Basic.
Далее в редакторе VBA в окошке VBAProject кликаем по VBAProject(имя файла) , затем Insert -> Module при этом откроется окошко вставки кода.
Код:
----------------
Sub Sort_tabl()
nomer_column = "C" 'Колонка, по которой сортировать (Большие буквы EN раскладки)
kolvo_row = Cells(1, 1).End(xlDown).Row
kolvo_column = Cells(1, 1).End(xlToRight).Column
Range(Cells(2, 1), Cells(kolvo_row, kolvo_column)).Sort Key1:=Range(nomer_column & 1), _
Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End Sub
----------------
Вставляем код.
Если вам требуется сортировка не по “С” столбцу, то измените букву в коде.
Переходим в окно Excel
Назначаем комбинацию клавиш, если требуется.
Сервис -> Макрос -> Макросы -> Выделяем макрос “Sort_tabl” -> Параметры, в окошко забиваем букву и жмем Ок.
После добавления, или редактирования таблицы с БД запускаем макрос назначенной комбинацией клавиш или вручную Сервис -> Макрос -> Макросы, выбираем макрос “Sort_tabl” и жмем выполнить.
PS. запись Cells(2, 1), означает, что сортировка будет действовать со второй строки, чтобы не попадали в сортировку заголовки таблицы. Если надо как-то иначе, замените цифру 2 на другую.