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

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

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

¥»©«³Ì«á¥Ñ mave ©ó 2016-6-7 11:31 ½s¿è

¦U¦ì¤j¤j¦n

¤p§Ì¦b¾Ç²ßvba®É¡A
¼g¤F¤@¤p¬q·|¦Û¤v¤@ª½­«½Æ°õ¦æªºµ{¦¡½X,
¦p¤U¹Ï©Ò¥Ü¡A¨C¹j¨â¬í·|¦b¦P¤@Äæ¦ì¤@ª½©¹¤U¤@­ÓÏeÀx¦s®æ¶ñ¤J¼Æ¦r¡A¤@ª½­«½Æ°Ê§@¡C


±o¨ìªºµ²ªG¹³³o¼Ë:


¦ý¬O¡A­Y¤p§Ì·Q­n¦b¼g¥t¥~¤@­Óµ{¦¡½X¡A¥i¥H²×¤î°õ¦æ¤¤ªºµ{¦¡¡A
¨Ò¦p:  exit sub a_process

¦ü¥G¬O¤£³Q»P³\ªº¡A¤p§Ì©Ò¾Ç¤£¨¬¡A
¬O§_¥i¥H½Ð±Ð¦U¦ì¤j¤j¡AÀ³¸Ó¦p¦ó¤~¯à²×¤îµ{¦¡½X°õ¦æ©O?

¦^´_ 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 : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD