VPF::Фильтрация в Excel с несколькими критериям

swetik1981

Дата 4.11.2012, 14:29 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 20.12.2007

Репутация: нет
Всего: нет

В одном из листов книги Excel содержатся данные, третий столбец которых содержит значения дат.
Необходимо через VBA задать фильтрацию данных таким образом, чтобы были выбраны все строки, в которых дата в третьем столбце имеет значение между определёнными датами (скажем между 05.01.2012 и 25.01.2012) , либо не содержит никакого значения.
Напрашивается что-то вроде:

Код


ActiveSheet.Cells.AutoFilter Field:=3, Criteria1:=">=01/05/2012", Operator:=xlAnd, Criteria2:="<=05/25/2012", Operator:=xlOr, Criteria3:="="

Но на третий критерий VBA выдаёт ошибку. Что можно тут сделать?

dorogoyIV

Дата 4.11.2012, 15:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1503
Регистрация: 26.3.2007

Репутация: 4
Всего: 46

Цитата(swetik1981 @ 4.11.2012, 14:29

)

код Visual Basic1:ActiveSheet.Cells.AutoFilter Field:=3, Criteria1:=">=01/05/2012", Operator:=xlAnd, Criteria2:="<=05/25/2012", Operator:=xlOr, Criteria3:="="

ну это же совсем неправильно smile

в Excel есть справка:

Цитата

Filter.Criteria1 Property
Returns the first filtered value for the specified column in a filtered range. Read-only Variant.
Syntax
expression.Criteria1
expression   A variable that represents a Filter object.
Example
The following example sets a variable to the value of the Criteria1 property of the filter for the first column in the filtered range on the Crew worksheet.

Visual Basic for Applications
With Worksheets("Crew")
    If .AutoFilterMode Then
        With .AutoFilter.Filters(1)
            If .On Then c1 = .Criteria1
        End With
    End If
End With

swetik1981

Дата 4.11.2012, 22:19 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 20.12.2007

Репутация: нет
Всего: нет

Цитата(dorogoyIV @ 4.11.2012, 15:58

)

в Excel есть справка:

Каким образом приведённый Вами пример позволяет фильтровать данные по трём критериям??

dorogoyIV

Дата 5.11.2012, 08:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1503
Регистрация: 26.3.2007

Репутация: 4
Всего: 46

нет такого параметра - Criteria3

Код


Sub DateFilter()
 Dim dFirst As Date, dLast As Date
 dFirst = DateValue("05/01/2012")
 dLast = DateValue("25/01/2012")
 
 For i = 1 To 31
    If (Cells(i, 3) < dFirst Or Cells(i, 3) > dLast) And Cells(i, 3) <> "" Then
        Rows(i).Hidden = True
    End If
 Next i
End Sub

Private Function UnhideRows()
 For i = 1 To 31
    Rows(i).Hidden = False
 Next i
End Function

FINANSIST

Дата 6.11.2012, 10:56 (ссылка)

(нет голосов)

Загрузка ...

Статус: Жив

Профиль
Группа: Участник
Сообщений: 526
Регистрация: 11.4.2008
Где: Москва

Репутация: 13
Всего: 23

swetik1981, "расширенный фильтр" в помощь!

--------------------

“...Брали корову рыжую одну, отдавать будем корову рыжую одну, чтобы не нарушать отчетности”
Эдуард Успенский, “Каникулы в Простоквашино”

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »