╨д╤Г╨╜╨║╤Ж╨╕╤П ╨╛╨╢╨╕╨┤╨░╨╜╨╕╤П VBA

╨д╤Г╨╜╨║╤Ж╨╕╤П ╨╛╨╢╨╕╨┤╨░╨╜╨╕╤П Excel VBA

VBA ╨Я╨╛╨┤╨╛╨╢╨┤╨╕╤В╨╡ ╤Н╤В╨╛ ╨▓╤Б╤В╤А╨╛╨╡╨╜╨╜╨░╤П ╤Д╤Г╨╜╨║╤Ж╨╕╤П ╨┤╨╗╤П ╨┐╤А╨╕╨╛╤Б╤В╨░╨╜╨╛╨▓╨║╨╕ ╨▓╤Л╨┐╨╛╨╗╨╜╨╡╨╜╨╕╤П ╨║╨╛╨┤╨░ ╨╜╨░ ╤Г╨║╨░╨╖╨░╨╜╨╜╨╛╨╡ ╨▓╤А╨╡╨╝╤П. ╨н╤В╨╛ ╨╛╤З╨╡╨╜╤М ╨┐╨╛╤Е╨╛╨╢╨╡ ╨╜╨░ ╤В╨╛, ╤З╤В╨╛ ╨╝╤Л ╨┤╨╡╨╗╨░╨╡╨╝ ╨▓ ╨║╨╛╨╝╨░╨╜╨┤╨╡ Sleep. ╨з╤В╨╛╨▒╤Л ╨┐╤А╨╕╨╛╤Б╤В╨░╨╜╨╛╨▓╨╕╤В╤М ╨║╨╛╨┤, ╨╝╤Л ╨╕╤Б╨┐╨╛╨╗╤М╨╖╤Г╨╡╨╝ ╨╝╨╡╤В╨╛╨┤ Application.Wait.

╨Э╨╡╨║╨╛╤В╨╛╤А╤Л╨╝ ╨║╨╛╨┤╨░╨╝ ╤В╤А╨╡╨▒╤Г╨╡╤В╤Б╤П ╨╜╨╡╨║╨╛╤В╨╛╤А╨╛╨╡ ╨▓╤А╨╡╨╝╤П, ╨┐╤А╨╡╨╢╨┤╨╡ ╤З╨╡╨╝ ╨┐╨╡╤А╨╡╨╣╤В╨╕ ╨║ ╤Б╨╗╨╡╨┤╤Г╤О╤Й╨╡╨╣ ╤Б╤В╤А╨╛╨║╨╡ ╨║╨╛╨┤╨░ ╨╕╨╖-╨╖╨░ ╨▓╤Л╨┐╨╛╨╗╨╜╨╡╨╜╨╕╤П ╨┤╤А╤Г╨│╨╕╤Е ╨╖╨░╨┤╨░╤З. ╨Т ╤Н╤В╨╕╤Е ╤Б╨╗╤Г╤З╨░╤П╤Е ╨╜╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╨╛╤Б╤В╨░╨╜╨╛╨▓╨╕╤В╤М ╨▓╤Л╨┐╨╛╨╗╨╜╨╡╨╜╨╕╨╡ ╨║╨╛╨┤╨░, ╤Б╨┤╨╡╨╗╨░╤В╤М ╨┐╨░╤Г╨╖╤Г ╨╜╨░ ╨╜╨╡╨║╨╛╤В╨╛╤А╨╛╨╡ ╨▓╤А╨╡╨╝╤П, ╨░ ╨╖╨░╤В╨╡╨╝ ╨┐╤А╨╛╨┤╨╛╨╗╨╢╨╕╤В╤М ╨▓╤Л╨┐╨╛╨╗╨╜╨╡╨╜╨╕╨╡. ╨Ь╤Л ╨╝╨╛╨╢╨╡╨╝ ╨┐╤А╨╕╨╛╤Б╤В╨░╨╜╨╛╨▓╨╕╤В╤М ╨▓╤Л╨┐╨╛╨╗╨╜╨╡╨╜╨╕╨╡ ╨║╨╛╨┤╨░ ╨┤╨▓╤Г╨╝╤П ╤Б╨┐╨╛╤Б╨╛╨▒╨░╨╝╨╕: ╨╝╨╡╤В╨╛╨┤╨╛╨╝ ╤Б╨╜╨░ ╨╕ ╨╝╨╡╤В╨╛╨┤╨╛╨╝ ╨╛╨╢╨╕╨┤╨░╨╜╨╕╤П. ╨Т ╨╜╨░╤И╨╡╨╣ ╨┐╤А╨╡╨┤╤Л╨┤╤Г╤Й╨╡╨╣ ╤Б╤В╨░╤В╤М╨╡ ╨╛╨▒╤Б╤Г╨╢╨┤╨░╨╗╨╛╤Б╤М, ╤З╤В╨╛ ┬лVBA SleepVBA SleepVBA Sleep тАФ ╤Н╤В╨╛ ╤Д╤Г╨╜╨║╤Ж╨╕╤П Windows, ╨┐╤А╨╕╤Б╤Г╤В╤Б╤В╨▓╤Г╤О╤Й╨░╤П ╨▓ ╤Д╨░╨╣╨╗╨░╤Е DLL Windows, ╨║╨╛╤В╨╛╤А╨░╤П ╨┐╤А╨╕╨╛╤Б╤В╨░╨╜╨░╨▓╨╗╨╕╨▓╨░╨╡╤В ╨▓╤Л╨┐╨╛╨╗╨╜╨╡╨╜╨╕╨╡ ╨┐╤А╨╛╨│╤А╨░╨╝╨╝╤Л ╨╜╨░ ╨╛╨┐╤А╨╡╨┤╨╡╨╗╨╡╨╜╨╜╤Л╨╣ ╨┐╨╡╤А╨╕╨╛╨┤ ╨▓╤А╨╡╨╝╨╡╨╜╨╕ (╨┤╨░╨╢╨╡ ╨▓ ╨╝╨╕╨╗╨╗╨╕╤Б╨╡╨║╤Г╨╜╨┤╨░╤Е). ╨Я╨╛╨┤╤А╨╛╨▒╨╜╨╡╨╡┬╗ ╨┤╨╗╤П ╨┐╤А╨╕╨╛╤Б╤В╨░╨╜╨╛╨▓╨║╨╕ ╨║╨╛╨┤╨░ VBA. Pause The VBA CodeVBA ╨Я╨░╤Г╨╖╨░ ╨┐╨╛╨╝╨╛╨│╨░╨╡╤В ╨┐╤А╨╕╨╛╤Б╤В╨░╨╜╨╛╨▓╨╕╤В╤М ╨▓╤Л╨┐╨╛╨╗╨╜╨╡╨╜╨╕╨╡ ╨║╨╛╨┤╨░ ╨╜╨░ ╨╛╨┐╤А╨╡╨┤╨╡╨╗╨╡╨╜╨╜╤Л╨╣ ╨┐╨╡╤А╨╕╨╛╨┤. ╨Т╤Л ╨╝╨╛╨╢╨╡╤В╨╡ ╨┐╤А╨╕╨╛╤Б╤В╨░╨╜╨╛╨▓╨╕╤В╤М ╨║╨╛╨┤ VBA ╨╜╨░ ╨╛╨┐╤А╨╡╨┤╨╡╨╗╨╡╨╜╨╜╤Л╨╣ ╨┐╨╡╤А╨╕╨╛╨┤, ╨╕╤Б╨┐╨╛╨╗╤М╨╖╤Г╤П ╨┤╨▓╨╡ ╤Д╤Г╨╜╨║╤Ж╨╕╨╕: ┬л╨Ц╨┤╨░╤В╤М┬╗ ╨╕ ┬л╨б╨╛╨╜┬╗. ╨Я╨╛╨┤╤А╨╛╨▒╨╜╨╡╨╡.

╨Ю╨│╨╗╨░╨▓╨╗╨╡╨╜╨╕╨╡

• ╨д╤Г╨╜╨║╤Ж╨╕╤П ╨╛╨╢╨╕╨┤╨░╨╜╨╕╤П Excel VBA
  • ╨Я╤А╨╕╨╝╨╡╤А╤Л ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╨╜╨╕╤П ╤Д╤Г╨╜╨║╤Ж╨╕╨╕ ╨╛╨╢╨╕╨┤╨░╨╜╨╕╤П Excel VBA
    • ╨Я╤А╨╕╨╝╨╡╤А тДЦ1
    • ╨Я╤А╨╕╨╝╨╡╤А #2
  • VBA Sleep ╨┐╤А╨╛╤В╨╕╨▓ VBA ╨Ю╨╢╨╕╨┤╨░╨╜╨╕╨╡
  • ╨а╨╡╨║╨╛╨╝╨╡╨╜╨┤╤Г╨╡╨╝╤Л╨╡ ╤Б╤В╨░╤В╤М╨╕

┬л╨Я╨╛╨┤╨╛╨╢╨┤╨╕╤В╨╡┬╗, ╨║╨░╨║ ╤Б╨╗╨╡╨┤╤Г╨╡╤В ╨╕╨╖ ╨╜╨░╨╖╨▓╨░╨╜╨╕╤П, ╨▒╤Г╨┤╨╡╤В ╤Г╨┤╨╡╤А╨╢╨╕╨▓╨░╤В╤М ╨║╨╛╨┤ ╨╝╨░╨║╤А╨╛╤Б╨░, ╨║╨╛╤В╨╛╤А╤Л╨╣ ╨┤╨╛╨╗╨╢╨╡╨╜ ╨▒╤Л╤В╤М ╨▓╤Л╨┐╨╛╨╗╨╜╨╡╨╜ ╨┤╨╛ ╤Г╨║╨░╨╖╨░╨╜╨╜╨╛╨│╨╛ ╨┐╨╡╤А╨╕╨╛╨┤╨░ ╨▓╤А╨╡╨╝╨╡╨╜╨╕. ╨Ш╤Б╨┐╨╛╨╗╤М╨╖╤Г╤П ╤Н╤В╨╛╤В ╨╝╨╡╤В╨╛╨┤, ╨╜╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╤Г╨║╨░╨╖╨░╤В╤М, ╨║╨╛╨│╨┤╨░ ╨╜╨░╤И ╨║╨╛╨┤ ╨┤╨╛╨╗╨╢╨╡╨╜ ╨┐╤А╨╕╨╛╤Б╤В╨░╨╜╨░╨▓╨╗╨╕╨▓╨░╤В╤М╤Б╤П. ╨Ф╨░╨╗╨╡╨╡ ╨╝╤Л ╤Г╨▓╨╕╨┤╨╕╨╝ ╨┐╤А╨╕╨╝╨╡╤А╤Л.

╨б╨╕╨╜╤В╨░╨║╤Б╨╕╤Б ╤Д╤Г╨╜╨║╤Ж╨╕╨╕ WAIT ╤Б╨╗╨╡╨┤╤Г╤О╤Й╨╕╨╣.

╨Э╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╤Г╨║╨░╨╖╨░╤В╤М ╨║╨╛╨╗╨╕╤З╨╡╤Б╤В╨▓╨╛ ╨▓╤А╨╡╨╝╨╡╨╜╨╕, ╨╜╨░ ╨║╨╛╤В╨╛╤А╨╛╨╡ ╨╜╨░╤И ╨║╨╛╨┤ ╨┤╨╛╨╗╨╢╨╡╨╜ ╨┐╤А╨╕╨╛╤Б╤В╨░╨╜╨╛╨▓╨╕╤В╤М╤Б╤П. ╨Ъ╨░╨║ ╨▓╨╕╨┤╨╕╤В╨╡, ╨▓ ╨║╨╛╨╜╤Ж╨╡ ╨╜╨░╨┐╨╕╤Б╨░╨╜╨╛ Boolean. ╨н╤В╨╛ ╨╛╨╖╨╜╨░╤З╨░╨╡╤В, ╤З╤В╨╛ ╨╛╨╜ ╨▓╨╛╨╖╨▓╤А╨░╤Й╨░╨╡╤В ╤А╨╡╨╖╤Г╨╗╤М╤В╨░╤В ╨▓ ╨▓╨╕╨┤╨╡ ╨╗╨╛╨│╨╕╤З╨╡╤Б╨║╨╕╤Е ╨╖╨╜╨░╤З╨╡╨╜╨╕╨╣: TRUE ╨╕╨╗╨╕ FALSE.

╨Я╨╛╨║╨░ ╨╜╨╡ ╨╜╨░╤Б╤В╤Г╨┐╨╕╤В ╤Г╨║╨░╨╖╨░╨╜╨╜╨╛╨╡ ╨▓╤А╨╡╨╝╤П, ╨╛╨╜ ╨│╨╛╨▓╨╛╤А╨╕╤В FALSE. ╨Т ╤В╨╛╤В ╨╝╨╛╨╝╨╡╨╜╤В, ╨║╨╛╨│╨┤╨░ ╨╜╨░╤Б╤В╤Г╨┐╨░╨╡╤В ╤Г╨║╨░╨╖╨░╨╜╨╜╨╛╨╡ ╨▓╤А╨╡╨╝╤П, ╨╛╨╜ ╨▓╨╛╨╖╨▓╤А╨░╤Й╨░╨╡╤В TRUE.

╨н╤В╨╛ ╨╜╨╡ ╨┐╨╛╤Е╨╛╨╢╨╡ ╨╜╨░ ╤Д╤Г╨╜╨║╤Ж╨╕╤О SLEEP, ╨┐╨╛╤В╨╛╨╝╤Г ╤З╤В╨╛ WAIT тАФ ╤Н╤В╨╛ ╨▓╤Б╤В╤А╨╛╨╡╨╜╨╜╨░╤П ╤Д╤Г╨╜╨║╤Ж╨╕╤П, ╨│╨┤╨╡ SLEEP тАФ ╤Н╤В╨╛ ╤Д╤Г╨╜╨║╤Ж╨╕╤П Windows. ╨Ш╤В╨░╨║, ╨┐╤А╨╡╨╢╨┤╨╡ ╤З╨╡╨╝ ╨╝╤Л ╨┐╨╛╨╗╤Г╤З╨╕╨╝ ╨┤╨╛╤Б╤В╤Г╨┐ ╨║ ╤Д╤Г╨╜╨║╤Ж╨╕╨╕ SLEEP, ╨╜╨░╨╝ ╨╜╤Г╨╢╨╜╨╛ ╤Г╨┐╨╛╨╝╤П╨╜╤Г╤В╤М ╨║╨╛╨┤ ╨╜╨╕╨╢╨╡ ╨▓ ╨▓╨╡╤А╤Е╨╜╨╡╨╣ ╤З╨░╤Б╤В╨╕ ╨╝╨╛╨┤╤Г╨╗╤П. ╨Э╨╛ WAIT ╤Н╤В╨╛╨│╨╛ ╨╜╨╡ ╤В╤А╨╡╨▒╤Г╨╡╤В.

╨Ъ╨╛╨┤:

#If VBA7 Then Public Declare Sub Sleep Lib PtrSafe «kernel32» (ByVal dwMilliseconds As LongPtr) ‘╨Ф╨╗╤П 64-╨▒╨╕╤В╨╜╤Л╤Е ╤Б╨╕╤Б╤В╨╡╨╝ #Else Public Declare Sub Sleep Lib «kernel32» (ByVal dwMilliseconds As Long) ‘╨Ф╨╗╤П 32-╨▒╨╕╤В╨╜╤Л╤Е ╤Б╨╕╤Б╤В╨╡╨╝ End If

╨Я╤А╨╕╨╝╨╡╤А╤Л ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╨╜╨╕╤П ╤Д╤Г╨╜╨║╤Ж╨╕╨╕ ╨╛╨╢╨╕╨┤╨░╨╜╨╕╤П Excel VBA

.free_excel_div{╤Д╨╛╨╜:#d9d9d9;╤А╨░╨╖╨╝╨╡╤А ╤И╤А╨╕╤Д╤В╨░:16px;╤А╨░╨┤╨╕╤Г╤Б ╨│╤А╨░╨╜╨╕╤Ж╤Л:7px;╨┐╨╛╨╖╨╕╤Ж╨╕╤П:╨╛╤В╨╜╨╛╤Б╨╕╤В╨╡╨╗╤М╨╜╨░╤П;margin:30px;padding:25px 25px 25px 45px}.free_excel_div:before{content:»»;╤Д╨╛╨╜:url(╤Ж╨╡╨╜╤В╤А ╤Ж╨╡╨╜╤В╤А ╨▒╨╡╨╖ ╨┐╨╛╨▓╤В╨╛╤А╨░ #207245;╤И╨╕╤А╨╕╨╜╨░:70px;╨▓╤Л╤Б╨╛╤В╨░:70px;╨┐╨╛╨╖╨╕╤Ж╨╕╤П:╨░╨▒╤Б╨╛╨╗╤О╤В╨╜╨░╤П;╨▓╨╡╤А╤Е:50%;margin-top:-35px;╤Б╨╗╨╡╨▓╨░:-35px;╨│╤А╨░╨╜╨╕╤Ж╨░:5px ╤Б╨┐╨╗╨╛╤И╨╜╨░╤П #fff;╨│╤А╨░╨╜╨╕╤Ж╨░-╤А╨░╨┤╨╕╤Г╤Б:50%} ╨Т╤Л ╨╝╨╛╨╢╨╡╤В╨╡ ╤Б╨║╨░╤З╨░╤В╤М ╤Н╤В╨╛╤В ╤И╨░╨▒╨╗╨╛╨╜ VBA Wait Excel ╨╖╨┤╨╡╤Б╤М тАФ ╨и╨░╨▒╨╗╨╛╨╜ Excel ╨╛╨╢╨╕╨┤╨░╨╜╨╕╤П VBA

╨Я╤А╨╕╨╝╨╡╤А тДЦ1

╨Я╤А╨╡╨┤╨┐╨╛╨╗╨╛╨╢╨╕╨╝, ╨▓╤Л ╤А╨░╨▒╨╛╤В╨░╨╡╤В╨╡ ╨▓ Excel ╨▓ ╨┐╨╛╨╗╨┤╨╡╨╜╤М ╨▓ 14:30:00. ╨Т╤Л ╤Е╨╛╤В╨╕╤В╨╡, ╤З╤В╨╛╨▒╤Л ╨▓╨░╤И ╨║╨╛╨┤ ╨┐╤А╨╕╨╛╤Б╤В╨░╨╜╨░╨▓╨╗╨╕╨▓╨░╨╗╤Б╤П ╨┤╨╛ ╤В╨╡╤Е ╨┐╨╛╤А, ╨┐╨╛╨║╨░ ╨▓╤А╨╡╨╝╤П ╨╜╨╡ ╤Б╤В╨░╨╜╨╡╤В 14:40:00. ╨Т╤Л ╨╝╨╛╨╢╨╡╤В╨╡ ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╤М ╨┐╤А╨╕╨▓╨╡╨┤╨╡╨╜╨╜╤Л╨╣ ╨╜╨╕╨╢╨╡ ╨║╨╛╨┤.

╨Ъ╨╛╨┤:

Sub Wait_Example1() Application.Wait «14:40:00» End Sub

╨Ъ╨╛╨┤ ╨╛╤Б╤В╨░╨╜╨╛╨▓╨╕╤В ╤А╨░╨▒╨╛╤В╤Г ╨▓╨░╤И╨╡╨│╨╛ Excel ╨┤╨╛ ╤В╨╡╤Е ╨┐╨╛╤А, ╨┐╨╛╨║╨░ ╨▓╤А╨╡╨╝╤П ╨╜╨╡ ╨┤╨╛╤Б╤В╨╕╨│╨╜╨╡╤В 14:40:00 ╨▓ ╨▓╨░╤И╨╡╨╣ ╨╛╨┐╨╡╤А╨░╤Ж╨╕╨╛╨╜╨╜╨╛╨╣ ╤Б╨╕╤Б╤В╨╡╨╝╨╡. ╨Я╤А╨╡╨┤╨╛╤Б╤В╨░╨▓╨╗╨╡╨╜╨╕╨╡ ╤В╨░╨║╨╛╨│╨╛ ╨▓╤А╨╡╨╝╨╡╨╜╨╕ ╨╛╨┐╨░╤Б╨╜╨╛, ╨┐╨╛╤В╨╛╨╝╤Г ╤З╤В╨╛ ╨╝╤Л ╨╜╨╡ ╨▓╤Б╨╡╨│╨┤╨░ ╤А╨░╨▒╨╛╤В╨░╨╡╨╝ ╤Б 14:30:00. ╨Ю╨╜ ╨▓╤Б╨╡ ╨▓╤А╨╡╨╝╤П ╨╝╨╡╨╜╤П╨╡╤В╤Б╤П.

╨б╨║╨░╨╢╨╡╨╝, ╨▓╤Б╤П╨║╨╕╨╣ ╤А╨░╨╖, ╨║╨╛╨│╨┤╨░ ╨▓╤Л ╨╖╨░╨┐╤Г╤Б╨║╨░╨╡╤В╨╡ ╨║╨╛╨┤. ╨Т╤Л ╤Е╨╛╤В╨╕╤В╨╡ ╨┐╨╛╨┤╨╛╨╢╨┤╨░╤В╤М 2 ╨╝╨╕╨╜╤Г╤В╤Л. ╨Ъ╨░╨║ ╨▓╤Л ╤Б╤Б╤Л╨╗╨░╨╡╤В╨╡╤Б╤М ╨╜╨░ ╤Н╤В╨╛ ╨▓ ╤Б╨▓╨╛╨╡╨╝ ╨║╨╛╨┤╨╡?

╨Ш╤В╨░╨║, ╨╝╤Л ╨╝╨╛╨╢╨╡╨╝ ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╤М VBA NOWVBA NOWNOW тАФ ╤Н╤В╨╛ ╤Д╤Г╨╜╨║╤Ж╨╕╤П ╨┤╨░╤В╤Л ╨╕ ╨▓╤А╨╡╨╝╨╡╨╜╨╕ ╨▓ VBA, ╨║╨╛╤В╨╛╤А╨░╤П ╨╕╤Б╨┐╨╛╨╗╤М╨╖╤Г╨╡╤В╤Б╤П ╨┤╨╗╤П ╨┐╨╛╨╗╤Г╤З╨╡╨╜╨╕╤П ╤В╨╡╨║╤Г╤Й╨╡╨╣ ╤Б╨╕╤Б╤В╨╡╨╝╨╜╨╛╨╣ ╨┤╨░╤В╤Л ╨╕ ╨▓╤А╨╡╨╝╨╡╨╜╨╕. ╨д╤Г╨╜╨║╤Ж╨╕╤П VBA Now ╨╜╨╡ ╨┐╤А╨╕╨╜╨╕╨╝╨░╨╡╤В ╨╜╨╕╨║╨░╨║╨╕╤Е ╨░╤А╨│╤Г╨╝╨╡╨╜╤В╨╛╨▓, ╨╕ ╨▓╨╛╨╖╨▓╤А╨░╤Й╨░╨╡╨╝╤Л╨╝ ╤А╨╡╨╖╤Г╨╗╤М╤В╨░╤В╨╛╨╝ ╨┤╨╗╤П ╤Н╤В╨╛╨╣ ╤Д╤Г╨╜╨║╤Ж╨╕╨╕ ╤П╨▓╨╗╤П╨╡╤В╤Б╤П ╤Д╤Г╨╜╨║╤Ж╨╕╤П date.read more ╤Б ╤Д╤Г╨╜╨║╤Ж╨╕╨╡╨╣ TIME VALUE ╨┤╨╗╤П ╨▓╨▓╨╛╨┤╨░ ╤Г╨║╨░╨╖╨░╨╜╨╜╨╛╨│╨╛ ╨▓╤А╨╡╨╝╨╡╨╜╨╕ ╨╕╨╖ ╤В╨╡╨║╤Г╤Й╨╡╨│╨╛ ╨▓╤А╨╡╨╝╨╡╨╜╨╕.

╨д╤Г╨╜╨║╤Ж╨╕╤П NOW () ╨▓╨╛╨╖╨▓╤А╨░╤Й╨░╨╡╤В ╤В╨╡╨║╤Г╤Й╤Г╤О ╨┤╨░╤В╤Г ╨╕ ╨▓╤А╨╡╨╝╤П ╨┤╨╗╤П ╨▓╨░╤И╨╡╨╣ ╨║╨╛╨╝╨┐╤М╤О╤В╨╡╤А╨╜╨╛╨╣ ╤Б╨╕╤Б╤В╨╡╨╝╤Л. ╨д╤Г╨╜╨║╤Ж╨╕╤П TIMEVALUE ╨┐╤А╨╡╨┤╤Б╤В╨░╨▓╨╗╤П╨╡╤В ╨▓╤А╨╡╨╝╤П ╤Б 00:00:00 ╨┤╨╛ 23:59:59, ╤В.╨╡. 23:59:59 ╨▓ 24-╤З╨░╤Б╨╛╨▓╨╛╨╝ ╤Д╨╛╤А╨╝╨░╤В╨╡. ╨Ю╨╜ ╨┐╤А╨╡╨╛╨▒╤А╨░╨╖╤Г╨╡╤В ╤Б╤В╤А╨╛╨║╨╛╨▓╨╛╨╡ ╨╖╨╜╨░╤З╨╡╨╜╨╕╨╡ ╨▓ ╨╖╨╜╨░╤З╨╡╨╜╨╕╨╡ ╨▓╤А╨╡╨╝╨╡╨╜╨╕.

╨Э╨░╨┐╤А╨╕╨╝╨╡╤А, NOW () + TIMEVALUE (00:02:30) ╨╛╨╖╨╜╨░╤З╨░╨╡╤В ╤В╨╡╨║╤Г╤Й╨╡╨╡ ╨▓╤А╨╡╨╝╤П + 2 ╨╝╨╕╨╜╤Г╤В╤Л 30 ╤Б╨╡╨║╤Г╨╜╨┤.

╨Х╤Б╨╗╨╕ ╤В╨╡╨║╤Г╤Й╨╡╨╡ ╨▓╤А╨╡╨╝╤П 14:25:30, ╨╛╨╜╨╛ ╤Б╤В╨░╨╜╨╛╨▓╨╕╤В╤Б╤П 14:28:00.

╨Т╤Л ╨╝╨╛╨╢╨╡╤В╨╡ ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╤М ╨┐╤А╨╕╨▓╨╡╨┤╨╡╨╜╨╜╤Л╨╣ ╨╜╨╕╨╢╨╡ ╨║╨╛╨┤, ╤З╤В╨╛╨▒╤Л ╨╛╤Б╤В╨░╨╜╨╛╨▓╨╕╤В╤М ╨▓╤Л╨┐╨╛╨╗╨╜╨╡╨╜╨╕╨╡ ╨▓╨░╤И╨╡╨│╨╛ ╨║╨╛╨┤╨░ ╤Б ╤В╨╡╨║╤Г╤Й╨╡╨│╨╛ ╨▓╤А╨╡╨╝╨╡╨╜╨╕ ╨┤╨╛ ╤Б╨╗╨╡╨┤╤Г╤О╤Й╨╕╤Е 10 ╨╝╨╕╨╜╤Г╤В.

╨Ъ╨╛╨┤:

Sub Wait_Example2() Application.Wait (Now() + TimeValue(«00:10:00»)) End Sub

╨Т╨░╨╢╨╜╨╛ ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╤М ╤Д╤Г╨╜╨║╤Ж╨╕╤О ╨б╨Х╨Щ╨з╨Р╨б () ╨┤╨╗╤П ╤В╨╛╤З╨╜╤Л╤Е ╨┐╨░╤Г╨╖. ╨Т ╨┐╤А╨╛╤В╨╕╨▓╨╜╨╛╨╝ ╤Б╨╗╤Г╤З╨░╨╡ ╨╡╤Б╤В╤М ╨▓╨╡╤А╨╛╤П╤В╨╜╨╛╤Б╤В╤М, ╤З╤В╨╛ ╨▓╨░╤И╨░ ╨║╨╜╨╕╨│╨░ Excel ╨▒╤Г╨┤╨╡╤В ╨┐╤А╨╕╨╛╤Б╤В╨░╨╜╨╛╨▓╨╗╨╡╨╜╨░ тАЛтАЛтАЛтАЛ╨┤╨╛ ╨┐╨╛╨╗╤Г╨╜╨╛╤З╨╕. ╨Ю╨┤╨╜╨░╨║╨╛ ╨╝╤Л ╨╝╨╛╨╢╨╡╨╝ ╨▓╤Л╨╣╤В╨╕ ╨╕╨╖ ╨╝╨╡╤В╨╛╨┤╨░ ╨┐╨░╤Г╨╖╤Л ╨▓ ╨╗╤О╨▒╨╛╨╣ ╨╝╨╛╨╝╨╡╨╜╤В ╨▓╤А╨╡╨╝╨╡╨╜╨╕, ╨╜╨░╨╢╨░╨▓ ╨║╨╜╨╛╨┐╨║╤Г Esc ╨║╨╗╤О╤З ╨╕╨╗╨╕ ╨а╨░╨╖╨▒╨╕╤В╤М ╨║╨╗╤О╤З.

╨Я╤А╨╕╨╝╨╡╤А #2

╨Я╨╛╨┤╨╛╨╢╨┤╨╕╤В╨╡ 10 ╤Б╨╡╨║╤Г╨╜╨┤ ╨║╨░╨╢╨┤╤Л╨╣ ╤А╨░╨╖, ╨║╨╛╨│╨┤╨░ ╤Ж╨╕╨║╨╗ ╨╖╨░╨┐╤Г╤Б╨║╨░╨╡╤В╤Б╤П

╨Ь╨╛╨╢╨╜╨╛ ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╤М ╨╝╨╡╤В╨╛╨┤ ╨╛╨╢╨╕╨┤╨░╨╜╨╕╤П ╤Б ╤Ж╨╕╨║╨╗╨░╨╝╨╕. ╨Ю╨┤╨╜╨░╨║╨╛ ╨▒╤Л╨▓╨░╤О╤В ╤Б╨╕╤В╤Г╨░╤Ж╨╕╨╕, ╨║╨╛╨│╨┤╨░ ╨▓╨░╨╝ ╨╝╨╛╨╢╨╡╤В ╨┐╨╛╤В╤А╨╡╨▒╨╛╨▓╨░╤В╤М╤Б╤П ╨┐╨╛╨┤╨╛╨╢╨┤╨░╤В╤М 10 ╤Б╨╡╨║╤Г╨╜╨┤ ╨║╨░╨╢╨┤╤Л╨╣ ╤А╨░╨╖, ╨║╨╛╨│╨┤╨░ ╤Ж╨╕╨║╨╗ ╨╖╨░╨┐╤Г╤Б╨║╨░╨╡╤В╤Б╤П. ╨Э╨░╨┐╤А╨╕╨╝╨╡╤А, ╨┐╨╛╤Б╨╝╨╛╤В╤А╨╕╤В╨╡ ╨╜╨░ ╨┤╨░╨╜╨╜╤Л╨╡ ╨╜╨╕╨╢╨╡.

╨з╤В╨╛╨▒╤Л ╤А╨░╤Б╤Б╤З╨╕╤В╨░╤В╤М ╨Я╤А╨╕╨▒╤Л╨╗╤М = (╨Я╤А╨╛╨┤╨░╨╢╨╕ — ╨б╤В╨╛╨╕╨╝╨╛╤Б╤В╤М), ╨▓╤Л ╤Е╨╛╤В╨╕╤В╨╡ ╤Б╨╛╨╖╨┤╨░╤В╤М ╤Ж╨╕╨║╨╗, ╨╕ ╨┐╨╛╤Б╨╗╨╡ ╨║╨░╨╢╨┤╨╛╨│╨╛ ╤Ж╨╕╨║╨╗╨░ ╨▓╤Л ╤Е╨╛╤В╨╕╤В╨╡ ╨┐╨╛╨┤╨╛╨╢╨┤╨░╤В╤М 10 ╤Б╨╡╨║╤Г╨╜╨┤, ╤З╤В╨╛╨▒╤Л ╨┐╤А╨╛╨▓╨╡╤А╨╕╤В╤М, ╤П╨▓╨╗╤П╨╡╤В╤Б╤П ╨╗╨╕ ╤А╨╡╨╖╤Г╨╗╤М╤В╨░╤В ╤В╨╛╤З╨╜╤Л╨╝ ╨╕╨╗╨╕ ╨╜╨╡╤В. ╨Я╤А╨╕╨▓╨╡╨┤╨╡╨╜╨╜╤Л╨╣ ╨╜╨╕╨╢╨╡ ╨║╨╛╨┤ ╤Б╨┤╨╡╨╗╨░╨╡╤В ╤Н╤В╨╛.

╨Ъ╨╛╨┤:

Sub Wait_Example3() Dim k As Integer For k = 2тАУ9 Cells(k, 4).Value = Cells(k, 2) — Cells(k, 3) Application.Wait (Now() + TimeValue(«00:00) :10»)) Next k End Sub

╨н╤В╨╛╤В ╨║╨╛╨┤ ╨▒╤Г╨┤╨╡╤В ╨▓╤Л╤З╨╕╤Б╨╗╤П╤В╤М ╤Б╤В╨╛╨╗╨▒╨╡╤Ж ╨┐╤А╨╕╨▒╤Л╨╗╨╕ ╨┐╨╛╤Б╤В╤А╨╛╤З╨╜╨╛. ╨Я╨╛╤Б╨╗╨╡ ╨╖╨░╨▓╨╡╤А╤И╨╡╨╜╨╕╤П ╨┐╨╡╤А╨▓╨╛╨╣ ╤Б╤В╤А╨╛╨║╨╕ ╨╛╨╜ ╨▒╤Г╨┤╨╡╤В ╨╢╨┤╨░╤В╤М 10 ╤Б╨╡╨║╤Г╨╜╨┤ ╨┐╨╡╤А╨╡╨┤ ╨▓╤Л╤З╨╕╤Б╨╗╨╡╨╜╨╕╨╡╨╝ ╤Б╨╗╨╡╨┤╤Г╤О╤Й╨╡╨╣ ╤Б╤В╤А╨╛╨║╨╕.

VBA Sleep ╨┐╤А╨╛╤В╨╕╨▓ VBA ╨Ю╨╢╨╕╨┤╨░╨╜╨╕╨╡

╨Т╨С╨Р ╨б╨Ю╨Э╨Я╨Ю╨Ф╨Ю╨Ц╨Ф╨Ш╨в╨Х VBA╨н╤В╨╛ ╨╜╨╡ ╨▓╤Б╤В╤А╨╛╨╡╨╜╨╜╨░╤П ╤Д╤Г╨╜╨║╤Ж╨╕╤П VBA. ╨Ф╨╗╤П ╨┤╨╛╤Б╤В╤Г╨┐╨░ ╨║ ╤Н╤В╨╛╨╣ ╤Д╤Г╨╜╨║╤Ж╨╕╨╕ ╤В╤А╨╡╨▒╤Г╨╡╤В╤Б╤П ╤Б╨┐╨╡╤Ж╨╕╨░╨╗╤М╨╜╤Л╨╣ ╨║╨╛╨┤. ╨н╤В╨╛ ╨▓╤Б╤В╤А╨╛╨╡╨╜╨╜╨░╤П ╤Д╤Г╨╜╨║╤Ж╨╕╤П VBA, ╨╕ ╨┤╨╗╤П ╨┤╨╛╤Б╤В╤Г╨┐╨░ ╨║ ╤Н╤В╨╛╨╣ ╤Д╤Г╨╜╨║╤Ж╨╕╨╕ ╨╜╨╡ ╤В╤А╨╡╨▒╤Г╨╡╤В╤Б╤П ╨╜╨╕╨║╨░╨║╨╛╨│╨╛ ╤Б╨┐╨╡╤Ж╨╕╨░╨╗╤М╨╜╨╛╨│╨╛ ╨║╨╛╨┤╨░. ╨Ф╨╗╤П ╤Б╨╜╨░ ╤В╤А╨╡╨▒╤Г╤О╤В╤Б╤П ╨╝╨╕╨╗╨╗╨╕╤Б╨╡╨║╤Г╨╜╨┤╤Л ╨▓ ╨║╨░╤З╨╡╤Б╤В╨▓╨╡ ╨▓╤А╨╡╨╝╨╡╨╜╨╜╤Л╤Е ╤А╨░╨╝╨╛╨║. ╨Ф╨╗╤П ╨╛╨╢╨╕╨┤╨░╨╜╨╕╤П ╤В╤А╨╡╨▒╤Г╤О╤В╤Б╤П ╨╛╨▒╤Л╤З╨╜╤Л╨╡ ╨▓╤А╨╡╨╝╨╡╨╜╨╜╤Л╨╡ ╤А╨░╨╝╨║╨╕. ╨║╨╛╨┤ ╨▓ ╨╝╨╕╨╗╨╗╨╕╤Б╨╡╨║╤Г╨╜╨┤╨░╤Е. ╨Ь╤Л ╨╝╨╛╨╢╨╡╨╝ ╨╖╨░╨┤╨╡╤А╨╢╨╕╨▓╨░╤В╤М ╤В╨╛╨╗╤М╨║╨╛ ╤Ж╨╡╨╗╤Л╨╡ ╤Б╨╡╨║╤Г╨╜╨┤╤Л.

╨а╨╡╨║╨╛╨╝╨╡╨╜╨┤╤Г╨╡╨╝╤Л╨╡ ╤Б╤В╨░╤В╤М╨╕

╨н╤В╨░ ╤Б╤В╨░╤В╤М╤П ╨▒╤Л╨╗╨░ ╤А╤Г╨║╨╛╨▓╨╛╨┤╤Б╤В╨▓╨╛╨╝ ╨┐╨╛ ╤Д╤Г╨╜╨║╤Ж╨╕╨╕ ╨╛╨╢╨╕╨┤╨░╨╜╨╕╤П VBA. ╨Ч╨┤╨╡╤Б╤М ╨╝╤Л ╨╛╨▒╤Б╤Г╨┤╨╕╨╝, ╨║╨░╨║ ╨╕╤Б╨┐╨╛╨╗╤М╨╖╨╛╨▓╨░╤В╤М ╨╝╨╡╤В╨╛╨┤ Wait ╨┤╨╗╤П ╨┐╤А╨╕╨╛╤Б╤В╨░╨╜╨╛╨▓╨║╨╕ ╨▓╤Л╨┐╨╛╨╗╨╜╨╡╨╜╨╕╤П ╨║╨╛╨┤╨░ ╤Б ╨┐╨╛╨╝╨╛╤Й╤М╤О ╨┐╤А╨░╨║╤В╨╕╤З╨╡╤Б╨║╨╕╤Е ╨┐╤А╨╕╨╝╨╡╤А╨╛╨▓ ╨╕ ╨╖╨░╨│╤А╤Г╨╢╨░╨╡╨╝╤Л╤Е ╨╗╨╕╤Б╤В╨╛╨▓ Excel. ╨Т╤Л ╨╝╨╛╨╢╨╡╤В╨╡ ╤Г╨╖╨╜╨░╤В╤М ╨▒╨╛╨╗╤М╤И╨╡ ╨╛ VBA ╨╕╨╖ ╤Б╨╗╨╡╨┤╤Г╤О╤Й╨╕╤Е ╤Б╤В╨░╤В╨╡╨╣:

• ╨Я╨╡╤А╨╡╤Б╨╡╤З╨╡╨╜╨╕╨╡ VBA
• ╨а╨░╨╖╨┤╨╡╨╗╨╕╤В╤М ╤Д╤Г╨╜╨║╤Ж╨╕╤О ╨▓ VBA
• ╨Ю╨┐╨╡╤А╨░╤В╨╛╤А╤Л ╨▓ VBA