EXCEL（９７）で質問です

質問

前の担当者が作った、エクセルファイルが、ほとんど、式は入ってなくて、中はワープロ代わりに使っていたようです。そのファイルに式を入れているのですが、ほとんどのファイルのオプションが、計算が自動になっておらず、手動になっています。これをＥＸＣＥＬ全体を一発で自動にする事ができますか？ご存知の方、よろしくお願いします。

回答No.3

tbobi · ベストアンサー

＞ＥＸＣＥＬ全体を一発で自動にする事ができますか？

一発でできる方法ではないですが、次は自動記録から取り出したカンタンなマクロですが参考になるでしょうか？

ALT + F11 でVBエディタを起動
左側のプロジェクトエクスプローラのPERSONAL.XLSを右クリックし、　挿入　＞　標準モジュール
をクリックします。（※）

開いたコードウィンドウに以下を貼付けます。

Sub 自動計算()
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
End Sub

ＶＢエディタを閉じてExcelに戻ります。

PERSONAL.XLSが開いてなければ、
メニューバーのウィンドウ　＞　再表示　でPERSONAL.XLSを表示して

ツール　＞　マクロ　＞　マクロ
でさきほどのマクロを選んで　オプション　クリック
お好みのキーを押してショートカットキーを登録します。

あとはファイルを開く　→　ショートカットキーでマクロを実行　→　上書き保存　をくりかえします。

ちょっと手間ですが、いちいち手でやるよりはラクかと思います。あとは、もっとVBAに詳しいひとの回答を待つのも手かも。

（※）PERSONAL.XLSが無ければ、ツール　＞　マクロ　＞　新しいマクロの記録　をクリックし、保存先を個人用マクロブックにしてＯＫを押せば自動的に作成されます。

回答No.4

papayuka

こんにちは。

複数ファイルをまとめて開き、どれか１つを再計算自動にしてやるとみんな自動になります。

そのまま閉じるとダメなので、１つずつ上書き保存してから閉じるか、マクロで一気に上書きを掛けるなどしては？

'↓注）開いているブックを全部無条件に上書きします。
Sub AllSave()
Dim wb As Workbook
For Each wb In Workbooks
　wb.Save
Next wb
End Sub

回答No.2

PAPA0427

はじめまして。
上のツールバーの「ツール」→「オプション」→「計算方法」タブで「自動」のチェックボックスにチェックを入れてください。

「ＯＫ」ボタンですね。これで自動で計算してくれます。

補足

あ、舌足らずで、すいませんでした。それはわかっているのですが、１つ１つのファイルをするのでしゃなくて、ＥＸＣＥＬ全部を換える方法なのですが・・

回答No.1

arukamun

[ツール]→[オプション]→[計算方法]で自動計算をチェックすれば良いと思われますが、いかがでしょうか。

補足

あ、舌足らずで、すいませんでした。それはわかっているのですが、１つ１つのファイルをするのでしゃなくて、ＥＸＣＥＬ全部を換える方法なのですが・・