エクセルマクロで定時退社した話

本記事にはアフィリエイト広告・PRを含みます。

毎月20件の見積書を作るたびにフォルダを作って、シート名を変えて、提出前に体裁を整える。この地味な作業を自動化する方法が知りたいなら、この記事で全部答えが出る。

現場仕事から施工管理に転職して、事務作業に殺されかけた弱小電気工事士の俺が、実際に業務で使ってるマクロを2つ、コード込みで公開する。

特に「全シートのA1セルを一発で揃える」コードは、この記事の中でそのままコピーして使える形で渡す。

毎月20件の見積書、フォルダ作成だけで地味に時間を溶かしてた
取引先に出す書類、シートごとにセルの位置がバラバラだと普通に失礼だ
全シートのA1セルを一発で揃えるマクロコード（実際に使っているもの）
マクロ導入前後で何が変わったか
上司の「暇なん？」を無視して結果で黙らせた話
基礎を固めるならこの1冊。応用はTACの教材で体系化した
まとめ｜事務作業の自動化は現場仕事上がりでも絶対にできる

毎月20件の見積書、フォルダ作成だけで地味に時間を溶かしてた

月に20件、見積書を作る。その度に「案件フォルダを作る→マクロ有効テンプレートで見積もりブックを新規作成→内訳明細の工事名をそのままシート名にする」という手順を毎回手作業でやっていた。

1件あたりは数分でも、20件になると馬鹿にならない。しかも後から見返す時に「このシートどれだっけ」と探す手間まで積み重なる。

フォルダ作成もブック作成もシート名変更も、毎回同じ手順。だったらボタン一発でいいだろって思った。

だから、案件フォルダを自動生成し、マクロ有効の見積もりテンプレートを複製して保存、内訳明細の工事名をそのままシート名に反映するマクロを組んだ。ここは自分の帳票フォーマットに合わせて設計が必要な部分なので、この記事では「こういう仕組みで動いている」というところまでを開示する。

💡 見返す時にシート名で一発で工事名がわかるようにしておくと、後で「これ何の見積もりだっけ」と探す時間がゼロになる。地味だが効いてくる設計だった。

取引先に出す書類、シートごとにセルの位置がバラバラだと普通に失礼だ

入力作業自体は問題ない。でも提出前に見返すと、シートによってカーソルの位置がバラバラだった。あるシートはB15、あるシートはG40。取引先に渡すブックとして、これはさすがに雑に見える。

だから提出直前、全シートのカーソル位置をA1に統一するボタンを作った。これが2つのマクロの中でも一番「即効性があって、すぐ効果が見える」やつだった。

全シートのA1セルを一発で揃えるマクロコード（実際に使っているもの）

ここが本題だ。下のコードをそのままVBAエディタに貼り付ければ動く。難しい構文は一切使っていない。

✅ 使い方

①Alt+F11でVBAエディタを開く　②「挿入」→「標準モジュール」　③下のコードを貼り付け　④F5または任意のボタンに登録して実行

Sub 全シートA1セルに移動()

    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
        ws.Activate
        ActiveWindow.ScrollRow = 1
        ActiveWindow.ScrollColumn = 1
        ws.Range("A1").Select
    Next ws

    ThisWorkbook.Worksheets(1).Activate

End Sub

ポイントはActiveWindow.ScrollRowとScrollColumnを入れているところ。単純にRange("A1").Selectだけだと、カーソルはA1に飛んでも画面のスクロール位置がずれたままのシートが残る。見た目上「A1が選ばれているのに画面が下にスクロールしたまま」という状態を防ぐために、この2行を足している。

これをクイックアクセスツールバーか、シート上に配置したボタンに登録しておけば、提出前にワンクリックで全シートが綺麗に整う。

💡 マクロを覚えて一番変わったのは「コードを書く力」じゃなく、「この作業は毎回同じだから自動化できるはずだ」と気づく視点そのものだった。