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

Вход

Регистрация

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

 

= Мир MS Excel/Запустить макросом автофильтр в столбе, если есть данные - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запустить макросом автофильтр в столбе, если есть данные (Макросы/Sub)
Запустить макросом автофильтр в столбе, если есть данные
Елена1969 Дата: Среда, 15.07.2020, 15:58 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Добрый день.
Необходимо, чтобы при открытии книги в столбце F происходила автофильтрация от меньшего к большему, Но только если есть в столбце данные (это будут числа).
Мне удалось макрорекордером написать только без условия содержания данных в столбце. И фильтрация происходит даже, если столбец пустой, что мне совсем не надо.
Помогите, пожалуйста, не владею написанием функций макроса.
Вот что у меня получилось:

[vba]
Код
Private Sub Workbook_Open()
'
' Макрос1 Макрос
'

'
ActiveWorkbook.Worksheets("ИЕПР").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ИЕПР").AutoFilter.Sort.SortFields.Add Key:=Range( _
"F11:F10011"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("ИЕПР").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
[/vba]
К сообщению приложен файл: _00.xlsm(56.3 Kb)


Сообщение отредактировал Елена1969 - Среда, 15.07.2020, 16:50
 
Ответить
СообщениеДобрый день.
Необходимо, чтобы при открытии книги в столбце F происходила автофильтрация от меньшего к большему, Но только если есть в столбце данные (это будут числа).
Мне удалось макрорекордером написать только без условия содержания данных в столбце. И фильтрация происходит даже, если столбец пустой, что мне совсем не надо.
Помогите, пожалуйста, не владею написанием функций макроса.
Вот что у меня получилось:

[vba]
Код
Private Sub Workbook_Open()
'
' Макрос1 Макрос
'

'
ActiveWorkbook.Worksheets("ИЕПР").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ИЕПР").AutoFilter.Sort.SortFields.Add Key:=Range( _
"F11:F10011"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("ИЕПР").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
[/vba]

Автор - Елена1969
Дата добавления - 15.07.2020 в 15:58
Pelena Дата: Среда, 15.07.2020, 16:45 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16213
Репутация: 3516 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Елена1969, оформите код тегами с помощью кнопки # в режиме правки поста


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЕлена1969, оформите код тегами с помощью кнопки # в режиме правки поста

Автор - Pelena
Дата добавления - 15.07.2020 в 16:45
Елена1969 Дата: Среда, 15.07.2020, 16:49 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
В дополнение
Сейчас в книге при открытии происходит фильтрация столбца "F", хотя он пуст.
Надо, чтобы этого не происходило
 
Ответить
СообщениеВ дополнение
Сейчас в книге при открытии происходит фильтрация столбца "F", хотя он пуст.
Надо, чтобы этого не происходило

Автор - Елена1969
Дата добавления - 15.07.2020 в 16:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запустить макросом автофильтр в столбе, если есть данные (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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