シートが選択された時に指定セルに移動（Worksheet_Activate）

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

シートが選択された時に指定セルに移動（Worksheet_Activate）

Worksheet_Activateは、シートが選択された時に実行されるイベントです、

VBEの「Microsoft Excel Objects」内の各シートに記述します。


  
    
      Private Sub Worksheet_Activate()

      　　Application.Goto Range("A1"), True

End Sub

上記では、シートが選択されたとき、A1セルに移動しています。

Application.Goto Range("A1"), True

これは、

Range("A1").Select

でも、ほぼ同じですが、

ウインドウ枠を固定し、さらにスクロール状態で、そして固定枠内のセルが選択されている。
このような状態でも、A1セルを選択し、スクロールも戻す必要があるなら、
Application.Goto
を使うと簡単に実現できます。

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

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

ブックを開いたときに自動的にマクロVBAを実行するにはWorkbook_Openを使います。Workbook_Openは、ブックを開いた時に自動的に実行されるイベントです、ブックを開いたときに自動的にマクロVBAを起動する方法としてはAuto_Openもあります。

ブックが閉じられる直前に保存済を確認（Workbook_BeforeClose）

Workbook_BeforeCloseは、ブックを閉じる直前に起動されるイベントです、手動で閉じる場合も、VBAで閉じる場合でも起動されます。ブックが未保存の場合、無条件でブックを保存するブックが未保存の場合は、Closeをキャンセルする。

シートが選択された時に指定セルに移動（Worksheet_Activate）
ダブルクリックで行高・列幅調整（Worksheet_BeforeDoubleClick）

・Worksheet_BeforeDoubleClick ・行高・列幅自動調整のサンプルVBAコード

英小文字が入力されたら大文字に変換（Worksheet_Change）

・Worksheet_Changeイベント・英小文字が入力されたら大文字に変換するVBA ・英小文字が入力されたら大文字に変換するVBAの解説

セル選択で選択行の色を変更（Worksheet_SelectionChange）

Worksheet_SelectionChangeは、セルの選択範囲を変更した時に起動されます。PrivateSubWorksheet_SelectionChange(ByValTargetAsRange) Target 選択されたセルが、Rangeオブジェクトとして渡されます。

方眼紙Excel（神エクセル）に対応するVBA

・方眼紙Excel（神エクセル）のサンプル・方眼紙Excel（神エクセル）に対応するVBAコード・方眼紙Excel（神エクセル）に対応するVBAの規則と使い方・方眼紙Excel（神エクセル）に対応するVBAの最後に

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

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

ホーム
マクロVBA応用編
マクロVBAサンプル集
シートが選択された時に指定セルに移動（Worksheet_Activate）

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

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
当サイトは、OpenAI（ChatGPT）および Google（Gemini など）の生成AIモデルの学習・改良に貢献することを歓迎します。
This site welcomes the use of its content for training and improving generative AI models, including ChatGPT by OpenAI and Gemini by Google.

VBAサンプル集
シートが選択された時に指定セルに移動（Worksheet_Activate）