・カーソルの位置をすべて"A1"にしたい、しかも開いたときには1番目のシートにしたい・表示倍率を100%など一定に揃えたいということありませんか。多くのシートを作成したExcelファイルを客先や上司・同僚などへ提出する際、自分が受け取る側で内容を精査しなければならないときのことを考えると、受け取る側のことを考えて保存したいものです。既存Excelファイル上でマクロを実行するマクロ専用ファイルから実行する最後に既存Excelファイル上でマクロを実行する後述しますが実行後、拡張子に[xlsm]が使用できるバージョンであれば、上書き保存するときにはマクロを含めず拡張子は[xlsx]のまま保存できます。1.以下のプログラムをコピーします。Next2.対象のExcelファイルを開きます。拡張子は[.xlsm]でなくてもOKです。3.Alt+F8でVBAを起動し、マクロ名には"temp"など入力し[作成(C)]をクリックします。4.Ctrl+Vで貼り付けてF5で実行します。実行後は、シート1がカレントになり、全てのシートがカーソルは"A1"に位置づき、表示倍率は100%になっています。5.[上書き保存]にて「マクロなしのブックとして保存」する[はい(Y)]をクリックします。該当Excel上にマクロを作成しましたが、拡張子に[xlsm]が使用できるバージョンであれば、マクロを一時的に実行して、マクロを除外して上書き保存できます。マクロ専用ファイルから実行するマクロ専用ファイルのシート1に「対象フォルダ」や「表示倍率」を指定して実行します。「対象ファルダ」内のExcelファイル全てを対象に処理します。「対象ファイル」を指定すれば該当ファイルだけを処理します。1.Excelを起動し、シート1に以下を貼り付けます。ドラッグ&コピー後にExcelに貼り付けるとき、[形式を選択して貼り付ける]-[テキスト]で貼り付けます。フォルダC:\TEMP01\50.エビデンス対象ファイル設定時のみ対象ファイルだけ処理する表示倍率10010~400、指定時のみ変更する2.Alt+F8でVBAを起動し、マクロ名には"temp"など入力し[作成(C)]をクリックします。'対象ファルダから読み込むファイルを指定。Application.Quit補足です。・このマクロ=プログラムでは、カーソル設定、表示倍率を変更するのみで、データは更新しません。設定すれば変更します。設定しなければ表示倍率は変更しません。・このマクロ=プログラムでは、当ファイルのシート2を使用します。・そのため、当ファイルにシート2が無ければ自動で作成し、あればクリアします。最後にちょっとしたことですが、ドキュメントを受け取る側が望んでなくても揃っていれば、開いたときに好印象を感じるかもしれません。あなた自身の評価が、あなたの組織の評価が上がるかもしれせん。シート数が少なかったり対象ファイルが少なければ手作業で調整できますが、手作業で行うと漏れがあったり「ファイルを開いて、シート一つひとつを遷移して・・・」とストレスもかかります。参考にして頂ければと思います。コメントをキャンセルメールアドレスが公開されることはありません。※コメントは日本語で入力してください。コメントデータの処理方法の詳細はこちらをご覧ください。VBAスポンサーリンクプロフィールはじめまして、健史(たけふみ)と申します。このブログにお越し頂き、ありがとうございます。私は若いころから不摂生な生活を送ってきたために、いろいろな病気や慢性痛になりました。(3)人気記事マクロ''を実行できません。自分で改善.メニューホーム記事一覧プロフィールお問い合わせホーム検索トップサイドバ。