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

[µo°Ý] Worksheet_Calculate µLªkIJµo¨Æ¥ó ?

[µo°Ý] Worksheet_Calculate µLªkIJµo¨Æ¥ó ?

If TimeValue(Now) = TimeValue("13:25:16") Then ...............
®É¶¡¨ì¤F13:25:16 µLªkIJµo¨Æ¥ó ?¦³¦ó¿ìªk?

¦^´_  t8899 ³o¬O¤u§@ªí¼Ò²ÕªºÄ²°Ê¹w³]­«ºâ¨Æ¥ó
³o¤u§@ªí¤WªºÀx¦s®æ¦³¤½¦¡ªº­È§ïÅܮɷ|¦Û°ÊIJ°Ê³oµ{§Ç.
­n ...
GBKEE µoªí©ó 2014-8-28 19:50


·PÁ«ü¾É

TOP

¦^´_ 2# t8899
  1. Private Sub Worksheet_Calculate()
½Æ»s¥N½X
³o¬O¤u§@ªí¼Ò²ÕªºÄ²°Ê¹w³]­«ºâ¨Æ¥ó
³o¤u§@ªí¤WªºÀx¦s®æ¦³¤½¦¡ªº­È§ïÅܮɷ|¦Û°ÊIJ°Ê³oµ{§Ç.
­n¦b«ü©wªº®É¶¡°õ¦æ³oµ{¦¡¥i¦p¦¹
  1. Option Explicit
  2. Sub Ex()
  3.     Application.OnTime TimeValue("13:25:16"), "???¤u§@ªí¼Ò²Õ.Worksheet_Calculate"
  4. End Sub
  5. Private Sub Worksheet_Calculate()
  6.     If Time = TimeValue("13:25:16") Then [A1] = 1
  7. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 1# t8899
Private Sub Worksheet_Calculate()
If TimeValue(Now) = TimeValue("13:25:16") Then  [A1]=1
END SUB

®É¶¡¨ì¤F13:25:16 µLªk¦Û°ÊIJµo¨Æ¥óÅý[A1]=1 ¦³¦ó¿ìªk?

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD