VBAでは操作をきっかけとして自動的に実行されるプロシージャの事を「イベントプロシージャ」と言います。自動実行のきっかけとなる操作の事を「イベント」と呼び、「イベント」はブックやワークシート、ユーザーフォーム等のオブジェクトに対して発生します。このイベントを利用して「シートがアクティブになった時に発生するイベントプロシージャの作り方」について紹介します。
構文
イベントプロシージャの記述方法は以下の通りです。
Private Sub Worksheet_Activate()
[実行する処理内容]
End Sub
[説明]:
シートがアクティブになった時に実行されるイベントプロシージャです。
[実行する処理内容] | イベントが実行された時に処理する内容を記述します。 |
[記述例]:
Private Sub Worksheet_Activate()
MsgBox "このシートがアクティブになりました。"
End Sub
作り方
(1)VBE(VBA記述画面)を開きます。
※画面の開き方はこちらの手順を参考にして下さい。
(2)シートオブジェクトをダブルクリックします。
※今回は例としてSheet1をダブルクリックします。
(3)オブジェクトボックスの▼ボタンをクリックします。
(4)プルダウン一覧の中から「Worksheet」を選択します。
※この時点で「Worksheet_SelectionChange」イベントプロシージャが表示されます。(これは自動的に作成される仕組みとなっている様です。)
(5)プロシージャボックスの▼ボタンをクリックします。
(6)プルダウン一覧の中から「Activate」を選択します。
(7)「Worksheet_Activate」イベントプロシージャが表示されます。
(8)(7)で作成したイベントプロシージャに実行させる内容を記述します。以下で記述例を紹介しますが、今回はシートがアクティブになった時にメッセージを表示する方法について紹介します。
[プログラミング例]:
Private Sub Worksheet_Activate()
MsgBox "このシートがアクティブになりました。"
End Sub
内容は、「シートがアクティブなった時に”このシートがアクティブになりました。”をMsgBoxで表示して下さい。」との意味になります。
[実行例]:
今回の例としては、Sheet1シートには上記で説明したプログラミング例が記述されています。
(実行例①)
Sheet1シートが選択(アクティブ)された状態からSheet2シートを選択(アクティブ)した場合、メッセージは表示されません。
(実行例②)
Sheet2シートが選択(アクティブ)された状態からSheet1シートを選択(アクティブ)した場合、「このシートがアクティブになりました。」が表示されます。(※Sheet1シートが選択された事で、プロシージャが実行されてメッセージが表示されました。)
[サンプル]:
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。
シートがアクティブになった時に発生するイベントプロシージャの作成方法についての説明は以上です。
おわりに
今回はシートがアクティブになった時に発生するイベントプロシージャの作成方法について説明しました。オブジェクトボックスでオブジェクトを選択すると、そのオブジェクト既定の「Worksheet_SelectionChange」イントプロシージャが自動的に作成されます。不要な場合は削除して下さい。また、類似の内容としてブックがアクティブになった時に発生するイベントプロシージャもあります。ブックの場合とシートの場合との違いは、ブックは全シートに対してイベントが発生しますが、シートは対象のシートのみにイベントが発生します。状況により使い分けて下さい。