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

[µo°Ý] ­pºâ¼Ò¦¡¤â°Ê,Âà¼g¸ê®Æ°ÝÃD

[µo°Ý] ­pºâ¼Ò¦¡¤â°Ê,Âà¼g¸ê®Æ°ÝÃD

½Ð±Ð¤j¤j
¦bµ{¦¡ÀY³¡¥[¤J,­pºâ¼Ò¦¡§ï¬°¤â°Ê;§À³¡§ï¦^¦Û°Ê
¦pµ{¦¡¤¤¶¡¦³Âà¼g¸ê®Æªº»y¥y,¦³»Ý­n¦A«e¦C,¥[¤J­«·s­pºâµ¥ªº»y¥y¶Ü?
ÁٽФj¤jÀ°¦£¸Ñ´b,ÁÂÁÂ

¦^´_ 1# blue2263
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.         Application.Calculation = xlManual
  4.         [A1] = ""
  5.         With [A2]
  6.             .Cells = ""
  7.             .Cells = "=A1*5"  '¤½¦¡
  8.             MsgBox .Value
  9.             [A1] = 10
  10.             .Calculate             '[A2]ªº­pºâ
  11.             MsgBox .Value
  12.         End With
  13. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

Application.Calculation = xlManual       '¤â°Ê
    Application.Calculation = xlAutomatic    '¦Û°Ê

TOP

G¤j Y¤j§A¦n
§Úª¾¹Dªº§ó§ï¬°¤â°Ê¬O¤U­±³o¦æ,»P G¤j Y¤jªº¤£¤@¼Ë,½Ð±Ð¥D­n¥Î³~®t²§¦b¨ºÃä?
Application.Calculation = xlCalculationManual '­pºâ¼Ò¦¡¬°¤â°Ê
Application.Calculation = xlManual       '¤â°Ê

TOP

G¤j§A¦n

¦A±N¨ç¼Æ¤½¦¡Âà¼g¬°­È®É,G¤j¬O¥Î   .Calculate
§Ú¬O¥[¤J,¤U­±³o¤@¥yµ{¦¡½X,§Úªº¥Îªk¥¿½T¶Ü?

        '­pºâ¤u§@ªí,µ¥«Ý­pºâµ²§ô«á,¦A¶i¦æ¤U¤@¨B
           Application.Calculate '­pºâ¤u§@ªí
           Do Until Application.CalculationState = xlDone
           DoEvents
           Loop

Sub ex()
    Application.Calculation = xlCalculationManual '­pºâ¼Ò¦¡¬°¤â°Ê
        With Sheets("¤ÀªR")
        ­º¦C = .Range("­º¦C")
        Ä渹 = .Range("Ä渹")
        §À¦C = Cells(Rows.Count, 1).End(xlUp).Row '¥Ñ¤U©¹¤W§ä³Ì«á¤@¦C¸ê®Æ
        §ÀÄæ = Cells(§À¦C, Columns.Count).End(xlToLeft).Column '¥Ñ¥k©¹¥ª§ä
        '¶K¤W¤½¦¡1
        .Range("a" & §À¦C & ":c" & §À¦C).Copy
        .Range("a" & ­º¦C & ":c" & §À¦C - 2).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        '¶K¤W¤½¦¡2
        .Range(Cells(§À¦C, Ä渹), Cells(§À¦C, §ÀÄæ)).Copy
        .Range(Cells(­º¦C, Ä渹), Cells(§À¦C - 2, §ÀÄæ)).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        
        '­pºâ¤u§@ªí,µ¥«Ý­pºâµ²§ô«á,¦A¶i¦æ¤U¤@¨B
           Application.Calculate '­pºâ¤u§@ªí
           Do Until Application.CalculationState = xlDone
           DoEvents
           Loop

         '¨ç¼Æ¤½¦¡Âà¼g¬°­È
        .Range("a" & ­º¦C & ":c" & §À¦C - 2) = .Range("a" & ­º¦C & ":c" & §À¦C - 2).Value
        .Range(Cells(­º¦C, Ä渹), Cells(§À¦C - 2, §ÀÄæ)) = .Range(Cells(­º¦C, Ä渹), Cells(§À¦C - 2, §ÀÄæ)).Value
        End With
    Application.Calculation = xlCalculationAutomatic '­pºâ¼Ò¦¡¬°¦Û°Ê
End Sub

TOP

¦^´_ 5# blue2263

¸Õ¸Õ¬Ý,¬O§_¦p¦¹
  1. '¨ç¼Æ¤½¦¡Âà¼g¬°­È
  2.          .Range("a" & ­º¦C & ":c" & §À¦C - 2).Calculate
  3.          .Range(Cells(­º¦C, Ä渹), Cells(§À¦C - 2, §ÀÄæ)).Calculate
  4.          .Range("a" & ­º¦C & ":c" & §À¦C - 2) = .Range("a" & ­º¦C & ":c" & §À¦C - 2).Value
  5.          .Range(Cells(­º¦C, Ä渹), Cells(§À¦C - 2, §ÀÄæ)) = .Range(Cells(­º¦C, Ä渹), Cells(§À¦C - 2, §ÀÄæ)).Value
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# GBKEE


    ¤F¸Ñ,ÁÂÁÂG¤j¸Ñµª

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD