Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проблема с Application.Wait / 8 сообщений из 8, страница 1 из 1
18.10.2006, 07:27:12
    #34062215
Neznayka
Neznayka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Application.Wait
Помогите пожалуйста!
Мне нужно сделать задержку в Excel на 0.1 или 0.2 секунды,
команда типа Application.Wait (Now + TimeValue("0:00:01 ")) делает
задержку не менее 1 сек, а мне нужно меньше.
Может есть какие-то другие команды или соображения по этому поводу??
Жду советов!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2006, 07:55:18
    #34062235
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Application.Wait
API?
Например функция Sleep:
Код: plaintext
1.
2.
3.
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Wait
      Sleep  100 
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2006, 08:13:55
    #34062249
Neznayka
Neznayka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Application.Wait
попробовал, но я что-то не почувствовал, чтобы была какая-то задержка
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2006, 08:41:56
    #34062267
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Application.Wait
Увеличьте значение
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2006, 08:55:15
    #34062289
Neznayka
Neznayka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Application.Wait
так ставил и Sleep 1000, 10000,1000000 - все равно проскакивает незаметно,
не видно никакой задержки
Может я что-то не то делаю?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2006, 11:11:23
    #34062668
Neznayka
Neznayka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Application.Wait
Наверно ты прав. У соседа на компе все работает как надо.
Спасибо!!
Только теперь надо мне разобраться что у меня с офисом творится..
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2006, 13:48:33
    #34063430
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Application.Wait
Скорее виноват не офис а комп. Прога на паскале использующая временные промежутки у меня на разных компах работает по разному. Хотя милисекунды везде должны быть одинаковые :-)


Рыба ищет-где глубже, человек-где больше рыбы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 12:27:48
    #34076546
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с Application.Wait
1. Использовать пустой цикл.

2. Что-то типа

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Public Sub Waiting()
    Dim sngStart As Single
    Dim sngFinish As Single
    Dim sngTime As Single
    
    sngStart = Timer
    sngTime = Timer +  1  /  5 
    
    Do While sngTime > Timer
        DoEvents
    Loop
    
    sngFinish = Timer
    
    MsgBox "Пауза на: " & (sngFinish - sngStart)
End Sub

3. Использовать WinAPI функцию Sleep, как уже подсказали.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проблема с Application.Wait / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 334ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2184086]:
 0ms
get settings:
 6ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 47ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 222ms
total:  334ms
x
x
Закрыть


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