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

346
T Sears

У меня есть рабочая тетрадь для еженедельных отчетов, однако мы ежедневно добавляем новые записи.

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

Ниже приведены столбцы, которые я хочу использовать:

  • Конец текущего рабочего года от старого к новому (столбец D, данные начинаются в строке 6).

  • Рабочий статус от Z до A (столбец J, данные начинаются в строке 6).

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

0
https://superuser.com/questions/1207529/how-can-i-have-data-re-sort-when-a-file-opens показывает, как сортировать при открытии с помощью строки кода VBA. K7AAY 6 лет назад 0
Возможный дубликат [Как я могу повторно отсортировать данные при открытии файла?] (Https://superuser.com/questions/1207529/how-can-i-have-data-re-sort-when-a-file -Открывает) K7AAY 6 лет назад 5

1 ответ на вопрос

-1
Rajesh S

Чтобы установить автоматическую сортировку по столбцам желаний при открытии рабочей книги, необходим этот макрос (VBA).

Private Sub Worksheet_Open()  Columns("D:D").Select Selection.Sort Key1:=Range("D6"), Order1:=xlDescending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal  Columns("J:J").Select Selection.Sort Key2:=Range("J6"), Order1:=xlDescending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal  End Sub 

Как это устроено:

  1. Нажмите, Alt+F11чтобы открыть редактор VB.
  2. Вверху слева в Project Explorer windowsпоиске ThisWorkbook.
  3. Double clickэто тогда Copy & Pasteэтот кодекс.
  4. Saveи Closeрабочая тетрадь.

Замечания:

Теперь каждый раз, когда вы открываете Workbook Excel, этот код запускается для сортировки данных по указанным столбцам.

Пожалуйста, напишите, что не так с кодом! Rajesh S 6 лет назад 0