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

Вход

Регистрация

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

 

= Мир MS Excel/Фильтр макросом с условием - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Фильтр макросом с условием
MaNika Дата: Понедельник, 11.02.2013, 12:06 | Сообщение № 1
Группа: Гости
Добрый день!

В файле создан фильтр на столбец и создан макрос, который указан для кнопки. Вопрос - как указать условие что при выборе пункта "Все" - марос должен снять всю фильтрацию со столбца.

П.С. Через запись макроса я могу сделать запись действия "Снять фильтра", но у меня получается отдельный макрос который я могу лишь добавить к другой кнопке.. А вот совместить в одном - не могу uhm

Заранее спасибо!
 
Ответить
СообщениеДобрый день!

В файле создан фильтр на столбец и создан макрос, который указан для кнопки. Вопрос - как указать условие что при выборе пункта "Все" - марос должен снять всю фильтрацию со столбца.

П.С. Через запись макроса я могу сделать запись действия "Снять фильтра", но у меня получается отдельный макрос который я могу лишь добавить к другой кнопке.. А вот совместить в одном - не могу uhm

Заранее спасибо!

Автор - MaNika
Дата добавления - 11.02.2013 в 12:06
MaNika Дата: Понедельник, 11.02.2013, 12:09 | Сообщение № 2
Группа: Гости
Забыла добавить файл!!
А как его добавить??! sad
 
Ответить
СообщениеЗабыла добавить файл!!
А как его добавить??! sad

Автор - MaNika
Дата добавления - 11.02.2013 в 12:09
MaNika Дата: Понедельник, 11.02.2013, 12:15 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Файл во вложении
К сообщению приложен файл: 5342931.xlsm (17.2 Kb)
 
Ответить
СообщениеФайл во вложении

Автор - MaNika
Дата добавления - 11.02.2013 в 12:15
Матраскин Дата: Понедельник, 11.02.2013, 12:22 | Сообщение № 4
Группа: Друзья
Ранг: Обитатель
Сообщений: 375
Репутация: 81 ±
Замечаний: 0% ±

20xx
MaNika,
[vba]
Код
    If (Range("F4") = "Все") Then
          ActiveSheet.ListObjects("Таблица1").Range.AutoFilter Field:=1
      End If
[/vba]
К сообщению приложен файл: 2590331.xlsm (18.5 Kb)


в интернете опять кто-то не прав

Сообщение отредактировал Матраскин - Понедельник, 11.02.2013, 12:23
 
Ответить
СообщениеMaNika,
[vba]
Код
    If (Range("F4") = "Все") Then
          ActiveSheet.ListObjects("Таблица1").Range.AutoFilter Field:=1
      End If
[/vba]

Автор - Матраскин
Дата добавления - 11.02.2013 в 12:22
MaNika Дата: Понедельник, 11.02.2013, 12:28 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Матраскин, спасибо большое respect
 
Ответить
СообщениеМатраскин, спасибо большое respect

Автор - MaNika
Дата добавления - 11.02.2013 в 12:28
  • Страница 1 из 1
  • 1
Поиск:

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