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

[µo°Ý] ½Ð±Ð¦¹µ{§Ç¬°¦ó¿ù»~?

³sÄò¤@ª½¥X²{"­«¶]"??

If Time > [b2] + TIMEB Then
¦]¬°§Aªº [b2] ©ñ¦b module¤U, ¦Ó¥B¨S¦³©ú½T«ü©w [b2] ¨ì©³¬O Sheet1.[b2] ÁÙ¬O Sheet2.[b2],  ÁÙ¬O Sheet3.[b2].....
©Ò¥H EXCEL ¦Û°ÊÀ°§A¨M©w¤F
·í§A¤Á´«¨ìSHEET1 ®É, EXCEL ¦Û°Ê§â [b2] ·í¦¨ Sheet1.[b2]
·í§A¤Á´«¨ìSHEET2 ®É, EXCEL ¦Û°Ê§â [b2] ·í¦¨ Sheet2.[b2] (ªÅ­È)

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2015-4-5 14:56 ½s¿è
³sÄò¤@ª½¥X²{"­«¶]"??

If Time >  + TIMEB Then
¦]¬°§Aªº  ©ñ¦b module¤U, ¦Ó¥B¨S¦³©ú½T«ü©w  ¨ì©³¬O S ...
bobomi µoªí©ó 2015-4-5 14:39

§Ú¦³«ü©ú°Ú !
¥¦¤£¬O private
With Workbooks("book1.xls").Sheets("sheet1")
.Range("B2") = TimeValue(Now)

TOP

¥»©«³Ì«á¥Ñ bobomi ©ó 2015-4-5 15:01 ½s¿è

[ ¥¦¬O°õ¦æ¨ì¨º¤@¦æ³Q°±¤îªº??¦p¦ó½T»{¥¦¤w³Q°±¤î¤F?? ]

À³¸Ó¬O­n¶i¤J Sub timestock() ¤§«e,  Application.OnTime ´N¦Û°Ê¦P®É Stop ¤F, °õ¦æ¦b¤º³¡©Ò¥H§A¬Ý¤£¨£

°õ¦æ Sub Test_01
¨BÆJ (2) ¯à¦¨¥\ , ¨BÆJ (3) «o¥¢±Ñ
´N¥i¥Hª¾¹D·í  Application.OnTime Time + 1 / 86400, "AAA", , False '  °õ¦æ ¥¢±Ñ®É(µo¥X Error Msg ®É)
´N¥NªíµÛ  Timer For Sub AAA ¦­¤w¸g°±¤î¤F
¦]¬°¨BÆJ (2) ¤w¸g¦¨¥\°±¤î¤F Timer For Sub AAA
©Ò¥H¨BÆJ (3) §A¦A°±¤î1¦¸´N¥¢±Ñ¤F , ¦¹®É Application.OnTime ¤º³¡¦­´N¨S¦³ Timer For Sub AAA ³o±ø Link , Application.OnTime ¦]¬°§ä¤£¨ì Timer For Sub AAA ¦Óµo¥X Error Msg


Sub Test_01()
On Error GoTo 0: On Error Resume Next
Application.OnTime Time + 1 / 86400, "AAA", , True  '(1)--> °õ¦æ ok
If Err Then MsgBox "err #1"
On Error GoTo 0: On Error Resume Next
Application.OnTime Time + 1 / 86400, "AAA", , False  '(2)--> °õ¦æ ok (Timer For Sub AAA ¤w¸g°±¤î)
If Err Then MsgBox "err #2"
On Error GoTo 0: On Error Resume Next
Application.OnTime Time + 1 / 86400, "AAA", , False '(3)--> °õ¦æ ¥¢±Ñ
If Err Then MsgBox "err #3"
End Sub

TOP

§Ú¦³«ü©ú°Ú !
¥¦¤£¬O private
With Workbooks("book1.xls").Sheets("sheet1")
.Range("B2") = TimeVal ...
t8899 µoªí©ó 2015-4-5 14:54



If Time > [b2] + TIMEB Then

§Aªº [b2] «e­±¨S¦³ . °Ú

¦¹®Éªº [b2] Åܦ¨ Sheet2.[b2] = ªÅ­È

[b2] ¥[¤W . ´N¦n¤F

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2015-4-5 18:23 ½s¿è
If Time >  + TIMEB Then

§Aªº  «e­±¨S¦³ . °Ú

¦¹®Éªº  Åܦ¨ Sheet2. = ªÅ­È

¥[¤W . ´N¦n¤F ...
bobomi µoªí©ó 2015-4-5 15:00

§Ú¬Ý¤F¦n´X¦¸¡AÁÙ¬O¨S¦³¬Ý¨ì¡AÁÂÁÂ!

TOP

§A¥i¥H¥Î  µæ³æªº·j´M   
·j´M If Time > [b2] + TIMEB Then   
´N¥i¥H§ä¨ì

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2015-4-5 19:04 ½s¿è
§A¥i¥H¥Î  µæ³æªº·j´M   
·j´M If Time >  + TIMEB Then   
´N¥i¥H§ä¨ì
bobomi µoªí©ó 2015-4-5 18:53

©êºp,¸g±`¬Ý¹q¸£¿Ã¹õ¡A¤×¨ä¦b¼gµ{¦¡¤£ª¾¤£Ä±¤@ª½ª`µø.......¥[³t²´·ú¦Ñ¤Æ..¦~¬ö¤]¤j¤F........©Ò¥H¬Ý¤£¨ì.........
²{¦b§ä¨ì¤F

TOP

¨º­Óºô§}½L«á´ú¸Õ¬O§_¤@¼Ë ie °±¯d10¤À·|³y¦¨excel¾ã­Ó³t«×ºC¤U¨Ó
ÁÙ¬O¥u¦³½L¤¤¤~·| lag ?

TOP

¨º­Óºô§}½L«á´ú¸Õ¬O§_¤@¼Ë ie °±¯d10¤À·|³y¦¨excel¾ã­Ó³t«×ºC¤U¨Ó
ÁÙ¬O¥u¦³½L¤¤¤~·| lag ?
bobomi µoªí©ó 2015-4-5 19:39

³oºô­¶¨C5¬í·|¦Û°Êupdate ¤@¦¸¡A©Ò¥H§Ú³s¤W¤@¦¸µM«á¶}­Ó°Æµ{¦¡¨C¹j5¬í-60¬í§ì¤@¦¸
¨C¹jn¬í§ì¤@¦¸¡A¨Ã¤£·|³y¦¨lag, ¬OIE ³s¤W«á10¤ÀÄÁ¤~·|lag, ±q¤u§@ºÞ²z­û¬Ýie¦û°O¾ÐÅé,®É¶¡¶V¤[°O¾ÐÅé¦û¶V¤j
½L«á§Ú¨S´ú¸Õ
  ³oºô­¶¤£¤@©w­n­É¥ÎIE¨Ó§ì¡AÀ³¸ÓÁÙ¦³¨ä¥L¤èªk ¹³ XMLHTTP......... ¤£ª¾±z·|¶Ü?¥i§_½ç±Ð?

TOP

¥H¤U¬O¥Î XMLHTTP §ì¥X¨Óªº¤º®e
¥i¥H¬Ý¨ì¦³Äæ¦ì¦WºÙ, ¦ý§ì¤£¨ì¼Æ­È
¨º­Óºô­¶ªº¼Æ­È¬O¥Î javascript ¨Æ«á¸É¤W¨Óªº
§A¥Î IE ¶}¨º­Óºô­¶-> IEµæ³æ -> ¥t¦s·sÀÉ ---> ¦s¨ì xxx.htm ---> ¦A§â  xxx.htm ¥Î IE ¥´¶} ---> ¥u¨£Äæ¦ì, ¬Ý¤£¨£¼Æ­È

¾ãÅ饫³õ         ªÑ²¼         °òª÷         »{ÁÊÅvÃÒ         »{°âÅvÃÒ
Á`©e¶R¼Æ¶q        -        -        -        -        -
Á`©e¶Rµ§¼Æ        -        -        -        -        -
Á`©e½æ¼Æ¶q        -        -        -        -        -
Á`©e½æµ§¼Æ        -        -        -        -        -
º¦°±©e¶R¼Æ¶q        -        -        -        -        -
º¦°±©e¶Rµ§¼Æ        -        -        -        -        -
º¦°±©e½æ¼Æ¶q        -        -        -        -        -
º¦°±©e½æµ§¼Æ        -        -        -        -        -
¶^°±©e¶R¼Æ¶q        -        -        -        -        -
¶^°±©e¶Rµ§¼Æ        -        -        -        -        -
¶^°±©e½æ¼Æ¶q        -        -        -        -        -
¶^°±©e½æµ§¼Æ        -        -        -        -        -

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD