­p®É¥\¯à??

color790

½Ð°Ý¸Ó«ç»ò¥HVBA¥ÎÁä½L°µ­p®É¥\¯à?? ÁÂÁÂ~~
¤ñ¦p«öALT¶}©l­p®É, ¦A«ö¤@¦¸ALT´N§â¸Ó¸g¹Lªº®É¶¡°O¿ý¦bÀx¦s®æ¤W(¥i¯à·|«Ü¦h¦¸), ©Ò¥H¤£¯àÂл\....

Hsieh

¦^´_ 1# color790

¨Ï¥Î²Õ¦XÁäAlt+z

1. Public x As Long, s As Double
   
2. Sub auto_open()
   
3. Application.OnKey "%z", "Ex"
   
4. End Sub
   
5. Sub Ex()
   
6. If x = 0 Then s = Timer
   
7. If x Mod 2 = 0 Then Cells(Rows.Count, 1).End(xlUp).Offset(1) = (Timer - s) / 86400: s = Timer
   
8. If x Mod 2 = 1 Then Cells(Rows.Count, 1).End(xlUp).Offset(1) = (Timer - s) / 86400: s = Timer
   
9. x = x + 1
   
10. End Sub

½Æ»s¥N½X

­p®É.rar (8.06 KB)

¤U¸ü¦¸¼Æ: 13

2012-1-12 18:16

color790

HI~ª©¥D, °ÝÃD¤ñ¸û¦h,¤£¦n·N«ä, ¥i§_³Â·Ðª©¥DÀ°§Ú¸ÑÄÀ¤@¤U....ÁÂÁÂ~^^
1. ¬°¤°»ò­n³] Public x As Long, s As Double,  X¬O«ü¤°»ò??
2. ¬°¤°»ò­n¨DXªº¾l¼Æ¬°¹s©Î¬°1 ??
3. ¬°¤°»òTimer - s ÁÙ­n¦A°£86400, µM«á«á­±ÁÙ¦³­Ó :¬O¤°»ò·N«ä

Hsieh

¦^´_ 3# color790


1. ¬°¤°»ò­n³] Public x As Long, s As Double,  X¬O«ü¤°»ò??
³]­p2­Ó¥þ°ìÅܼơAs¬O°O¦í¦¹¦¸°õ¦æ®Éªº®É¶¡¡Ax¬O°O¿ý¦¹µ{§Ç³Q°õ¦æ´X¦¸
2. ¬°¤°»ò­n¨DXªº¾l¼Æ¬°¹s©Î¬°1 ??
³o­Ó°ÝÃD¦hÁ§A´£¿ô¡A¥i¥H¤£¶·¨D±o¾l¼Æ¡A¦ý¬O¬ö¿ý¬O§_¬°²Ä¤@¦¸°õ¦æ¬O¥²¶·ªº
§ï¦¨

1. Sub Ex()
   
2. If x = 0 Then s = Timer
   
3. Cells(Rows.Count, 1).End(xlUp).Offset(1) = (Timer - s) / 86400: s = Timer
   
4. x = x + 1
   
5. End Sub

½Æ»s¥N½X

§Y¥i
3. ¬°¤°»òTimer - s ÁÙ­n¦A°£86400, µM«á«á­±ÁÙ¦³­Ó :¬O¤°»ò·N«ä
Timer¬O¶Ç¦^±q¤È©]¹s®É°_ºâ¦Ü¦¹ªº¬í¼Æ¡A¶Ç¦^ªº¬OSingle¡A¦]¬°¤@¤Ñ24¤p®ÉÂন¼Æ­È®É¬°1¡A°£¥H86400(¤@¤Ñ¬°86400¬í)¬O¬°¤FÂন¬í

color790

¦hÁª©¥Dªº¶W§Ö³t¦^µª....