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

·Q½Ð±Ð-¦b³]©wªº¤é´Á¦Û°Ê°õ¦æ¥¨¶°

²Ä¤@¦æ¡G
Sub Ex()
Åã¥Ü¤£§¹¥þ¡C§Ú¸Õ¤F§¹¥þok¡C

TOP

·PÁÂGBKEEª©¤j¦^ÂÐ
§Ú¦b°õ¦æApplication.OnTime "16:23:30", "macro1"  ªº®É­Ô¨S¦³¶W¹L "16:23:30"
¦]¬°§Ú¦³¤@ª½§ï®É¶¡,µM«áµ¥¥¦°õ¦æ.
§Ú§â§AªºVBA»yªk¶K¦bModule 2
µM«á°õ¦æ
¥¦»¡....½sĶ¿ù»~,¥²¶·¬O:=.....
¤£¦n·N«ä,ÁÙ¬O§Ú©ñ¿ù¦a¤è¤F?
³Â·Ð§A¤F,ÁÂÁÂ.

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-10-19 21:11 ½s¿è

¦^´_ 14# ¤TÄ_
§A°õ¦æ Application.OnTime "16:23:30", "macro1"  ®É¶¡¦³¶W¹L "16:23:30" ¶Ü?
°õ¦æEx() «á¤£­nÃö³¬Excel ©ú¤Ñ¦A¸Õ¸Õ¬Ý
  1. Sub Ex()
  2. Application.OnTime "2010/10/20 09:00", "Macro1"
  3. End Sub
  4. Sub Macro1()
  5. MsgBox Format(Now, "YYYY/M/D  H:M:ss")
  6. End Sub
½Æ»s¥N½X

TOP

·PÁÂoobirdª©¤j,
§Aªº·N«ä¬O³o¼Ë¶Ü?
Sub auto_open()
If Data <> "2010,10,19" Then exit sub
Application.OnTime "16:23:30", "macro1"
End Sub
¥i¬O³o¼Ë³£¤£·|°Ê­C,
¬O­þ¸Ì¼g¿ù¤F¶Ü?
ÁÂÁÂ.

TOP

·PÁÂoobirdª©¤j,
§Aªº·N«ä¬O³o¼Ë¶Ü?
Sub auto_open()
If Data <> "2010,10,19" Then Exit Sub
Application.OnTime "16:11:50", "macro1"
End Sub
¥i¬O³£¤£·|°Ê­C....
½Ð°Ý­þ¸Ì¿ù¤F?
ÁÂÁÂ.

TOP

«e­±¥[¤@¦æif data <> "¬Y¬Y¤é" then exit sub

TOP

¤£¦n·N«ä,
¥i¥H¦A½Ð±Ð¤@¤U,
¦pªG§Ú­n¥[¤W¤é´Á,
¸Ó«ç»ò¼g?
ÁÂÁÂ....

TOP

¤£©Ç§A¡A­n©Ç§Ú¡C
¥N½X¤£°÷¤H©Ê¤Æ¡A¥¦À³¸Ó­n¦Û¤v·|§PÂ_®M¥Îªº¡I

TOP

°Ú!!
¯uªº...
§Ú³o½ÞÀY,
·PÁÂGBKEEª©¤j²Ó¤ß
°ÝÃD¸Ñ¨M¤F,
ÁÂÁÂ.

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-10-19 07:02 ½s¿è

¦^´_ 6# ¤TÄ_
¤£­n¦³   µo¤å®É¤U­±ªº¿ï¶µ­n¤Ä¿ï [¸T¥Îªí±¡]
marco1<>Macro1 §Aªº¦r¥ÀÄA­Ë¤F

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD