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

ExcelマクロVBAの実用サンプル、エクセルVBA集と解説
最終更新日:2020-05-12

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


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


ブックを開いたときに自動的にマクロVBAを起動する方法としてはAuto_Openもあります。
ブックが開いた時に自動実行(Workbook_OpenとAuto_Open)
Excelブックを開いた時にVBAを自動実行させる方法として、Workbook_OpenとAuto_Open この2通りの方法があります。それぞれの簡単な説明と、動作の違いを解説します。Workbook_Open Workbook_Openは、ブックが開かれたときに起動されるブックのイベントプロシージャーになります。

Workbook_Openの記述場所

イベントの基本については、以下を参照してください。
第124回.Workbookのイベントプロシージャー|VBA入門
Workbookのイベントプロシージャーは、ブックに対し特定の操作(これがイベント)が行われた時に実行されます。イベントは、手動でもVBAでも、どちらで操作が行われても発生します。Workbookのイベントは多数用意されています。

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

マクロ VBA サンプル画像

ブックを開いた時に指定シートを表示する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セルを選択しスクロールも戻してくれます。

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

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



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

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


新着記事NEW ・・・新着記事一覧を見る

Variantの数値型と文字列型の比較|エクセル雑感(7月1日)
VBAのVariant型について|VBA技術解説(6月30日)
VBAのString型の最大文字数について|エクセル雑感(6月20日)
VBAで表やグラフをPowerPointへ貼り付ける|VBAサンプル集(6月19日)
アクティブシート以外の表示(Window)に関する設定|VBA技術解説(6月17日)
マクロ記録での色のマイナス数値について|エクセル雑感(6月16日)
ツイッター投稿用に文字数と特定文字で区切る|エクセル雑感(6月15日)
日付の謎:IsDateとCDate|エクセル雑感(6月14日)
IFステートメントの判定|エクセル雑感(6月13日)
インクリメンタルサーチの実装|ユーザーフォーム入門(6月12日)


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

1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.マクロって何?VBAって何?|VBA入門
5.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
6.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
7.繰り返し処理(For Next)|VBA入門
8.セルに文字を入れるとは(Range,Value)|VBA入門
9.とにかく書いてみよう(Sub,End Sub)|VBA入門
10.マクロはどこに書くの(VBEの起動)|VBA入門




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


記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。



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