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

«ü©w®É¶¡.°õ¦æ¥¨¶°

  1. Private Sub EX()
  2.     '¥²¶·¦b²Ä¤@¦¸¤W¤È10ÂI,«ü©wªº®É¶¡¤§«e°õ¦æ
  3.     Application.OnTime TimeValue("10:00:00 AM"), "¤u§@ªí1.TEST"
  4.     '  "¤u§@ªí1.TEST" µ{¦¡¦b¤u§@ªí¼Ò²Õ(ª«¥ó¼Ò²Õ)¤¤»Ý«ü©ú    "¼Ò²Õ¦WºÙ.µ{¦¡¦WºÙ"
  5.     'µ{¦¡¦b¤@¯ë¼Ò²Õ  µL»Ý«ü©ú¼Ò²Õ¦WºÙ,¥iª½±µ¼g¤W   "µ{¦¡¦WºÙ"

  6. End Sub
½Æ»s¥N½X
  1.    Sub TEST()
  2.      '¼g¤W§A­n°õ¦æªºµ{¦¡½X
  3.     '©Î©I¥s(°õ¦æ),µ{¦¡½X¼g¦b§Oªºµ{¦¡
  4.    Application.OnTime Date + 1 + TimeValue("10:00 AM"), "¤u§@ªí1.TEST1"
  5.    '¤U¦¸¦Û°Ê©ó¹j¤Ñ¦P®É¶¡°õ¦æµ{¦¡
  6. '***  ¦p²Ä¤@¦¸«ü©wªº®É¶¡°õ¦æ TEST ¤]¥i¥H¤£­n°õ¦æ EX

  7. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD