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

Вход

Регистрация

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

 

= Мир MS Excel/Критерий "не равно" в фильтре - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Критерий "не равно" в фильтре (Макросы/Sub)
Критерий "не равно" в фильтре
pabchek Дата: Вторник, 22.12.2015, 12:13 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 931
Репутация: 218 ±
Замечаний: 0% ±

Excel 2007
Всем привет!
Не соображу никак как задать критерий фильтра исключающий значения, содержащие текст из ячейки. Подскажите, плз.
В этом примере исключает значения которые не равны. Вставить звездочки не получается. Что не так?
[vba]
Код
Range("$A:$B").AutoFilter Field:=1, Criteria1:="<>" & Range("E2").Text
[/vba]
К сообщению приложен файл: 6827590.xlsm (14.2 Kb)

"Учиться, учиться и еще раз учиться!"
WM: R399923528092
 
Ответить
СообщениеВсем привет!
Не соображу никак как задать критерий фильтра исключающий значения, содержащие текст из ячейки. Подскажите, плз.
В этом примере исключает значения которые не равны. Вставить звездочки не получается. Что не так?
[vba]
Код
Range("$A:$B").AutoFilter Field:=1, Criteria1:="<>" & Range("E2").Text
[/vba]
Автор - pabchek
Дата добавления - 22.12.2015 в 12:13
SLAVICK Дата: Вторник, 22.12.2015, 12:16 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Так?
[vba]
Код
    Range("$A:$B").AutoFilter Field:=1, Criteria1:="<>*" & Range("E2").Text & "*"
[/vba]
К сообщению приложен файл: 9006890.xlsm (14.5 Kb)

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Вторник, 22.12.2015, 12:18
 
Ответить
СообщениеТак?
[vba]
Код
    Range("$A:$B").AutoFilter Field:=1, Criteria1:="<>*" & Range("E2").Text & "*"
[/vba]
Автор - SLAVICK
Дата добавления - 22.12.2015 в 12:16
pabchek Дата: Вторник, 22.12.2015, 12:21 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 931
Репутация: 218 ±
Замечаний: 0% ±

Excel 2007
Я тоже так думал, но у меня почемуто не вставляло последнюю звездочку. Подскажешь почему?

"Учиться, учиться и еще раз учиться!"
WM: R399923528092
 
Ответить
СообщениеЯ тоже так думал, но у меня почемуто не вставляло последнюю звездочку. Подскажешь почему?
Автор - pabchek
Дата добавления - 22.12.2015 в 12:21
SLAVICK Дата: Вторник, 22.12.2015, 12:27 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Цитата pabchek, 22.12.2015 в 12:21, в сообщении № 3
но у меня почемуто не вставляло последнюю звездочку.

Я же не видел попыток :D - мой пример сработал?
Может Вы пробовали * вставить без ""?

Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
Цитата pabchek, 22.12.2015 в 12:21, в сообщении № 3
но у меня почемуто не вставляло последнюю звездочку.

Я же не видел попыток :D - мой пример сработал?
Может Вы пробовали * вставить без ""?
Автор - SLAVICK
Дата добавления - 22.12.2015 в 12:27
_Boroda_ Дата: Вторник, 22.12.2015, 12:27 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16915
Репутация: 6617 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Попробуйте так
[vba]
Код
    a = "<>*" & Range("E2").Text & "*"
    Range("$A:$B").AutoFilter Field:=1, Criteria1:=a
[/vba]
Хотя не понятно - где не вставляет, что говорит при этом
Добавлено
Кстати, а зачем кнопка? Можно просто по выбору в ячейке запускать. См. файл
К сообщению приложен файл: 6827590_1.xlsm (14.7 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПопробуйте так
[vba]
Код
    a = "<>*" & Range("E2").Text & "*"
    Range("$A:$B").AutoFilter Field:=1, Criteria1:=a
[/vba]
Хотя не понятно - где не вставляет, что говорит при этом
Добавлено
Кстати, а зачем кнопка? Можно просто по выбору в ячейке запускать. См. файл
Автор - _Boroda_
Дата добавления - 22.12.2015 в 12:27
pabchek Дата: Вторник, 22.12.2015, 13:42 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 931
Репутация: 218 ±
Замечаний: 0% ±

Excel 2007
Вот что мне ругает

"Учиться, учиться и еще раз учиться!"
WM: R399923528092
 
Ответить
СообщениеВот что мне ругает
Автор - pabchek
Дата добавления - 22.12.2015 в 13:42
_Boroda_ Дата: Вторник, 22.12.2015, 13:47 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16915
Репутация: 6617 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
А пробелы где перед и после амперсанда?
У нас со Славиком как написано? И как у Вас?

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА пробелы где перед и после амперсанда?
У нас со Славиком как написано? И как у Вас?
Автор - _Boroda_
Дата добавления - 22.12.2015 в 13:47
pabchek Дата: Вторник, 22.12.2015, 13:51 | Сообщение № 8
Группа: Проверенные
Ранг: Ветеран
Сообщений: 931
Репутация: 218 ±
Замечаний: 0% ±

Excel 2007
Третий раз пишу, чегото ответы не вставляются... Если выскочат те, которые раньше писал - не обессудьте.
Да, я чайник, - куда писать пробелы еще не знаю))) Но он как бы раньше сам довставлял, но не в этот раз.
И да, Александр, Славик - ваши коды работают - то, что надо. Спасибо большое!

"Учиться, учиться и еще раз учиться!"
WM: R399923528092
 
Ответить
СообщениеТретий раз пишу, чегото ответы не вставляются... Если выскочат те, которые раньше писал - не обессудьте.
Да, я чайник, - куда писать пробелы еще не знаю))) Но он как бы раньше сам довставлял, но не в этот раз.
И да, Александр, Славик - ваши коды работают - то, что надо. Спасибо большое!
Автор - pabchek
Дата добавления - 22.12.2015 в 13:51
pabchek Дата: Вторник, 22.12.2015, 13:53 | Сообщение № 9
Группа: Проверенные
Ранг: Ветеран
Сообщений: 931
Репутация: 218 ±
Замечаний: 0% ±

Excel 2007
Цитата
Кстати, а зачем кнопка?

Это всего лишь часть кода, а до этого я делаю некоторые предварительные манипуляции. Кнопкой как бы фиксирую завершение

"Учиться, учиться и еще раз учиться!"
WM: R399923528092
 
Ответить
Сообщение
Цитата
Кстати, а зачем кнопка?

Это всего лишь часть кода, а до этого я делаю некоторые предварительные манипуляции. Кнопкой как бы фиксирую завершение
Автор - pabchek
Дата добавления - 22.12.2015 в 13:53
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Критерий "не равно" в фильтре (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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