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

½Ð°Ý°ª¤â­n±N¥H¤UDDE ¨C¤ÀÄÁ°O¿ý§ï¬°30¬í¦Û°Ê°O¿ý¤@¦¸­n«ç§ï

¦^´_  xu123
¤£¶·µ¥¶}½L¡A§A¥u­n¶}±Ò¸ÓExcel ªí³æ¡A©ó 8:45 «áÆ[¹î¨C¹j30¬í¬O§_·|¼g¤J¤@µ§¬ö¿ý¡A
µª®×«K ...
c_c_lai µoªí©ó 2012-5-25 21:14

½Ð°Ý­n§ï­þ¨à?
Application.OnTime Now + TimeValue("00:00:30"), "ThisWorkbook.Timer" '¨C¬íÅã¥Ü
§Ú§ï³oÃä«á  ®É¶¡´N¤£°Ê¤]¤£°O¿ý¤F?

ÁÂÁ  ·P®¦

TOP

¦^´_  xu123
ªþ¤W¹Ï¤ù¥H¤Îµ{¦¡½X¨Ñ§A¹ê°È°Ñ¦Ò¡G
¤@¡B DDE ¨C¤ÀÄÁ°O¿ý§ï¬°30¬í¦Û°Ê°O¿ý¤@¦¸­n«ç§ï [­×§ï] ...
c_c_lai µoªí©ó 2012-5-26 09:44

·PÁÂc_c_lai ¤j³o»ò¸Ô²Ó¥Î¤ßªº¸Ñ»¡
¤S¶i¤@¨B¾Ç²ß¤F
¨Ó´ú¸Õ¬ã¨s¤@¤U

·P®¦¦A·P®¦

TOP

¥»©«³Ì«á¥Ñ mead ©ó 2012-6-24 10:34 ½s¿è
¸ÕµÛ¦bÅÜ°Ê´T«×³Ì¤pªº«e´£¤U­×§ï

Option Explicit
Dim LastMin As Long

Private Sub Workbook_Open ...
a8350070 µoªí©ó 2012-5-26 11:03

If Hour(Time) * 3600 + Minute(Time) * 60 + Second(Time) > LastMin + 30 Then '¶}©l«á°µ
³o¼Ë§ï  ¨ä­n°O¿ýªº®É¶¡³]©w­n´î1
¦p30¬í  ´N­n¥[29¦Ó«D30

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD