ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó²×¤î°õ¦ævbaµ{¦¡

¦^´_ 1# mave
§ï¦¨³o¼Ë¡A­n°±¤î´N°õ¦æstop_next_b_process
  1. Private TimeToRun As Date

  2. Sub a_process()
  3.     TimeToRun = Now + TimeValue("00:00:02")
  4.     Application.OnTime TimeToRun, "b_process"
  5. End Sub

  6. Sub stop_next_b_process()
  7.     Application.OnTime TimeToRun, "b_process", , False
  8. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD