資料作成に役立ちそうなマクロを作ってみた

1. マクロを作成しようと思ったきっかけ

設計書などの資料をエクセルで作成する際、以下のような点で困ることがある。

• レビュー前などに、ブック内の全シートの選択セルをA1にする。
• 文字列検索した際にオブジェクト内の文字やシート名は検索されない。

---

2. 今回作成したマクロ

• ブック内の全シートの選択セルをA1にする

---

3. 作成手順

3.1. 個人用ブックで「マクロの記録」を行う。

---

3.2. 以下の項目の入力を行う。

項目名	入力内容
マクロ名	任意のマクロ名
ショートカットキー	マクロを実行するショートカット
マクロの保存先	個人用マクロブック

例）

---

3.3 「マクロの記録」を終了する。

---

3.4 記録したマクロにロジックを記述する。

' ブック内の全シートの選択セルをA1にし、倍率を100%にする

Sub focusOnA1()
    ' ループ変数
    Dim targetSheet As Object

    ' ブック内のシートでループ
    For Each targetSheet In ActiveWorkbook.Sheets
        targetSheet.Activate
        ActiveSheet.Range("A1").Select
        ActiveWindow.Zoom = 100
    Next targetSheet

    ' ブック内の先頭シートをアクティブにする
    Sheets(1).Select
End Sub

---

4. ソースコードについては以下を参照

obscure723 / VBA

5. 参考にしたサイト

個人用ブック作成とマクロの記録

こちらは当人のブログ よねらぼ です。
プログラミングに関する情報を発信していますので、よければ読んでください。