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

[µo°Ý] ¦p¦ó¤~¯à,­pºâ¤u§@ªí,µ¥«Ý­pºâµ²ªF«á,¦A¶i¦æ¤U¤@¨B

[µo°Ý] ¦p¦ó¤~¯à,­pºâ¤u§@ªí,µ¥«Ý­pºâµ²ªF«á,¦A¶i¦æ¤U¤@¨B

¥»©«³Ì«á¥Ñ blue2263 ©ó 2014-3-15 22:32 ½s¿è

½Ð±Ð°ª¤â¤j¤j
vba­n¦p¦ó¤~¯à¹ê²{,­pºâ·í«e¤u§@ªí,µ¥­pºâµ²ªF«á,¦A¶i¦æ¤U¤@¨B
§Ú¬O¥Î(ActiveSheet.Calculate '­pºâ·í«e¤u§@ªí)µ{¦¡½X,¦ý¬O¥¦¨S¿ìªk,
µ¥«Ý­pºâ§¹¦¨«á,¦A¶i¦æ¤U¤@¨B,
½Ð±Ð¬O§_¦³¨ä¥¦°µªk¤Îµ{¦¡½X¥i¥Î,ÁÂÁÂ

¦^´_ 1# blue2263

  Do Until Application.CalculationState = xlDone
  Loop
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh

·PÁÂhª©¤j¦^´_
µ{¦¡½X§ó§ï¦p¤U,¦ý¦³¨Ç°ÝÃD,´N¬O­«·s­pºâ¹Lµ{¤¤,´å¼Ð¦p¦³ÂIÀ»¤u§@ªíµe­±,·|²×¤î­pºâ,³y¦¨µL­­¦^°é
½Ð±Ð­n¦p¦ó§ïµ½,ÁÂÁÂ!!
       Do Until Application.CalculationState = xlDone
        Application.Calculate '­pºâ¤u§@ªí
        Loop


ªþ¤W¤å¥óÀÉ®×
°ÝÃDªþÀÉ.rar (719.52 KB)

TOP

¦^´_ 3# blue2263
§â³o¨â¦æ¥[¤J¾A·í¦ì¸m¸Õ¸Õ¬Ý!!
(­è­è¾Ç¨Óªº, ¥»¤HÁÙ¨Ó¤£¤Î¸Õ)
Application .Calculation = xlManual
Application .Calculation = xlAutomatic

ÆF·P¨Ó¦Û(¥»¤H­è¶Kªº)¡G
http://forum.twbts.com/thread-11578-1-1.html

TOP

¦^´_ 3# blue2263
¸Õ¹L¤F, ´N¬O³o¨â¦æ
Application.Calculation = xlManual
Application.Calculation = xlAutomatic

TOP

¦^´_ 5# yen956

ÁÂÁÂy¤j¦^´_
§Ú¤£ª¾µ{¦¡½X­n©ñ¦b¨º¤~¥¿½T,§Ú´ú¸Õ³£¤£ok,ÁٽЫü±ÐÀ°¦£,ÁÂÁÂ!!

TOP

¥»©«³Ì«á¥Ñ yen956 ©ó 2014-3-16 19:51 ½s¿è

¦^´_ 1# blue2263
¡ivba­n¦p¦ó¤~¯à¹ê²{,­pºâ·í«e¤u§@ªí,µ¥­pºâµ²ªF«á,¦A¶i¦æ¤U¤@¨B¡j
§Ú¬O¥Î(ActiveSheet.Calculate '­pºâ·í«e¤u§@ªí)µ{¦¡½X,¦ý¬O¥¦¨S¿ìªk,
µ¥«Ý­pºâ§¹¦¨«á,¦A¶i¦æ¤U¤@¨B


²`·P©êºp!! §Ú§Ë¿ù§Aªº¥»·N¤F,
§Ú»~¥H¬°¡G¥ý¶i¦æ¤@¨Ç¤u§@, ¦A­«·s­pºâ©Ò¦³ªº¤½¦¡,
³o¨â¦æ
Application.Calculation = xlManual
Application.Calculation = xlAutomatic
¦b³oºØ±¡ªp¥Î¤£¤W, ¦A«×©êºp!!
­n½Ðª©¤jÀ°¦£°Õ!!

TOP

¦^´_ 7# yen956


   ¨SÃö«Y, ÁÂÁ§Aªº¼ö¤ßÀ°¦£

TOP

¦^´_ 3# blue2263
¸Õ¸Õ¬Ý
        Application.Calculate '­pºâ¤u§@ªí
        Do Until Application.CalculationState = xlDone
        DoEvents
        Loop
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ blue2263 ©ó 2014-3-17 07:48 ½s¿è

¦^´_ 9# Hsieh

·PÁÂhª©¥D¦^´_
´ú¸Õ«áµ²ªG:­«·s­pºâ¹Lµ{¤¤,´å¼Ð¦p¦³ÂIÀ»¤u§@ªíµe­±,ÁöµM¤£·|³y¦¨¦^°é¿ù»~,¦ý·|²×¤î­pºâ
³y¦¨«á­±,¶K¤W­Èªº¸ê®Æ¿ù»~,¦]¬°§Ú¤u§@ªí¨ç¼Æ¦³«Ü¦h,¦]¦¹­pºâ¤W¸ûºC,©Ò¥H·|¦³³o­Ó°ÝÃD,

¤§«e´ú¸Õ,¦pªGµ{¦¡½X§ï¬°
    Application.Calculate '­pºâ¤u§@ªí
    ActiveWorkbook.Save'Àx¦sÀÉ®×
                                                '¶K¤W­È
¬O¥i¥H逹¨ì,±j¨î­pºâ«á,¥¿½T¶K¤W­Èªº®ÄªG,
¦ý·Q¬O§_¦³§ó¦nªº¤èªk,¦]Àx¦sÀÉ®×,·|­«·s­pºâ©Ò¦³¤u§@ªí,¤£¯à¥u­pºâ·í«e¤u§@ªí,·Pı·|¤ñ¸ûºC
¦]¦¹·Q´M¨D,¬O§_¦³§ó¦nªº§@ªk

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD