ブックを開いた時に指定シートを表示（Workbook_Open）

公開日：2013-08-26　最終更新日：2020-05-12

ブックを開いた時に指定シートを表示（Workbook_Open）

ブックを開いたときに自動的にマクロVBAを実行するにはWorkbook_Openを使います。
Workbook_Openは、ブックを開いた時に自動的に実行されるイベントです、

ブックを開いたときに自動的にマクロVBAを起動する方法としてはAuto_Openもあります。

ブックが開いた時に自動実行（Workbook_OpenとAuto_Open）

・Workbook_Open ・Auto_Open ・Workbook_OpenとAuto_Openの実行順序・Workbook_OpenとAuto_Openの違い

Workbook_Openの記述場所

イベントの基本については、以下を参照してください。

第124回.Workbookのイベントプロシージャー｜VBA入門

・Workbookのイベント一覧・イベントプロシージャー追加のVBE操作・Workbook_Open：Workbookのイベント・Workbook_BeforeClose：Workbookのイベント・Workbook_SheetChange：Workbookのイベント

VBEの「Microsoft Excel Objects」内の「ThisWorkbook」に記述します。

ブックを開いた時に指定シートを表示するVBA


  
    
      Private Sub Workbook_Open()

      　　Application.Goto Sheets(1).Range("A1"), True

      End Sub

上記VBAでは、ブックが開かれると先頭シートのA1セルに移動しています。

Application.Goto

Application.Goto 参照, スクロール

参照

省略可能
移動先をのRangeオブジェクトを指定します。
Rangeオブジェクト、または、R1C1形式のセル参照を含む文字列を指定できます。
この引数を省略すると、直前にGotoメソッドを使ったときのセル範囲に移動します。

スクロール

省略可能
移動先セル範囲の左上端がウィンドウの左上端に表示されるようにウィンドウをスクロールするには、 True を指定します。
ウィンドウをスクロールしないようにするには、Falseを指定します。
既定値はFalseです。

Application.Goto Sheets(1).Range("A1"), True

これは、

Sheets(1).Select
Range("A1").Select

これと、ほぼ同じですが、

ウインドウ枠を固定していて、さらにスクロール状態で固定枠外のセルが選択されている。
このような状態でも、A1セルを選択しスクロールも戻してくれます。

上の動画では当初I17が選択されていて、
Application.Goto Sheets(1).Range("A1"), True
これにより、スクロールが戻されA1が選択されています。

同じテーマ「マクロVBAサンプル集」の記事

ブックを開いた時に指定シートを表示（Workbook_Open）
ブックが閉じられる直前に保存済を確認（Workbook_BeforeClose）
シートが選択された時に指定セルに移動（Worksheet_Activate）
ダブルクリックで行高・列幅調整（Worksheet_BeforeDoubleClick）
英小文字が入力されたら大文字に変換（Worksheet_Change）
セル選択で選択行の色を変更（Worksheet_SelectionChange）
方眼紙Excel（神エクセル）に対応するVBA

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.変数宣言のDimとデータ型｜VBA入門
3.日本の祝日一覧｜Excelリファレンス
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.Excelショートカットキー一覧｜Excelリファレンス
6.繰り返し処理（For Next)｜VBA入門
7.RangeとCellsの使い方｜VBA入門
8.マクロとは？VBAとは？VBAでできること｜VBA入門
9.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
10.メッセージボックス(MsgBox関数)｜VBA入門

ホーム
マクロVBA応用編
マクロVBAサンプル集
ブックを開いた時に指定シートを表示（Workbook_Open）

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.

VBAサンプル集
ブックを開いた時に指定シートを表示（Workbook_Open）