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

[µo°Ý] ½Ð±Ð§ì¨ú¤Ó¥­¬vÃÒ¨÷ªºDDE ­n¦p¦ó±q¤¤§ì¨ú¨C¤ÀÄÁªº³Ì¤j¦¨¥æ»ù¤Î³Ì¤p¦¨¥æ»ù

¦^´_ 21# ribbits
¹ï¤£°_¡A­è¤~¬°¤F´ú¸Õ¦Ó§ÑÁA±N¥¦§ó§ï¦^¨Ó¡A½Ð±N¤U¦C¤§ Remark ­×¥¿¦^¨Ó¡G
  1. Public Sub ATimer()
  2.     Dim Pos As Long             ' ±N¨C¹j "¦h¤Ö®É¶¡" ³B²z®É¬q¡A²¾¨ì¦¹³B¨Ó³B²z¡C
  3.    
  4.     On Error Resume Next
  5.     ' If (TimeValue(Now) > TimeValue("13:45:00")) Then Exit Sub
½Æ»s¥N½X
¥¿½T¬° (³Ì«á¤@¦æ)¡G
  1. Public Sub ATimer()
  2.     Dim Pos As Long             ' ±N¨C¹j "¦h¤Ö®É¶¡" ³B²z®É¬q¡A²¾¨ì¦¹³B¨Ó³B²z¡C
  3.    
  4.     On Error Resume Next
  5.     If (TimeValue(Now) > TimeValue("13:45:00")) Then Exit Sub
½Æ»s¥N½X
ÁÂÁ¡I

TOP

½Ð±Ðc_clai¤j,¦³¿ìªk½L¤¤§Y®Éµe¥X¤@­ÓÁ`©e¶R¤f´î¥hÁ`©e½æ¤fªº¹Ï¶Ü?
ÁÂÁ¦^µª
steveyeh168 µoªí©ó 2012-9-10 00:29

§A¥u­n¦h¼W¥[¤@­ÓÄæ¦ì¦WºÙ°²³]©w¬° "´²¤á¤è¦V"¡A
µM«á¥H¦¹Äæ§@¬° "¿ï¨ú¸ê®Æ" ¶µ´N¥i¥Hµe¥X¹Ïªí¤F¡C

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2012-9-10 12:13 ½s¿è

¦^´_ 26# ribbits
¶K¦b ThisWorkbook ¤º¡C
ªº¤Í¥[¤W '
¥¿½T¦a¤w§R±¼ '

TOP

¦^´_  c_c_lai

½sĶ®É³£·|¸õ¨ì³oPrivate Sub Workbook_Open()
µM«áµLªk°õ¦æ¡A³o°ÝÃD¥X²{¦b­þÃä?

ÁÙ ...
ribbits µoªí©ó 2012-9-10 23:09

³o¥÷¹ÏªíÀ³¸Ó¤w¦^µª§Aªº°ÝÃD¤F¡A¦p¤´¤£¸Ñ§A¥u¦n¬è¨D¤W»a¤F¡I

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD