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

最終更新日：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.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.繰り返し処理（For Next)｜VBA入門
5.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
6.マクロって何？VBAって何？｜VBA入門
7.並べ替え（Sort）｜VBA入門
8.Excelショートカットキー一覧｜Excelリファレンス
9.エクセルVBAでのシート指定方法｜VBA技術解説
10.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門

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

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

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

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