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

t8899

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

t8899

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

·PÁ«ü¾É

GBKEE

¦^´_ 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

t8899

¦^´_ 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?