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


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. 参考にしたサイト

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

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