AdvancedFilter фильтр с условием "содержит"

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Niff-Nif

Дата: Пятница, 15.02.2013, 14:21 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 40% ±

Доброго времени суток,
Мне необходимо программно отфильтровать данные по столбцу где есть простые числа в ячейке, а есть ячейки со списком чисел где разделитель ";". Например "25; 34; 148".
Хочу список только тех значений где есть ";", для это в критерий пишу:
[vba]

Код

.Range("AF2").Formula = "=Y2=*;*"

[/vba]
выдает ошибку, пробовал так
[vba]

Код

.Range("AF2").Formula = "=Y2=" & Chr(43) & ";" & Chr(43)

[/vba]
все равно ошибка

Что я пишу не так?

Тема закрыта. Причина - нарушение п. 3 правил форума.

Ответить

_Boroda_

Дата: Пятница, 15.02.2013, 14:31 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

[vba]

Код

ActiveSheet.Range("$A$1:$A$6").AutoFilter Field:=1, Criteria1:="=*;*", Operator:=xlAnd

[/vba]

Цитата (Niff-Nif)

программно отфильтровать данные ... где есть ";"

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Niff-Nif

Дата: Пятница, 15.02.2013, 14:41 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 40% ±

Уважаемый Boroda,
Я как и Вы записал макрос и из него пытался создать код, но он не работает. Дело в том что у меня много условий для фильтрации, которые перечисляются через оператор "И". Все условия без "содержит" работают нормально, а сним засада.
Вот код без условия "содержит :"
[vba]

Код

.Range("AF2").Formula = "=and(U2>=" & CLng(.Range("A4").Value) & ", U2<=" & CLng(.Range("B4").Value) & ", X2=" & Chr(34) & "да" & Chr(34) & ")"

[/vba]а вот тот же код но с условием "сожержит ;"[vba]

Код

.Range("AF2").Formula = "=and(U2>=" & CLng(.Range("A4").Value) & ", Y2=*;*" & ", U2<=" & CLng(.Range("B4").Value) & ", X2=" & Chr(34) & "да" & Chr(34) & ")"

[/vba]

Сообщение отредактировал Niff-Nif - Пятница, 15.02.2013, 14:42

Ответить

Niff-Nif

Дата: Пятница, 15.02.2013, 14:45 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 40% ±

Сейчас-то что не так?

Ответить

AdvancedFilter фильтр с условием "содержит"

Страница 1 из 1
1