Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сброс автофильтра при переходе на другой лист. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Сброс автофильтра при переходе на другой лист.
Евгений Дата: Четверг, 14.08.2014, 22:44 | Сообщение № 1
Группа: Гости
Помогите, пожалуйста, с решение проблемы.

Есть список фамилий сотрудников организации, в соседнем столбце должности с отделами, департаментами и пр.
Файл общий, используется несколькими людьми для сортировки по второму столбцу, ну и само собой, лазая по другим листам забывают его сбрасывать. Как сделать так, чтобы при переходе на другой лист автофильтр сбрасывался в первоначальное значение (виден весь список)?
 
Ответить
СообщениеПомогите, пожалуйста, с решение проблемы.

Есть список фамилий сотрудников организации, в соседнем столбце должности с отделами, департаментами и пр.
Файл общий, используется несколькими людьми для сортировки по второму столбцу, ну и само собой, лазая по другим листам забывают его сбрасывать. Как сделать так, чтобы при переходе на другой лист автофильтр сбрасывался в первоначальное значение (виден весь список)?

Автор - Евгений
Дата добавления - 14.08.2014 в 22:44
nilem Дата: Четверг, 14.08.2014, 23:10 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
если фильтр у вас на листе Sheet1, то в модуль ЭтаКнига
[vba]
Код
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Sheets("Sheet1")
     If .FilterMode Then .ShowAllData
End With
End Sub
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеесли фильтр у вас на листе Sheet1, то в модуль ЭтаКнига
[vba]
Код
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Sheets("Sheet1")
     If .FilterMode Then .ShowAllData
End With
End Sub
[/vba]

Автор - nilem
Дата добавления - 14.08.2014 в 23:10
Максим Дата: Четверг, 14.08.2014, 23:12 | Сообщение № 3
Группа: Гости
Запишите в макрорекордере это действие (сброс фильтра)
Затем скопируйте получившийся код и в модуле листа (правой кнопкой по ярлыку листа, пункт "исходный текст") вставьте его в процедуру между строчками
[vba][code]Private Sub Worksheet_Deactivate()
' вот сюда
End Sub
[/code][/vba]
 
Ответить
СообщениеЗапишите в макрорекордере это действие (сброс фильтра)
Затем скопируйте получившийся код и в модуле листа (правой кнопкой по ярлыку листа, пункт "исходный текст") вставьте его в процедуру между строчками
[vba][code]Private Sub Worksheet_Deactivate()
' вот сюда
End Sub
[/code][/vba]

Автор - Максим
Дата добавления - 14.08.2014 в 23:12
Евгений Дата: Пятница, 15.08.2014, 08:32 | Сообщение № 4
Группа: Гости
Спасибо большое. Первый способ помог, а вот второй что-то ругается ))
 
Ответить
СообщениеСпасибо большое. Первый способ помог, а вот второй что-то ругается ))

Автор - Евгений
Дата добавления - 15.08.2014 в 08:32
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!