Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не работает автофильтр / 4 сообщений из 4, страница 1 из 1
06.10.2009, 10:31
    #36234400
Ezhek
Ezhek
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает автофильтр
Доброе время суток!
Почему когда я устанавливаю условия автофильтра на несколько столбцов, ни одной строки не показывает???
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub af()
If ActiveSheet.AutoFilterMode Then
ActiveSheet.AutoFilterMode = False
End If
With ActiveSheet.Range("a1")
.AutoFilter  1 , ">3", xlAnd, "<30"
.AutoFilter  2 , ">06.01.2009", xlAnd, "<26.01.2009"
.AutoFilter  3 , "90"
End With
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.11.2009, 14:58
    #36312702
Djon Player
Djon Player
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает автофильтр
Попробовал ваш код, выяснил, что проблема связана с неправильной обработкой даты.
Долго бился, перекопал интернет, по слухам проблема связанна с русской версией Excel, в английской должно работать нормально.


В русской же версии эту проблему можно решить так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub af()
 Dim t As Long
 If ActiveSheet.AutoFilterMode Then
 ActiveSheet.AutoFilterMode = False
 End If
 
 With ActiveSheet.Range("a1")
   .AutoFilter  1 , ">3", xlAnd, "<30"
   .AutoFilter  2 , ">" & Str(CDbl(CDate("06.01.2009"))), xlAnd, "<" & Str(CDbl(CDate("26.01.2009")))
   .AutoFilter  3 , "90"
 End With
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.11.2009, 15:17
    #36312759
Djon Player
Djon Player
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает автофильтр
Что-то не нахожу кнопок отредактировать своё собщение, а так-же удалить.
Подскажите, можно ли это вобще сделать в принципе.

В предыдущем коде функцию str оказалось можно не использовать, код слегка сократился:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub af()
 Dim t As Long
 If ActiveSheet.AutoFilterMode Then
  ActiveSheet.AutoFilterMode = False
 End If
 
 With ActiveSheet.Range("a1")
   .AutoFilter  1 , ">3", xlAnd, "<30"
   .AutoFilter  2 , ">" & CDbl(CDate("06.01.2009")), xlAnd, "<" & CDbl(CDate("26.01.2009"))
   .AutoFilter  3 , "90"
 End With
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.11.2009, 15:35
    #36312801
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает автофильтр
> Автор: Djon Player

Редактировать и удалять могут только модераторы.
Все остальные действуют по принципу:
"Что написанно пером, не вырубишь и топором"

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не работает автофильтр / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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