ここから本文です

アクティブシートのみ自動計算にする方法が知りたい。 エクセル2016で、シートと...

pip********さん

2019/3/1023:54:42

アクティブシートのみ自動計算にする方法が知りたい。
エクセル2016で、シートと計算式が多くなり、重くなったので、アクティブシートのみ自動計算にしたいのです。可能ならば方法を教えて下さ

い。もちろん、VBAでも構いません。

閲覧数:
51
回答数:
1

違反報告

ベストアンサーに選ばれた回答

nan********さん

2019/3/1110:49:16

基本は手動計算にしておき
シートが選択された時「Worksheet_Activate」と内容が変更された時「Worksheet_Change」に再計算するようにします。

'-----ThisWorkbookモジュール-----
'Book全体を開いたら手動、閉じたら自動にしておく。
Private Sub Workbook_Open()
Application.Calculation = xlCalculationManual
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Calculation = xlCalculationAutomatic
End Sub

'-----各シートモジュール-----
'アクティブになったときだけ計算。
Private Sub Worksheet_Activate()
Activesheet.Calculate
End Sub

'書き換えがおこったらそのシートだけ計算。
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Activesheet.Calculate
End Sub

  • 質問者

    pip********さん

    2019/3/1121:49:53

    ありがとうございます。職場のおも~いエクセルファイルに導入したいのですが、明日まで休みなので、明後日にやってみます!

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2019/3/15 12:09:05

導入したら、とても軽くなりました。
ありがとうございました。

あわせて知りたい

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる