Как отсортировать диапазоны по двойному щелчку в Excel

При создании отчетов Excel для ваших клиентов иногда нужно добавить пару фишек. Один из возможных вариантов — возможность отсортировать диапазоны при использовании двойного щелчка. Это довольно легко при помощи этого макроса.

В этом макросе, мы сначала находим последнюю непустую строку. Затем мы используем номер строки для определения целевого диапазона строк, где нам нужно применить сортировку. С помощью метода сортировки, мы сортируем целевые строки в колонке двойным щелчком. Двойной щелчок включит режим редактирования, который можно отменить, нажав клавишу Esc.

1. Сначала мы объявляем переменную Long Integer под названием LastRow — держатель номера строки последней непустой строки. 

2. На шаге 2 мы фиксируем последнюю непустую строку, начиная с самой последней строки в листе и используя свойство End, чтобы перейти к первой непустой ячейке (эквивалент перейти к ячейке A1048576 и нажать Ctrl + Shift + Стрелка вверх на клавиатуре). 

3. Обратите внимание, что вам необходимо изменить номер столбца в этой ячейке на тот, который подходит для набора данных. То есть, если ваша таблица начинается на колонке J, вам нужно будет изменить строку на шаге 2 ячейки (Rows.Count, 10) .END (xlUp) .Row, так как столбец J является десятым столбцом на рабочем листе. 

4. На этом шаге мы определяем общий диапазон строк для пользовательских данных. 

Имейте в виду, что диапазон строк должен начинаться с первой строки данных (за исключением заголовков) и заканчиваться последней непустой строкой. В этом случае набор данных начинается на строке 2. Таким образом, мы используем метод сортировки по строкам («6:» & LastRow). 

Для реализации этого макроса, вам нужно скопировать и вставить его в окно кода события Worksheet_BeforeDouble Click. Это обеспечит запуск макроса каждый раз, когда вы дважды щелкните на листе.

1. Активируйте редактор Visual Basic, нажав ALT + F11.

2. В окне проекта, найдите свой проект / имя рабочей книги и нажмите на знак плюс рядом с ним, чтобы увидеть все листы.

3. Нажмите на лист, из которого вы хотите вызвать код.

4. Выберите в выпадающем списке вверху слева параметр Worksheet, а в правом выпадающем списке выберите событие BeforeDoubleClick.

5. Введите или вставьте код во вновь созданном модуле.