Sub hallo()
Application.OnTime Now + TimeValue("00:00:01"), "hallo"
MsgBox "hallo"
End Sub
OnTime ???????
Здравствуйте, подскажите пожалуйста!Не работает Application.OnTime
Код UpdateClock, приведенный ниже работае только один раз, после нажатия кнопки и не работает затем каждую секунду, как должна????
Private Sub CommandButton2_Click()
UpdateClock
End Sub
________________________________________________________________
Sub UpdateClock()
TextBox1.Text = NextTick
NextTick = Now + TimeValue("00:00:01")
Application.OnTime NextTick, "UpdateClock"
End Sub
Код UpdateClock, приведенный ниже работае только один раз, после нажатия кнопки и не работает затем каждую секунду, как должна????
Private Sub CommandButton2_Click()
UpdateClock
End Sub
________________________________________________________________
Sub UpdateClock()
TextBox1.Text = NextTick
NextTick = Now + TimeValue("00:00:01")
Application.OnTime NextTick, "UpdateClock"
End Sub
Не знаю, может у тебя чо-то с NextTick напутано? Что за тип переменной.
Вот, у меня все работает:
Вот, у меня все работает:
Код:
я её и как Date и как Variant объявлял - результат один
Когда програму по шагам запускаю, на строке
Application.OnTime NextTick, "UpdateClock"
пишет что не может найти макрос UpdateClock
Когда програму по шагам запускаю, на строке
Application.OnTime NextTick, "UpdateClock"
пишет что не может найти макрос UpdateClock
Ты где свой метод-то хранишь? В модуле формы?:D
1) Создаешь новую форму в событии CommandButton1_Click пишешь:
2) Создаешь новый модуль(если он у тебя еще не создан) и в нем пишешь:
1) Создаешь новую форму в событии CommandButton1_Click пишешь:
Код:
Private Sub CommandButton1_Click()
onTime
End Sub
onTime
End Sub
2) Создаешь новый модуль(если он у тебя еще не создан) и в нем пишешь:
Код:
Public Sub onTime()
Dim NextTick As Date
NextTick = Now + TimeValue("00:00:01")
UserForm1.TextBox1.Text = CStr(NextTick)
Application.onTime NextTick, "onTime"
End Sub
Dim NextTick As Date
NextTick = Now + TimeValue("00:00:01")
UserForm1.TextBox1.Text = CStr(NextTick)
Application.onTime NextTick, "onTime"
End Sub
да, я уже знаю, проблема именно в этом была :)))) теперь работает!!!
Спасибо большое за помощь, вы мне очень помогли
Спасибо большое за помощь, вы мне очень помогли