Пауза выполнения макроса

[artclon]

Помогите! мне неохбходимо в своем макросе включить функцию паузы
в секундах и десятых ее частях, дело в том что стандартные функции округляют до 0,5 в 0, а с 0,5 до 1 секунды. Измучился...

(вот код включения выключения ножек порта LPT, мне нужно меньше секунды)


If Cells(m, n).Value = 1 Then
DlPortWritePortUchar &H378, 64
End If
If Cells(m, n).Value = 2 Then
DlPortWritePortUchar &H378, 128
End If
Pausa = Val(Sheets("Лист1").TextBox3)
Application.Wait Time:=Now + TimeSerial(0, 0, Pausa)
DlPortWritePortUchar &H378, 0
Pausa1 = Val(Sheets("Лист1").TextBox4)
Application.Wait Time:=Now + TimeSerial(0, 0, Pausa)

ПОМОГИТЕ....

[The_Prist]

Вот самое интересное - Вам же сказали: методы OnTime и Wait не могут работать с интервалом менее секунды. Дали код меньшесекундный. А Вы никак не успокоитесь и очевидно думаете, что на другом форуме у людей Excel другой....

[sergiksergik]

не получится

[SAS888]

Вариант1:
Функция паузы:

Function Pauza(Tm As Double)
    vrm! = Timer
    Do While Timer - vrm! < Tm: DoEvents: Loop
End Function

Пример использования:

Sub Test1()
    Dim ss As Double: ss = Timer
    Pauza Val(Sheets("Лист1").TextBox3)
    MsgBox "Время паузы составило " & Timer - ss & " сек."
End Sub

Вариант2 (с помощью функции WinApi):
Объявление функции:

Private Declare Function GetTickCount Lib "kernel32" () As Long

Пример использования:

Sub Delay_Paus()
    MsgBox "Начнем?"
    Tm = Val(Sheets("Лист1").TextBox3) 'время задержки (в миллисекундах)
    ss = GetTickCount: DoEvents
    Do While GetTickCount - ss < Tm: DoEvents: Loop
    MsgBox "Конец."
End Sub