ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Есть ли фильтр?
10 сообщений из 10, страница 1 из 1
Есть ли фильтр?
    #36158650
Andreevna
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andreevna
Гость
Здравствуйте!
У меня в макросе есть такая строчка ActiveSheet.ShowAllData. Она выдает ошибку, если на листе фильтры все раскрыты.
Подскажите, как исправить.
Думаю, примерно так:
if ActiveSheet.свойство отображения фильтра = false then ActiveSheet.ShowAllData , только вот не знаю какое свойство нужно...
...
Рейтинг: 0 / 0
23.08.2009, 14:42
| Ответить | Цитировать | Написать  
Есть ли фильтр?
    #36158653
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub test()
    'Проверяем есть ли фильтр
    If ActiveSheet.AutoFilterMode Then
        'Проверяем применен ли фильтр
        If ActiveSheet.AutoFilter.FilterMode Then Me.ShowAllData
    End If
End Sub
...
Рейтинг: 0 / 0
23.08.2009, 14:59
| Ответить | Цитировать | Написать  
Есть ли фильтр?
    #36158895
Andreevna
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andreevna
Гость
KL (XL)
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub test()
    'Проверяем есть ли фильтр
    If ActiveSheet.AutoFilterMode Then
        'Проверяем применен ли фильтр
        If ActiveSheet.AutoFilter.FilterMode Then Me.ShowAllData
    End If
End Sub
Спасибо за ответ.
А что делает ActiveSheet.AutoFilter.FilterMode? У меня дальше макрос неправильно выполняется.
...
Рейтинг: 0 / 0
23.08.2009, 19:36
| Ответить | Цитировать | Написать  
Есть ли фильтр?
    #36158905
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Andreevna У меня дальше макрос неправильно выполняется.
Что означает "неправильно выполняется"?
...
Рейтинг: 0 / 0
23.08.2009, 19:43
| Ответить | Цитировать | Написать  
Есть ли фильтр?
    #36158910
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Вероятно, выскакивает ошибка из-за того, что я по невнимательности не везде заменил Me на ActiveSheet :-)


Код: plaintext
1.
2.
3.
4.
5.
6.
Sub test()
    With ActiveSheet
        If .AutoFilterMode Then
            If .AutoFilter.FilterMode Then .ShowAllData
        End If
    End With
End Sub
...
Рейтинг: 0 / 0
23.08.2009, 19:47
| Ответить | Цитировать | Написать  
Есть ли фильтр?
    #36158941
Andreevna
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andreevna
Гость
KL (XL)Вероятно, выскакивает ошибка из-за того, что я по невнимательности не везде заменил Me на ActiveSheet :-)


Код: plaintext
1.
2.
3.
4.
5.
6.
Sub test()
    With ActiveSheet
        If .AutoFilterMode Then
            If .AutoFilter.FilterMode Then .ShowAllData
        End If
    End With
End Sub
Ошибка "Object doesn't support this property or method" Run=time error '438'
...
Рейтинг: 0 / 0
23.08.2009, 20:45
| Ответить | Цитировать | Написать  
Есть ли фильтр?
    #36158943
Andreevna
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andreevna
Гость
- этими штуками хотела выделить строку, в которой ошибка.
...
Рейтинг: 0 / 0
23.08.2009, 20:46
| Ответить | Цитировать | Написать  
Есть ли фильтр?
    #36159003
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Andreevna - этими штуками хотела выделить строку, в которой ошибка.
Кажется, назрела необходимость задать вопрос на миллион :-) У вас какая версия Office?
...
Рейтинг: 0 / 0
23.08.2009, 22:46
| Ответить | Цитировать | Написать  
Есть ли фильтр?
    #36159065
nporaMep
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nporaMep
Гость
немного коряво, но я обхожу так :)
on error resume next
activesheet.showalldata
err.clear
on error goto 0
...
Рейтинг: 0 / 0
24.08.2009, 00:11
| Ответить | Цитировать | Написать  
Есть ли фильтр?
    #36159351
ZVI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ZVI
Участник
Код: plaintext
1.
2.
3.
Sub Test()
  If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub
...
Рейтинг: 0 / 0
24.08.2009, 10:53
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Есть ли фильтр?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&gotonew=1&tid=2179146]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 179ms
get topic data:
 10ms
get first new msg:
 5ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 208ms
total:  464ms
созд. / загр.: 464ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]