SendKeys "{DOWN}" переходит на сроку, ActCellrow дает старую

[Burk]

Стоит автофильтр на Column, хотелось программно без перебора всех строк листа перейти на следующую отфильтрованную. Ставлю в программу оператор SendKeys "{DOWN}" - переходит, но следующий оператор [C5]=ActiveCell.Row выдает номер исходной строки, а не той, куда спустились. Более того, если после SendKeys поставить напр. MsgBox 1, то и на следующую фильтрованную не переходит. Кто знает в чем прикол? THANK's Burk

[Template]

Код: Выделить всё

SendKeys "{DOWN}"
DoEvents
MsgBox ActiveCell.Row

[Burk]

Премного благодарен!!! Только непонятно, почему в хЭлпе для sendkeys этого нет.
С глубоким уважением. Burk

[iGrok]

почему в хЭлпе для sendkeys этого нет

Потому что это никак не относится к SendKeys.

Просто до того, как получить какие-то результаты, нужно подождать, пока целевое приложение обработает переданные ему нажатия. Как раз подобным ожиданием, грубо говоря, и занимается DoEvents.

Но учти, что какие-то критичные алгоритмы на это лучше не завязывать, т.к. в условиях высокой нагрузки на систему этот код может повести себя совсем не так, как надо.

[Template]

На самом деле в справке усе есть, цитирую :

SendKeys string[, wait]

Синтаксис инструкции SendKeys содержит следующие именованные аргументы:

Элемент Описание
string Обязательный. Строковое выражение, указывающее набор нажатий клавиш, который следует передать.
wait Необязательный. Значение типа Boolean, указывающее режим ожидания. Если этот аргумент имеет значение False (значение по умолчанию), управление возвращается вызывающей процедуре сразу после завершения передачи нажатий клавиш. Если этот аргумент имеет значение True, управление возвращается вызывающей процедуре только после завершения обработки переданных нажатий клавиш.

То бишь, решить поставленную задачу, можно также следующим способом :

Код: Выделить всё

SendKeys "{DOWN}", True   
MsgBox ActiveCell.Row