Сортировка таблицы по двойному клику в ячейке

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сортировка таблицы по двойному клику в ячейке (Макросы/Sub)

kirill-kibor

Дата: Воскресенье, 17.04.2016, 21:50 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

[offtop]Начало - в соседней ветке. Вот тут: http://www.excelworld.ru/forum/10-23260-1
[/offtop]

Здравствуйте! Помогите пожалуйста сделать следующее, если можно, то с комментариями (планирую поразбираться):
По двойному щелчку в ячейке с Фамилией из столбца "ВОД" или "ЗАК" должна происходить сортировка колонок. Т.е. что бы соответствующие строки оказывались наверху, соответствующие ячейки выделялись цветом, упорядочивались по дате.

P.S.
Как и прежде, заранее благодарен.

К сообщению приложен файл: 7289405.xls (25.0 Kb)

Сообщение отредактировал kirill-kibor - Воскресенье, 17.04.2016, 21:53

Ответить

StoTisteg

Дата: Воскресенье, 17.04.2016, 22:00 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

Держите.
[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If (Target.Column = 5 Or Target.Column = 6) And Target.Value <> "" Then 'Проверяем, попали ли в фамилию
        Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 11)).AutoFilter Field:=Target.Column, Criteria1:=Target.Value 'Если попали, отфильтровываем её
        Cancel = True 'И не даём "провалиться" в ячейку
    End If

End Sub

[/vba]

К сообщению приложен файл: Sort.xlsm (18.3 Kb)

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Сообщение отредактировал StoTisteg - Воскресенье, 17.04.2016, 23:11

Ответить

kirill-kibor

Дата: Понедельник, 18.04.2016, 03:05 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Спасибо.

Ответить

al-Ex

Дата: Понедельник, 18.04.2016, 08:27 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 190

Репутация: 59 ±

Замечаний: 0% ±

Excel 2010

Цитата StoTisteg, 17.04.2016 в 22:00, в сообщении № 2

Держите

Ну да, теперь увидел о чём речь шла, конечно так "красивше будет".

Сообщение отредактировал al-Ex - Понедельник, 18.04.2016, 08:36

Ответить

kirill-kibor

Дата: Понедельник, 18.04.2016, 13:26 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Черт подери, вот же круто-то.. А можно еще кнопочку сброса попросить?

Ответить

SLAVICK

Дата: Понедельник, 18.04.2016, 13:42 | Сообщение № 6

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата kirill-kibor, 18.04.2016 в 13:26, в сообщении № 5

А можно еще кнопочку сброса попросить?

А чем штатное средство сброса фильтров не устраивает?:
Данные--сортировка и фильтр -- очистить?
Если макросом все же нужно:
[vba]

Код

ActiveSheet.ShowAllData

[/vba]
И в Ваш код можно "вшить" - будет работать по двойному клику не на 5-6м столбцу:
[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If (Target.Column = 5 Or Target.Column = 6) And Target.Value <> "" Then
        Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 11)).AutoFilter Field:=Target.Column, Criteria1:=Target.Value
        Cancel = True
    Else
        ActiveSheet.ShowAllData
        Cancel = True
    End If
End Sub

[/vba]

К сообщению приложен файл: 7559182.xlsm (17.4 Kb)

Иногда все проще чем кажется с первого взгляда.

Ответить

kirill-kibor

Дата: Понедельник, 18.04.2016, 14:46 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Спасибо, сделал, работает.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сортировка таблицы по двойному клику в ячейке (Макросы/Sub)

Страница 1 из 1
1