「ツール」-「オプション」-「計算方法」での 計算方法の切替えと同じ Application.Calculation = xlCalculationAutomatic '自動 xlCalculationManual '手動 xlCalculationSemiautomatic 'テーブル以外自動 '「保存前に再計算」する Application.CalculateBeforeSave = True ------------------------------------------------------ '全てのブックで計算する Calculate Application.Calculate '特定のシートで計算する ThisWorkbook.Worksheets(3).Calculate '指定した範囲のみ計算する ThisWorkbook.Worksheets(3).Range("A