[發問] 計算模式手動,轉寫資料問題

blue2263

請教大大
在程式頭部加入,計算模式改為手動;尾部改回自動
如程式中間有轉寫資料的語句,有需要再前列,加入重新計算等的語句嗎?
還請大大幫忙解惑,謝謝

GBKEE

回復 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]的計算
    
11.             MsgBox .Value
    
12.         End With
    
13. End Sub

複製代碼

yen956

Application.Calculation = xlManual       '手動
    Application.Calculation = xlAutomatic    '自動

blue2263

G大 Y大你好
我知道的更改為手動是下面這行,與 G大 Y大的不一樣,請教主要用途差異在那邊?
Application.Calculation = xlCalculationManual '計算模式為手動
Application.Calculation = xlManual       '手動

blue2263

G大你好

再將函數公式轉寫為值時,G大是用   .Calculate
我是加入,下面這一句程式碼,我的用法正確嗎?

        '計算工作表,等待計算結束後,再進行下一步
           Application.Calculate '計算工作表
           Do Until Application.CalculationState = xlDone
           DoEvents
           Loop

Sub ex()
    Application.Calculation = xlCalculationManual '計算模式為手動
        With Sheets("分析")
        首列 = .Range("首列")
        欄號 = .Range("欄號")
        尾列 = Cells(Rows.Count, 1).End(xlUp).Row '由下往上找最後一列資料
        尾欄 = Cells(尾列, Columns.Count).End(xlToLeft).Column '由右往左找
        '貼上公式1
        .Range("a" & 尾列 & ":c" & 尾列).Copy
        .Range("a" & 首列 & ":c" & 尾列 - 2).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        '貼上公式2
        .Range(Cells(尾列, 欄號), Cells(尾列, 尾欄)).Copy
        .Range(Cells(首列, 欄號), Cells(尾列 - 2, 尾欄)).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        
        '計算工作表,等待計算結束後,再進行下一步
           Application.Calculate '計算工作表
           Do Until Application.CalculationState = xlDone
           DoEvents
           Loop

         '函數公式轉寫為值
        .Range("a" & 首列 & ":c" & 尾列 - 2) = .Range("a" & 首列 & ":c" & 尾列 - 2).Value
        .Range(Cells(首列, 欄號), Cells(尾列 - 2, 尾欄)) = .Range(Cells(首列, 欄號), Cells(尾列 - 2, 尾欄)).Value
        End With
    Application.Calculation = xlCalculationAutomatic '計算模式為自動
End Sub

GBKEE

回復 5# blue2263

試試看,是否如此

1. '函數公式轉寫為值
   
2.          .Range("a" & 首列 & ":c" & 尾列 - 2).Calculate
   
3.          .Range(Cells(首列, 欄號), Cells(尾列 - 2, 尾欄)).Calculate
   
4.          .Range("a" & 首列 & ":c" & 尾列 - 2) = .Range("a" & 首列 & ":c" & 尾列 - 2).Value
   
5.          .Range(Cells(首列, 欄號), Cells(尾列 - 2, 尾欄)) = .Range(Cells(首列, 欄號), Cells(尾列 - 2, 尾欄)).Value

複製代碼

blue2263

回復 6# GBKEE


    了解,謝謝G大解答