Developing.ru

Доброго времени суток друзья
помогите плз с такой проблемой:
у меня есть экселевский файл с датами и временем определённых событий.пытаюсь написать код, чтобы при введении с клавиатуры даты и времени начала и конца подсчитать количество событий за определённый временной промежуток
вот код:
Sub test()

Dim dn, dk As Date
dn = InputBox("")
dk = InputBox("")
Selection.AutoFilter Field:=9, Criteria1:=dn, Operator:=xlOr, _
Criteria2:=dk

Range("o1").Select
ActiveCell.FormulaR1C1 = "кол-во"
Range("o2").Select
ActiveCell.FormulaR1C1 = "=count(r1c[-5]:r[-9500]c[-5])"

End Sub
проблема в том что количество ситает только общее, а не отфильтрованное, знаки н >,< не воспринимет фильтр (что как раз мне надо) и не могу приципить время к дате
помогите кто чем может
зы:если нужен файл, то могу прикрепить
заранее премного благодарен

kooleer писал(а): зы:если нужен файл, то могу прикрепить
заранее премного благодарен

Здравствуйте!
Да, файлик не помешал бы. Кто знает, что у Вас там.

вот выкладываю файлик
если появятся вопросы, отвечу

Нда...файлик ничего не прояснил. Ни одной надписи, что за данные и что с ними делать.
Как я понял, основная проблема в работе с автофильтром - задании критерия поиска и подсчет отфильтрованных строк.
Очень рекомендую посмотреть вот этот ресурс Автофильтр & Расширенный фильтр , думаю, Вы найдете там многие ответы.

Спасибо за ссылочку
но пытаюсь прописать так как там написано и выдаёт ошибку Runtime error '13' ((
я боюсь не правильно обьяснил в первом посте, что мне надо, попробую ещё раз:
1) написать код для фильтра, что бы фильтровал введёные с клавиатуры дату и время( например из файла: от 16.06.10 23:00 до 17.06.10 23:00)
2) что бы подсчитать количество отфильтрованных строк
я написал примечания в файле
посмотрите плз ещё раз

Если в Р2 записано время "от", в Р4 время "до", то количество событий за период Таблицу сократил - не прикреплялась.

Спасибо Вам большое, что откликнулись, но есть проблема:
у меня Ваша формула не работает, если пытаюсь менять исходные данные("от", "до"), просто копировать формулу, самому написать её, выдаёт ошибку - #ЧИСЛО!
Я так думаю, что это из-за того, что у меня версия экселя 2003, а у Вас более поздняя, хотя могу и ошибаться

блин так что же делать то????
HELP ME

СУММПРОИЗВ должна работать во всех версиях. Прикрепите свой файл с примерами ошибок.

Выкладываю файлик с пояснениями

Странно, у меня работает (2007). Неужели зависит от версии?
На всякий случай посмотрите в желтых ячейках: при копировании адреса ячеек "от" и "до" не должны меняться, т.е. либо поправлять вручную, либо применить абсолютную адресацию.