手動計算時の注意点と再計算方法
セルを変更する度に再計算が動いてしまうと処理時間が遅くなってしまいます。
そこでマクロVBAの中で、計算方法を手動にすることで対処することになります。
このとき処理結果が期待した結果にならないといった事が起こらないように、
手動計算時の注意点と再計算方法について解説します。
計算方法の切り替え：自動⇔手動
ApplicationのCalculationプロパティを設定します。
| xlCalculationAutomatic | 自動 |
| xlCalculationManual | 手動 |
| xlCalculationSemiautomatic | データテーブル以外の自動 |
Application.Calculation = xlCalculationManual
この記述をすることで、
これ以降、手動計算となり、自動では再計算は行われなくなります。
この設定は、マクロ終了後も引き続き有効となりますので、
必要に応じて、xlCalculationAutomaticに戻してください。
Applicationのプロパティですので、ブック単位ではなく起動しているExcel全体への設定になります。
従って、ブックごとに計算方法を変更することはできません。
従って、ブックごとに計算方法を変更することはできません。
計算式を入れると必ず計算される
計算方法が手動の場合は、
数式が参照している先のセル値が変更になっても再計算されません。
もちろん、計算方法を自動にした時点で再計算されますが、
マクロVBA実行中でxlCalculationManualになっている状態では、セル値は正しい値にはなっていません。
手動計算になっていても、
セルに計算式を入れた場合は、計算式を入れたセルについては必ず計算が行われます。
C1:C5にA列/B列の計算式を入れます。
Range("C2:C5").Value = "=A2/B2"
Valueプロパティは、Formulaプロパティでも同じです。
Range("C2:C5").Formula = "=A2/B2"
手動計算時であっても、
VBA内で計算式を入れたセルについては、特に意識的に再計算を行わなくても問題はありません。
しかし、これから説明するような場合には、VBAで再計算を行わない限り再計算されません。
数式が参照している先のセル値が変更になっても再計算されません。
もちろん、計算方法を自動にした時点で再計算されますが、
マクロVBA実行中でxlCalculationManualになっている状態では、セル値は正しい値にはなっていません。
セルに計算式を入れた場合は、計算式を入れたセルについては必ず計算が行われます。
Sub sample1()
Application.Calculation = xlCalculationManual
Range("C1:C5").Value = "=A1/B1"
Call valuePrint
End Sub
Valueプロパティは、Formulaプロパティでも同じです。
Range("C2:C5").Formula = "=A2/B2"
VBA内で計算式を入れたセルについては、特に意識的に再計算を行わなくても問題はありません。
しかし、これから説明するような場合には、VBAで再計算を行わない限り再計算されません。
ブック保存時は再計算される
手動計算になっていれば、ブックを開いたときには再計算されません。
しかし、ブック保存時は再計算されます。
このブック保存時の再計算を止めるには、Application.CalculateBeforeSaveプロパティをFalseにします。
ただし、手動計算になっていなければ、次に開いたときに再計算されてしまうので意味がなくなります。
従って、通常はCalculationプロパティとともに使用します。
しかし、ブック保存時は再計算されます。
このブック保存時の再計算を止めるには、Application.CalculateBeforeSaveプロパティをFalseにします。
Application.CalculateBeforeSave = False
ただし、手動計算になっていなければ、次に開いたときに再計算されてしまうので意味がなくなります。
従って、通常はCalculationプロパティとともに使用します。
Application.Calculation = xlCalculationManual
Application.CalculateBeforeSave = False
セルのコピーでは再計算されない
数式の入っているセルがあり、そのセルと同じ計算式を入れたい場合、普通はセルをコピーするでしょう。
以下のように、
C1セルに数式が入っているので、これと同じ数式をC2:C5に入れる場合です。
再計算が行われていません、コピー元のC1の値がそのまま表示されています。
では、コピー方法を変えてみましょう。
オートフィルでもやってみましょう。
いずれの方法でも再計算されません。
セルをコピーした以降のVBAにおいて、これらの（計算式を入れた）セルの値を使うとしたら・・・
これでは当然正しい結果にならないことになります。
言うまでもありませんが、これはシートで手動操作した時と同じです。
シート操作で再計算されないものはVBAでも同じです。
このような場合に、ショートカットF9を使う事は頻繁にあるのではないでしょうか。
VBAでは、この再計算を行う手段がいくつも用意されています。
以下のように、
C1セルに数式が入っているので、これと同じ数式をC2:C5に入れる場合です。
Sub sample2()
Application.Calculation = xlCalculationManual
Range("C1").Copy
Range("C2:C5").PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
End Sub
では、コピー方法を変えてみましょう。
Sub sample3()
Application.Calculation = xlCalculationManual
Range("C1").Copy Destination:=Range("C2:C5")
End Sub
Sub Macro4()
Application.Calculation = xlCalculationManual
Range("C1").AutoFill Destination:=Range("C1:C5")
End Sub
セルをコピーした以降のVBAにおいて、これらの（計算式を入れた）セルの値を使うとしたら・・・
これでは当然正しい結果にならないことになります。
シート操作で再計算されないものはVBAでも同じです。
このような場合に、ショートカットF9を使う事は頻繁にあるのではないでしょうか。
VBAでは、この再計算を行う手段がいくつも用意されています。
いろいろな再計算方法
計算方法を手動→自動→手動
Application.Calculation = xlCalculationAutomatic
Application.Calculation = xlCalculationManual
いったん自動に戻した時点で再計算が行われます。
自動にした以降で、他のセル値を変更する時の為に手動にしたい場合は、再度手動にしておけば良いでしょう。
Application.Calculation = xlCalculationManual
いったん自動に戻した時点で再計算が行われます。
自動にした以降で、他のセル値を変更する時の為に手動にしたい場合は、再度手動にしておけば良いでしょう。
全ブックを再計算
ApplicationのCalculateメソッド
Application.Calculate
開かれている全てのブックの全てのセルが再計算されます。
ただし、再計算が必要ない（とエクセルが認識している）セルは再計算しません。
通常は、これを実行すれば全てのセルが正しい計算結果となります。
開かれている全てのブックの全てのセルが再計算されます。
ただし、再計算が必要ない（とエクセルが認識している）セルは再計算しません。
通常は、これを実行すれば全てのセルが正しい計算結果となります。
ApplicationのCalculateFullメソッド
Application.CalculateFull
開かれているすべてのブックの全ての計算式が再計算されます。
再計算の必要のないセルも再計算します。
通常は、Calculateを使用してください。
開かれているすべてのブックの全ての計算式が再計算されます。
再計算の必要のないセルも再計算します。
通常は、Calculateを使用してください。
ApplicationのCalculateFullRebuildメソッド
Application.CalculateFullRebuild
開いている全てのシートで、すべて計算し、依存を再構築します。
これは、すべての数式を再入力する事と同じです。
通常は、使用することはありません。
開いている全てのシートで、すべて計算し、依存を再構築します。
これは、すべての数式を再入力する事と同じです。
通常は、使用することはありません。
再計算したいシートだけ再計算
WorksheetオブジェクトのCalculateメソッド
ActiveSheet.Calculate
Worksheets("Sheet1").Calculate
指定のワークシートの全てのセルが再計算されます。
再計算が必要ない（とエクセルが認識している）セルは再計算しません。
ActiveSheet.Calculate
Worksheets("Sheet1").Calculate
指定のワークシートの全てのセルが再計算されます。
再計算が必要ない（とエクセルが認識している）セルは再計算しません。
再計算したいセルだけ再計算
RangeオブジェクトのCalculateメソッド
Range("C2:C5").Calculate
Rangeオブジェクトとして指定されたセルだけが再計算されます。
再計算が必要ない（とエクセルが認識している）セルは再計算しません。
Range("C2:C5").Calculate
Rangeオブジェクトとして指定されたセルだけが再計算されます。
再計算が必要ない（とエクセルが認識している）セルは再計算しません。
Sub sample5()
Application.Calculation = xlCalculationManual
Range("C1").Copy Destination:=Range("C2:C5")
Range("C2:C5").Calculate
End Sub
RangeオブジェクトのDirtyメソッドについて
少し別件になりますが、RangeオブジェクトのDirtyメソッドについて記載しておきます。
Dirtyメソッドは、次の再計算が発生したときに再計算するよう指定するものであり、その場では再計算は行われません。
VBAリファレンスの翻訳が曖昧なこともあり、勘違いされる事もありそうです。
エクセルは再計算が必要なセルを自動で認識しているので、通常はこのメソッドを使う必要性はありません。
Dirtyメソッドは、次の再計算が発生したときに再計算するよう指定するものであり、その場では再計算は行われません。
VBAリファレンスの翻訳が曖昧なこともあり、勘違いされる事もありそうです。
エクセルは再計算が必要なセルを自動で認識しているので、通常はこのメソッドを使う必要性はありません。
他のセルと同じ数式を入れたい時に最も簡単な方法
今回のC1セルの数式と同じ数式をC2:C5に入れる場合、
再計算をわざわざ実行することなく、その場で再計算されるようにVBAを記述できます。
以下の方法ならとても簡単に実現できます。
セルに計算式を入れる方法についての詳細は以下を参照してください。
第38回.セルに計算式を設定（Formula）|VBA入門
Formulaプロパティで取得される数式は、
"=A1/B1"
このようにセル参照がセル番地になっているため、他のセルのFormulaに入れても意図した数式にはなりません。
しかし、
FormulaR1C1プロパティで取得される数式は、
"=RC[-2]/RC[-1]"
このようにR1C1形式として、数式の入っているセルからの相対位置指定になっています。
したがって、他のセルに入れれば、数式の参照するセルも相対参照としてずれてくれます。
少なくとも今回の例であれば、これが最も簡単な方法になるでしょう。
再計算をわざわざ実行することなく、その場で再計算されるようにVBAを記述できます。
以下の方法ならとても簡単に実現できます。
Sub sample6()
Application.Calculation = xlCalculationManual
Range("C2:C5").FormulaR1C1 = Range("C1").FormulaR1C1
End Sub
セルに計算式を入れる方法についての詳細は以下を参照してください。
第38回.セルに計算式を設定（Formula）|VBA入門
・計算式を設定できるプロパティ ・Valueプロパティ ・Formulaプロパティ , FormulaLocalプロパティ ・FormulaR1C1プロパティ , FormulaR1C1Localプロパティ ・R1C1参照形式 ・Localが付くプロパティについて ・それぞれの違い（Localは除く） ・何故、こんなに多くのプロパティが存在しているのか ・R1C1形式を使うメリット ・たった1行のVBAで複数のセルに計算式を入れる
Formulaプロパティで取得される数式は、
"=A1/B1"
このようにセル参照がセル番地になっているため、他のセルのFormulaに入れても意図した数式にはなりません。
しかし、
FormulaR1C1プロパティで取得される数式は、
"=RC[-2]/RC[-1]"
このようにR1C1形式として、数式の入っているセルからの相対位置指定になっています。
したがって、他のセルに入れれば、数式の参照するセルも相対参照としてずれてくれます。
同じテーマ「マクロVBA技術解説」の記事
VBAこれだけは覚えておきたい必須基本例文10
エクセルVBAでのシート指定方法
文字列結合&でコンパイルエラーになる理由
手動計算時の注意点と再計算方法
VBAの用語について：ステートメントとは
オブジェクト変数とは何か
VBAの小数以下の演算誤差について
スピルでVBAの何が変わったか
CharactersプロパティとCharactersオブジェクト
ユーザーに絶対に停止させたくない場合のVBA設定
印刷範囲の設定・印刷範囲のクリア
新着記事NEW ・・・新着記事一覧を見る
TRIMRANGE関数（セル範囲をトリム：端の空白セルを除外）｜エクセル入門(2024-08-30)
正規表現関数（REGEXTEST,REGEXREPLACE,REGEXEXTRACT）｜エクセル入門(2024-07-02)
エクセルが起動しない、Excelが立ち上がらない｜エクセル雑感(2024-04-11)
ブール型（Boolean）のis変数・フラグについて｜VBA技術解説(2024-04-05)
テキストの内容によって図形を削除する｜VBA技術解説(2024-04-02)
ExcelマクロVBA入門目次｜エクセルの神髄(2024-03-20)
VBA10大躓きポイント（初心者が躓きやすいポイント）｜VBA技術解説(2024-03-05)
テンキーのスクリーンキーボード作成｜ユーザーフォーム入門(2024-02-26)
無効な前方参照か、コンパイルされていない種類への参照です。｜エクセル雑感(2024-02-17)
初級脱出10問パック｜VBA練習問題(2024-01-24)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.繰り返し処理（For Next)｜VBA入門
5.RangeとCellsの使い方｜VBA入門
6.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
7.セルのクリア（Clear,ClearContents）｜VBA入門
8.メッセージボックス(MsgBox関数)｜VBA入門
9.条件分岐（Select Case）｜VBA入門
10.ブック・シートの選択（Select,Activate）｜VBA入門
- ホーム
- マクロVBA応用編
- マクロVBA技術解説
- 手動計算時の注意点と再計算方法
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。