Application.Calculation = xlCalculationManual Application.Calculate '' ブック内のすべてを再計算 WorkSheets(1).Calculate '' シート1のみ再計算 WorkSheets(1).Cells(1,1).Resize(5,5).Calculate '' 特定のセル範囲のみ再計算 WorkSheets(1).Cells(3,1).FormulaR1C1 = "=R[-2]C+R[-1]C" '' 計算式を設定 Application.Calculation = xlCalculationAutomatic