＜イベント処理について＞
こんにちは、三流プログラマーＫｅｎ３です。 今回は、イベントについて軽く書きたいと思います。 気楽に読んでください。 /* * １. イベントって？どんなイメージ？ */ イベントって言うと、あっ、クリスマス・イブのイベントかぁ。 なんだか、よくわかんないなぁ、そんなイベント発生したか？ 変なもてない男の話は置いといて。 システムを作るポイントとして、イベント処理があります。 パターンとして、なにかしらのイベントが発生したら、 それに対して、処理を行う、対応する動作のプログラムを書くような感じです。 人間の行動で言えば、 新人君、仕事しないで、ボーットしてる（指示待ち/イベント待ち） ＊まぁ、息すって、何かしら動作待ちしてますね。 会社の外線・内線が鳴る、、無視する（このイベントには反応しない） 自分の携帯が鳴る、２コール以内で反応、外に出て受け処理に入る （イベントに対する、処理がある） ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 外線電話には、電話に出る処理が書いてないが（プログラムされてない？） 自分の携帯電話が鳴ったら、盗み聞きされないように外に出て、 電話を受ける処理が書いてあります。 ＸＸ君チョットと呼ばれる、、イヤイヤながら、ハイと返事する、、 定時５分前、、帰りの準備イベントが発生（タイマーイベント？） って、感じで、人もそれぞれ、いろいろなイベントに対応して、動作をしてます。 （そんな、単純じゃないしプログラムみたいに同じ動作じゃないし、、） ExcelやAccessのシステムでよく、見かけるのが、 ボタンなどのクリックイベントです。 実行ボタンが押されたら、この処理を実行などのモジュールが記述されてます。 また、イベントには優先順位があります。 更新後イベントが発生する前に変更時イベントが発生するなど、、、 レコード更新後イベントでキャンセルイベントを発生させるなど、 イベント処理、奥が深いので、レコード処理の時などに詳しくやりたいと思います。 例）データ登録時、在庫を確認して、無ければエラーメッセージを表示して、 登録イベントをキャンセルするなど、、 例）新人君、残業イベント発生、、女の子に電話、、予定があったら、 残業イベントキャンセル /* * ２．シートが変わった時のイベントを例題にする */ なんか、ウダウダ、うるさかったけど、 ポイントは、 イベントに対応する処理を書くんですよ。 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ってことでした。 Sheet2にシートが切り替わったら、 「シート２ですヨロシク」 のメッセージを出力する場合、 まず、ＡＬＴ＋Ｆ１１でＶＢＡの編集画面を出します。 次に、Sheet2のイベントを記述したいので、 プロジェクトの中から、 Microsoft Excelオブジェクト Sheet1 Sheet2 ←を選択、右クリックします。 Sheet3
コードの表示を選択します。（Ｓｈｅｅｔ２をダブルクリックでもＯＫ）
白紙のモジュールを記述する画面が表示されます。
次は、Worksheetのオブジェクトを選択します。
選択すると、勝手に
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
End Sub
と_SelectionChangeのイベントが出てくるけど、
ここは気にしないで、
右側のプロシージャを選択します。
▼を押すとオブジェクトのイベントプロシージャが表示されます。
まぁ、いろいろとありますね。
ここでは、Activateを選択します。
すると、
Private Sub Worksheet_Activate()
End Sub
が追加されます。
ここにメッセージを表示する処理を書きます。
Private Sub Worksheet_Activate()
MsgBox "「シート２ですヨロシク」"
End Sub
テストで、Sheet2をクリックして選択すると、メッセージが出ると思います。
こんな感じで、イベントに対応する処理を地道に書きます。
いろいろなイベントあるので、
/*
* ３．単純でウザイ、msgboxを入れてイベントの発生を見る
*/
イベントがどんなタイミングで発生するか、知りたいですよね。
私もよくわからないので、
全てのイベントにMsgBoxを入れてメッセージを出してみます。
Sheet3のイベントに、書きまくりました。
Private Sub Worksheet_Activate()
MsgBox "_Activate イベント発生 こんにちは"
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
MsgBox "_BeforeDoubleClick イベント発生 叩くなよそんなに"
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
MsgBox "_BeforeRightClick イベント発生 右クリックで何したいの？"
End Sub
Private Sub Worksheet_Calculate()
MsgBox "_Calculate イベント発生 計算したよ"
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
MsgBox "_Change イベント発生 中身さわったでしょ（変更した）"
End Sub
Private Sub Worksheet_Deactivate()
MsgBox "_Deactivate イベント発生 サヨナラ、また来てね"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
MsgBox "_SelectionChange イベント発生 浮気者セル移動したね"
End Sub
MsgBoxで止まってしまうので、ダブルクリックのイベントはテストできないけど、
こんな感じでイベントのタイミングを見ることができます。
イベントの発生順位（優先順位）がわかると思います。
=a1+b1とか計算式を入れたり、a1のセルを削除したり、
いろいろとイタズラしてイベントを探ってみてください。
/*
* ４．オブジェクトやコントロールによってイベントは違う
*/
例題はシート関係のイベントだったけど、
ボタンを押したらクリックイベントが発生するから、
ボタンを押した後の処理を書ける（書くと目的の動作をする）
感覚がなんとなくわかりましたか？
まぁ、これも慣れなので、
こんなことしたい
と思ったら、
どのタイミングで動作させる、、動作させたらと想像できるようになります。
~~~~~~~~~~~~~~~
また、Ｋｅｎ３にはクリスマスイベントが発生しないみたいに、
オブジェクトやコントロールによってイベントは違うので、
探ってみてください。
/*
* ５．終わりの挨拶
*/
今回は、
・イベントのイメージ
・シート関係のイベントを追加する方法
・ＭｓｇＢｏｘでタイミングを調べる
でした。
サンプルファイルは、
http://www.ken3.org/vba/lzh/vba035.lzh
に
test035-book.xlsが保存されています。
シートを切り替えて、遊んでくださいね。
拾い読みして、
１つでも何かの参考となれば幸いです。
Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。