マクロに記録した、一部の不要な操作を削除するには

2015-09-15

マクロの記録の最中に操作ミスをした場合、その操作はマクロに記録されます。
ミスの量が多いならば再度記録したほうがよいかもしれませんが、ほんの少しならマクロの編集でその部分を削除しましょう。

たとえば、前回説明した「Sheet２と５と７の印刷」のマクロにも不要な文が一部含まれていました。

Sub シート2と5と7の印刷()
' シート2と5と7の印刷 Macro

    Sheets(Array("Sheet2", "Sheet5", "Sheet7")).Select
    Sheets("Sheet2").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("Sheet1").Select
End Sub

どこか分かりますか？

答えはSheets("Sheet2").Activateです。
シート２・５・７を印刷するためにシート２をアクティブする必要はないのですが、たまたま操作の過程でシート２をアクティブにしたので記録されてしまいました。
このままでも特に不都合がありませんが、文をできるだけ簡素化したほうがマクロの動きが軽くなります。

不要な文を削除するには、リボンの〔開発〕タブにある〔マクロ〕ボタンをクリックします。

マクロ名「シート２と５と７の印刷」を選択し、〔編集〕ボタンをクリックします。

モジュールが開きます。

念のためバックアップとしてマクロの全文をテキストエディタ（メモ帳やワードパッドなど）にコピペして保存しましょう。

カーソルを移動し「Sheets("Sheet2").Activate」を削除します。

〔上書き保存〕ボタンでモジュールを保存します。

〔表示〕ボタンをクリックしてエクセルに戻ります。

これで終了です。
試しに修正したマクロを実行してみてください。
削除した文が多ければ多いほど、マクロに要する時間が短くなっているはずです。

もし削除する文を間違えてマクロの動作がおかしいようであれば、バックアップしたマクロの全文を貼り付けて再度チャレンジしてみてください。

お役に立ちましたか？ご活用下さい♪