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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос .Autofilter при запуске не повторяет записанного - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос .Autofilter при запуске не повторяет записанного (Макросы/Sub)
Макрос .Autofilter при запуске не повторяет записанного
wirstein Дата: Вторник, 15.08.2017, 13:32 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Вопрос рассматривается еще и тут Планета Эксель

Доброго дня. Передо мной стоит тривиальная задача, через VBA проводить фильтрацию по полю дат в таблице. Я просто записал макрос и он получился такой вот.

ActiveSheet.ListObjects("Table_fees").Range.AutoFilter Field:=4, Criteria1:=">=11.01.2016", Operator:=xlAnd, Criteria2:="<=01.10.2017"

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

Я пробовал переделывать скрипт в таком вот виде. Но это тоже не помогло.
ActiveSheet.ListObjects("Table_fees").Range.AutoFilter Field:=4, Criteria1:=">=" & DateValue("01/11/2016"), Operator:=xlAnd, Criteria2:="<=" & DateValue("01/10/2017")

При этом основная задача запустить этот макрос из ACCESS VBA, где в самых разных вариациях его запуска я вижу Error 1004, AutoFilter method of range class failed
.ActiveSheet.ListObjects("Table_fees").Range.Select
.Selection.AutoFilter Field:=4, Criteria1:=">=12.04.2016", Operator:=xlAnd, Criteria2:="<=11.01.2017"

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

На стадии экселя вопрос был решен через функцию Формат Criteria1:=">=" & Format("11.04.2016", "#####"), Operator:=xlAnd, Criteria2:="<=" & Format("10.04.2017", "#####")

На стадии access VBA так и не решен, как избежать ошибки и как таки заставить открытый воркбук аутофильтровать? Это основная задача. Т.е. я отлично открываю действующий файл, заменяю в нем конкретные поля и даже целые колонки, но при попытке длать аутофильтр - вылетает ошибка, далее файл отлично "сохраняется как..." Но фильтр - это практически основная задача.
К сообщению приложен файл: quarter23.xlsx (21.7 Kb)


Сообщение отредактировал wirstein - Вторник, 15.08.2017, 16:28
 
Ответить
СообщениеВопрос рассматривается еще и тут Планета Эксель

Доброго дня. Передо мной стоит тривиальная задача, через VBA проводить фильтрацию по полю дат в таблице. Я просто записал макрос и он получился такой вот.

ActiveSheet.ListObjects("Table_fees").Range.AutoFilter Field:=4, Criteria1:=">=11.01.2016", Operator:=xlAnd, Criteria2:="<=01.10.2017"

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

Я пробовал переделывать скрипт в таком вот виде. Но это тоже не помогло.
ActiveSheet.ListObjects("Table_fees").Range.AutoFilter Field:=4, Criteria1:=">=" & DateValue("01/11/2016"), Operator:=xlAnd, Criteria2:="<=" & DateValue("01/10/2017")

При этом основная задача запустить этот макрос из ACCESS VBA, где в самых разных вариациях его запуска я вижу Error 1004, AutoFilter method of range class failed
.ActiveSheet.ListObjects("Table_fees").Range.Select
.Selection.AutoFilter Field:=4, Criteria1:=">=12.04.2016", Operator:=xlAnd, Criteria2:="<=11.01.2017"

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

На стадии экселя вопрос был решен через функцию Формат Criteria1:=">=" & Format("11.04.2016", "#####"), Operator:=xlAnd, Criteria2:="<=" & Format("10.04.2017", "#####")

На стадии access VBA так и не решен, как избежать ошибки и как таки заставить открытый воркбук аутофильтровать? Это основная задача. Т.е. я отлично открываю действующий файл, заменяю в нем конкретные поля и даже целые колонки, но при попытке длать аутофильтр - вылетает ошибка, далее файл отлично "сохраняется как..." Но фильтр - это практически основная задача.

Автор - wirstein
Дата добавления - 15.08.2017 в 13:32
китин Дата: Вторник, 15.08.2017, 13:35 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение Как оформлять сообщения?

Автор - китин
Дата добавления - 15.08.2017 в 13:35
KuklP Дата: Вторник, 15.08.2017, 15:54 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеКросс:
http://www.planetaexcel.ru/forum....ystviya

Автор - KuklP
Дата добавления - 15.08.2017 в 15:54
wirstein Дата: Вторник, 15.08.2017, 16:03 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - wirstein
Дата добавления - 15.08.2017 в 16:03
китин Дата: Вторник, 15.08.2017, 16:08 | Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Ответов я пока ни тут ни там не вижу

а знаете почему? потому что правила читать надо. сделаете все по правилам и вам обязательно помогут.
[p.s.]про кросс постинг в правилах тоже сказано


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение
Ответов я пока ни тут ни там не вижу

а знаете почему? потому что правила читать надо. сделаете все по правилам и вам обязательно помогут.
[p.s.]про кросс постинг в правилах тоже сказано

Автор - китин
Дата добавления - 15.08.2017 в 16:08
wirstein Дата: Вторник, 15.08.2017, 16:33 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Игорь, доброго вам дня и хорошего настроения. Так точно, надо читать правила, не кушать сахар, соленое и жареное и не курить в общественных местах, правда социальная и прочая статистика свидетельствует о прямо противоположном поведении представителей нашего с вами вида, что ставит под сомнение эффективность подхода вообще. Как следствие - я не читал правила, и сделал пост опираясь на интуитивный подход, весьма принятый в 99.9% населения и почти всех на этом форуме кроме модераторов.

Помощь мне нужна срочно, посему готов оплатить желающему его время и опыт. Тинькофф приветствуется.
О форуме где рассматривается эта задача параллельно - указал в шапке.


Сообщение отредактировал wirstein - Вторник, 15.08.2017, 16:36
 
Ответить
СообщениеИгорь, доброго вам дня и хорошего настроения. Так точно, надо читать правила, не кушать сахар, соленое и жареное и не курить в общественных местах, правда социальная и прочая статистика свидетельствует о прямо противоположном поведении представителей нашего с вами вида, что ставит под сомнение эффективность подхода вообще. Как следствие - я не читал правила, и сделал пост опираясь на интуитивный подход, весьма принятый в 99.9% населения и почти всех на этом форуме кроме модераторов.

Помощь мне нужна срочно, посему готов оплатить желающему его время и опыт. Тинькофф приветствуется.
О форуме где рассматривается эта задача параллельно - указал в шапке.

Автор - wirstein
Дата добавления - 15.08.2017 в 16:33
_Boroda_ Дата: Вторник, 15.08.2017, 16:47 | Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16674
Репутация: 6479 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
wirstein, выбирайте:
1. Вы оформляете свой первый пост согласно Правилам форума и мы продолжаем обсуждение здесь;
2. я переношу тему в ветку "Фриланс";
3. я закрываю тему.


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщениеwirstein, выбирайте:
1. Вы оформляете свой первый пост согласно Правилам форума и мы продолжаем обсуждение здесь;
2. я переношу тему в ветку "Фриланс";
3. я закрываю тему.

Автор - _Boroda_
Дата добавления - 15.08.2017 в 16:47
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос .Autofilter при запуске не повторяет записанного (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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