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

½Ð°Ý¦p¦ó§PÂ_ºô­¶¤w¸g¦Û°Ê§ó·s

½Ð°Ý¦p¦ó§PÂ_ºô­¶¤w¸g¦Û°Ê§ó·s

¦U¦ì¤j¤j§A¦n¡G

¦pªG§Ú¦bexcel¤¤ªºvba¡Aµ{¦¡½X¦³¼g¨ìActiveWorkbook.RefreshAll¨Ó§ó·s¸ê®Æ

¦ý¬O§ó·s¸ê®Æ¥²¶·ªá®É¶¡¡]¤j¬ù»Ý­n20¬í§a¡^

§Ú­n«ç¼Ëµ{¦¡¼gªk¨Ó"½T©w¸ê®Æ¤w¸g§ó·s§¹²¦"
µM«á§Ú¤~Ä~Äò¤U­±ªºµ{¦¡½X©O¡H

µ{¦¡½X¦p¤U

For i = 100 To 1030
   
    Sheets("¤j½L¶g½u").Select
   
    Cells(1050, 20) = Cells(i, 24)
    Cells(1050, 19) = WorksheetFunction.Round(Cells(1050, 20) / 100, 0)
   
    Sheets("²{³f¸ê®Æ").Select
    ActiveWorkbook.RefreshAll ´N¬O³o¤@¦æ­n§ó·sºô­¶¸ê®Æ¡A¦ý¬O¥L°õ¦æ«Ü¤[  
      
   
    d2 = Cells(5, 41) / 100000
    d1 = Cells(20, 40)
   
    Sheets("¤j½L¶g½u").Select
   
    Cells(i, 15) = WorksheetFunction.Round(d2, 2)
    Cells(i, 16) = WorksheetFunction.Round(d1 / d2, 4)
    Cells(i, 20) = Cells(1050, 20)
      
    Next i

¦^´_ 1# rogerwu1234
Dim E As QueryTable   
    Sheets("²{³f¸ê®Æ").Select
    'ActiveWorkbook.RefreshAll      ***³o¤@¦æ­n§ó·sActiveWorkbook©Ò¦³ªººô­¶¸ê®Æ, ©Ò¥H¥L°õ¦æ«Ü¤[***
    For Each E In ActiveSheet.QueryTables         ' §@¥Î¤¤¤u§@ªí.ªººô­¶
        E.Refresh           
    Next
   
    d2 = Cells(5, 41) / 100000
    d1 = Cells(20, 40)
    Sheets("¤j½L¶g½u").Select

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD