以VBA禁用excel工作表中的函數
轉貼資訊來源:
- 這裡
1 2 3 4 5 6 7 8 9 10 | Sub ChangeFormualToValue() Dim rng As Range ActiveSheet.EnableCalculation = False For Each rng In ActiveSheet.UsedRange If rng.HasFormula Then rng = rng.Value End If Next ActiveSheet.EnableCalculation = True End Sub |