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

[µo°Ý] ªí³æ®ÉÄÁ

[µo°Ý] ªí³æ®ÉÄÁ

§Ú·Q¦bªí³æ¤W©ñ¤@­ÓLabel
¦b¤W­±Åã¥Ü®É¶¡
Label.Caption = NOW()
¥i¬O¥L¥u·|Åã¥Ü§Ú°õ¦æªº®É¶¡
§Ú·Q­n¥L·|°Ê¸ò¹q¸£ªº®É¶¡¤@¼Ë
½Ð°Ýµ{¦¡½X­n«ç»ò¼g?

¦^´_ 1# shadowming
ªí³æ¤¤½Ð ¥[¤J¤@¦W¬° CommandButton1 ªº CommandButton ±±¨î¶µ
         ¥[¤J¤@¦W¬° Label1 ªº Label ±±¨î¶µ
  1. Private Sub CommandButton1_Click()
  2.     End
  3. End Sub
  4. Private Sub UserForm_Activate()
  5.     Do
  6.         Label1.Caption = Now()
  7.         DoEvents
  8.     Loop
  9. End Sub
  10. Private Sub UserForm_Initialize()
  11.     With Label1
  12.         .Caption = Now()
  13.         .Font.Size = 12
  14.         .TextAlign = 2
  15.     End With
  16. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE

¦]¬°§Ú·Q­n½u¤W§ó·s¸ê®Æ
ºô¯¸³£¬O¤U¤È2ÂI·|§ó·sºô¯¸¸ê®Æ
§Ú¦³¼g¥X¤@­Ó¼Ò²Õ¥i¥H½u¤W§ó·s
¥i¬O§Ú·Q¥Î®ÉÄÁªº¤è¦¡
Åý¥L¦b2ÂIªº®É­Ô°õ¦æ¦¹¼Ò²Õ

«ç»òÅý¥L§PÂ_¦b¤U¤È2ÂIªº®É­Ô
°õ¦æ¤@­Óµ{¦¡©O?
¥i¥H§i¶D§Ú«ç»ò¼g¶Ü?

TOP

¦^´_  GBKEE

¦]¬°§Ú·Q­n½u¤W§ó·s¸ê®Æ
ºô¯¸³£¬O¤U¤È2ÂI·|§ó·sºô¯¸¸ê®Æ
§Ú¦³¼g¥X¤@­Ó¼Ò²Õ¥i¥H½u¤W§ó·s
...
shadowming µoªí©ó 2010-8-7 22:40


§A¥i¥H§ä§ä¬Ý Excel VBA ¸Ì­±ªº»¡©ú,
¨ä¤¤¦³¤@¶µÃö©ó®É¶¡ªº¤èªk OnTime À³¸Ó´N¥i¥H¹F¨ì§A­nªº®ÄªG,
Â^¨ú³¡¥÷»¡©ú¤å¦r¦p¤U, ¸Ô±¡§A¥i¥H¥Î "ontime" ¬°ÃöÁä¦r¥h´M§ä:

¥»½d¨Ò³]©w my_Procedure ¦b¤U¤È 5 ÂI¶}©l°õ¦æ¡C

Application.OnTime TimeValue("17:00:00"), "my_Procedure"

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD