マンガでよめる痔のこと・薬のこと

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

A 回答 (4件)

>EXCEL全体を一発で自動にする事ができますか?



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

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

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

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

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

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

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

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

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

(※)PERSONAL.XLSが無ければ、ツール > マクロ > 新しいマクロの記録 をクリックし、保存先を個人用マクロブックにしてOKを押せば自動的に作成されます。
    • good
    • 0

こんにちは。



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

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

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

はじめまして。


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

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

この回答への補足

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

補足日時:2003/05/13 13:01
    • good
    • 0

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

この回答への補足

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

補足日時:2003/05/13 12:55
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング