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

¦p¦ó§ó§ï¨ä¥LªÑ¸¹¡A­n­þ¨Ç¨BÆJ¡H

¦p¦ó§ó§ï¨ä¥LªÑ¸¹¡A­n­þ¨Ç¨BÆJ¡H

½Ð±Ðª©¤j°ª¤â«üÂI¡FÁÂÁÂ~~
1.§Ú¦b[¶×¤J]Äæ¡A¾Þ§@[¸ê®Æ]¡÷[¶×¤J¥~³¡¸ê®Æ]¡÷[½s¿è¬d¸ß]¡÷§â[2303Áp¹q]§ï¦¨[2330¥x¿n¹q]¡÷[°O¿ý]Äæ«o¤£¯à§ó·s¦¨[2330¥x¿n¹q]Data¡A5¤ÀÄÁ«á¤SÁÙ­ì[2303Áp¹q]½Ð°Ý¦p¦ó³B¸m¡H§ó§ï¨ä¥LªÑ¸¹¡A­n­þ¨Ç¨BÆJ¡H
2.½d¨Ò¡G10¬í§ó·s¸ê®Æ=>Application.OnTime Now + TimeValue("00:00:10"), "MyDee"  '³]©w 10¬í«á °õ¦æ MyDee µ{§Ç
    Exit Sub
­n§ï¦¨5¤À§ó·s¸ê®Æ=>Application.OnTime Now + TimeValue("00:05:00"), "MyDee"  '³]©w 5¤À«á °õ¦æ MyDee µ{§Ç
³o¼Ë¹ï¶Ü¡H­n¦p¦ó¦sÀÉ¡H

ªÑ²¼¬ö¿ý.zip (15.57 KB)

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¦^´_ 1# cfuxiong
¨º§A¬°¦ó¤£³o»ò°µ¡G °²³]¦b§Aªº "¶×¤J" ¤u§@ªí³æ¤ºªº P1 Äæ¦ì¿é¤J -> "®É¬q³]©w"¡A  P2 Äæ¦ì¿é¤J -> "00:05:00"¡A¦Ó±N
Application.OnTime Now + TimeValue("00:00:10"), "MyDee" ­×§ï¦¨
Application.OnTime (Now + Sheets("¶×¤J").Range("P2").Value), "ThisWorkBook.MyDee"¡A¦p¦¹¡A¥H«á¥u­n§A¤£°ª¿³´N¨ì
P2 Äæ¦ì¨Ó­×§ï§A°ª¿³ªº³]©w®É¬q¡A¨º¤£´Nµ²¤F¡I

TOP

¦^´_ 2# c_c_lai
ÁÂÁÂc_c_laiªº«ü¾É»PÀ°¦£¡A¨ì¥Ø«e¬°¤î¡A¥Î¡mApplication.OnTime Now + TimeValue("00:05:00"), "MyDee"  '³]©w 5¤À«á °õ¦æ MyDee µ{§Ç¡n¬OOK
¤]¸Õ¹L§A«ü¾Éªº¤èªk¡A¦ý«o¥X²{¡¨¶¥¬q¿ù»~13¡¨¤£ª¾¦ó³B¥X¿ù¡H
²{¦b¬O·Q­n§ó§ï[ªÑ¸¹]«o¤£ª¾¦p¦ó¤U¤â¡F
§Ú¦b[¶×¤J]Äæ¡A¾Þ§@[¸ê®Æ]¡÷[¶×¤J¥~³¡¸ê®Æ]¡÷[½s¿è¬d¸ß]¡÷§â[2303Áp¹q]§ï¦¨[2330¥x¿n¹q]¡÷[°O¿ý]Äæ«o¤£¯à§ó·s¦¨[2330¥x¿n¹q]Data¡A5¤ÀÄÁ«á¤SÁÙ­ì[2303Áp¹q]½Ð°Ý¦p¦ó³B¸m¡H§ó§ï¨ä¥LªÑ¸¹¡A­n­þ¨Ç¨BÆJ¡HÁÂÁÂ~~
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2012-4-27 11:22 ½s¿è

¦^´_ 3# cfuxiong
½Ð§A¥ýÀˬd¤@¤U
¥N¸¹ = Sheets("¬ö¿ý").[C1]

µ¥½L«á§Ú¦A¬Ý¬Ý¡A­è¤~¤@°õ¦æ§Aªºµ{¦¡¡A´N¥X²{ 400 ªº¿ù»~°T®§¡A
µ²ªG³s±aªº§Úªº§@·~µ{¦¡³ºµM¦Û°Ê°±¤î¤F§ÚªºDDE¸ê®Æ¶×¤J¡I

TOP

¦^´_ 3# cfuxiong

·|µo²{§ó§ïªÑ¸¹«á¤S¥X²{¥ý«eªºªÑ²¼¸ê°T¡A¦³¥i¯à¬O®É¶¡®tªºÃö«Y¡A·í«e¤@­Ó¬d¸ß©|¥¼¬d¸ßµ²§ô(¥¿¦b¬d¸ß¤¤)
§A§ó§ï¤FC1ªºªÑ¸¹³o®ÉIJµo¨Æ¥óµ{§Ç¦Ó°õ¦æ§ó·s¡Aµ²ªG¦¹¦¸§ó·s¤ñ«e¤@¦¸§ó·s³t«×§Ö¡A´N¶K¨ì¸ê®Æ°Ï¡Aµ²ªG«e¤@¦¸§ó·s±µµÛ§¹¦¨
©Ò¥H³y¦¨³o¼Ë²{¶H¡A³o»Pºô¸ô¦³Ãö¡A§A§â¬ö¿ý¤u§@ªí¨Æ¥óµ{§Ç§R°£«á°õ¦æ¬Ý¬Ý¡AÀ³¸Ó´N·|®ø°£³oºØ²{¶H
¥t´£¨ì5¤ÀÄÁ°õ¦æ¬O§ï¦¨Now + TimeValue("00:05:00")¨S¿ù
  Application.OnTime Now + TimeValue("00:05:00"), "MyDee"  '³]©w 5¤ÀÄÁ«á °õ¦æ MyDee µ{§Ç
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# cfuxiong
' Sh.Activate                       ' *************
' Rng.Select                        ' *************
³o¨â³B§Ú±N¥¦§ï¦¨µùÄÀ¡A¦]¬°¥¦·|±Nµe­±¤£Â_¤Á¨ì "¬ö¿ý" ¤u§@ªí³æ¡A
¦pªG§A¬O¥¿¦bÀˬd "¶×¤J"¤u§@ªí³æ®É¡A³]©w®É¬q¤@¨ìµe­±
«K·|³Q±j¨î¤Á¨ì "¬ö¿ý" ¤u§@ªí³æ¤W¡A«D±`§xÂZ¡I

' Application.OnTime Now + TimeValue("00:00:10"), "MyDee"  ­×§ï¦¨
Application.OnTime (Now + Sheets("¶×¤J").Range("P2").Value), "MyDee"
¦]¬°§Aªºµ{¦¡½X¨Ã¤£¬O©ñ¸m¦b ThisWorkBook °Ï¶ô¤º¡A©Ò¥H "ThisWorkBook.MyDee"
§ï¦¨ "MyDee"¡C

ªÑ²¼¬ö¿ý.rar (12.55 KB)

TOP

¦^´_ 5# Hsieh
ÁÂÁÂHsiehª©¤j«ü¾É¡F
¡m§A§â¬ö¿ý¤u§@ªí¨Æ¥óµ{§Ç§R°£«á°õ¦æ¬Ý¬Ý¡AÀ³¸Ó´N·|®ø°£³oºØ²{¶H¡n§Ú§@¤F¥H¤U°Ê§@¡F
1.¥´¶}Àɮס÷[°±¥Î¥¨¶°]¶i¤J¡÷¦b[¶×¤J]Äæ¡A¾Þ§@[¸ê®Æ]¡÷[¶×¤J¥~³¡¸ê®Æ]¡÷[½s¿è¬d¸ß]¡÷§â[2303Áp¹q]§ï¦¨[2330¥x¿n¹q]=>µe­±¬Ý¨Ó¬OOK¡÷Àx¦s¡÷Â÷¶}¡C
2.¦A¥´¶}Àɮס÷[±Ò¥Î¥¨¶°]¶i¤J¡÷¤SÁÙ­ì±Ò©l¸ê®Æ¡C
½Ðª©¤j°ª¤â«ü¾É¡KÁÂÁÂ~~
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 7# cfuxiong


   ¨Ã«D§ó§ï¬d¸ß
¦]¬°§Aªº±ø¥ó¤w¸g¦bµ{¦¡½X¤¤¨Ï¥Î¬ö¿ý¤u§@ªíC1ªº­È§@±ø¥ó
©Ò¥H¥u­n±N¬ö¿ý¤u§@ªíC1ªº­È§ï¦¨·Q­nªº¥N½X§Y¥i
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# c_c_lai
ÁÂÁÂc_c_laiªº«ü¾É»PÀ°¦£¡A«D±`º¡·N¡K¦A»¡ÁnÁÂÁÂ~~
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 8# Hsieh
ÁÂÁÂHsiehª©¤j²Ó¤ß«ü¾É¡F¤wOK¤F¡KÁÂÁÂ~~
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD