Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с AutoFilter / 5 сообщений из 5, страница 1 из 1
14.01.2007, 15:50
    #34254169
Katerina Iv
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с AutoFilter
Добрый день

Возникла проблема.
Идея – по активному столбцу фильтр отбирает значения, равные значению активной ячейки.
На столбец «форматом ячеек» установлено «число десятичных знаков» - два.

Selection.AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell.Value

Если значение активной ячейки не имеет два десятичный знак после запятой (например, 2,50) – то фильтр ничего не находит
если два десятичных знака есть (2,55) – все находит. Что надо изменить?

В идеале, если фильтр будет отбирать все значения, равные целому числу активной ячейки, без учета десятичных - например, значение активной ячейки = 2,12; фильтр должен отобрать все значения от 2,00 до 2,99

Заранее спасибо
...
Рейтинг: 0 / 0
15.01.2007, 09:40
    #34254746
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с AutoFilter
Katerina Iv

В идеале, если фильтр будет отбирать все значения, равные целому числу активной ячейки, без учета десятичных - например, значение активной ячейки = 2,12; фильтр должен отобрать все значения от 2,00 до 2,99

Заранее спасибо
Код: plaintext
1.
    Selection.AutoFilter Field:= 1 , Criteria1:=">=" & Fix(ActiveCell.Value), Operator:=xlAnd, _
        Criteria2:="<" & Fix(ActiveCell.Value) +  1 
...
Рейтинг: 0 / 0
15.01.2007, 23:20
    #34257199
Katerina Iv
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с AutoFilter
не оч. поняла...
именно в таком варианте не хочет "фильтровать"
...
Рейтинг: 0 / 0
16.01.2007, 10:04
    #34257651
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с AutoFilter
Katerina Ivне оч. поняла...
именно в таком варианте не хочет "фильтровать"
Код: plaintext
1.
Selection.AutoFilter Field:=ActiveCell.Column, Criteria1:=">=" & Fix(ActiveCell.Value), Operator:=xlAnd, _
        Criteria2:="<" & Fix(ActiveCell.Value) +  1 
...
Рейтинг: 0 / 0
16.01.2007, 20:55
    #34260022
Katerina Iv
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с AutoFilter
Спасибо, ГУРУ )
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа с AutoFilter / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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