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

¸Ó¦p¦ó¨ú®ø¥¨¶°???

¦^´_ 1# color790
¥i¸Ô¬ÝVBA »¡©ú:  OnTime¤èªk
  1. Option Explicit
  2. Dim S As Date
  3. Sub abc()
  4.     S = Now + 0.0001   '®É¶¡
  5.     Application.OnTime S, "ddd"
  6. End Sub
  7. Sub ddd()
  8.     MsgBox "AAA"
  9.     Beep
  10. End Sub
  11. Sub OnTime_Cancel()  'S ®É¶¡¤§«e ¨ú®øµ{¦¡
  12.     Application.OnTime S, "ddd", , False
  13. End Sub
½Æ»s¥N½X

TOP

¦^´_ 7# color790
°õ¦æ UserForm1 ¬Ý¬Ý

TOP

¦^´_ 9# color790
­«·s¤U¸ü¬Ý¬Ý

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD