Как в VBA использовать компонент Timer?

[Milevskiy]

Всем привет!
Поскажите, можно ли в VBA использовать компонент Timer?
В списке стандартных элементов его почему-то нет
И подключить к проекту не удается. Но очень нужно.

H-E-L-P !!!

Заранее благодарен.

[GSerg]

Приложение?

[uzer_@]

[alibek]

uzer_@, ты вопрос вообще читал?

Milevskiy, если VBA6 (есть AddressOf), то можно через API.
В противном случае, можно использовать методы приложения, если такие методы есть (для Excel это Application.OnTime), либо хитрить.

[Milevskiy]

Мне нужно, чтобы через определенные интервалы времени запускалась функция (интервалы очень короткие - порядка 10-100 мс.) При этом предполагается выполнение действий за пределами этой функции.
Если бы я делал это в обычном VB6 то просто кинул бы на форму таймер, и все. А вот как тут быть?

[alibek]

В третий раз. Какое приложение?

[Milevskiy]

З.Ы. У меня VBA6 (Excel).
Как это под ним реализовать?

[alibek]

Application.OnTime

[Milevskiy]

А как юзать этот "Application.OnTime"?
Где его в коде разместить и как правильно прописать?

Заранее благодарен.

[alibek]

В F1 все есть. Даже примеры.

[GSerg]

Не думаю, что ontime поможет на промежутках 10-100 мс.

Исходная задача в чём?

[Milevskiy]

Короче говоря, у меня в коде функция, подразделенная как бы на несколько частей. Для каждой из этих частей созданы публичные переменные типа "boolean".
В зависимости от состояния этих переменных срабатывают вот эти самые куски кода.
Значения переменных изменяются вне этой функции.
Вот мне и нужно, чобы эта самая функция через определенное время выполнялась и отслеживала состояние переменных.

[GSerg]

Рухнет сразу.


Поясни, что значит "изменяются вне этой функции".

[Milevskiy]

Вот пример моего кода:

Функция должна выполняться регулярно, через определенное время проверяя значения переменных.

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

Public SetLeft As Boolean
Public SelRight As Boolean
Public SetUp As Boolean
Public SelDown As Boolean

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

   If KeyCode = 37 Then SetLeft = True Else
   If KeyCode = 39 Then SelRight = True Else
   If KeyCode = 38 Then SetUp = True Elseы
   If KeyCode = 40 Then SelDown = True Else


  Call FFunction
End Sub

Private Sub UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

   If KeyCode = 37 Then SetLeft = False Else
   If KeyCode = 39 Then SelRight = False Else
   If KeyCode = 38 Then SetUp = False Else
   If KeyCode = 40 Then SelDown = False Else

Call FFunction

End Sub


Public Function FFunction()

   If SetUp = True Then
     ...
   Else
     ...
   End If

   If SetLeft = True Then
     ...
   Else
     ...
   End If


   If SelRight = True Then
     ...
   Else
     ...
   End If


End Function