エクセル顧客管理
イベント処理について

第21回.イベント処理について

エクセルで顧客管理を作ります、

前回で20回を達成しました、

気張らず、気負わず、気を抜かず、これからも続けて行きます。

今回は、特に前３回が駆け足で、説明不足であった事もあり、補足しつつ復習しましょう。

その中でも、おそらく初心者が特に分かりづらいと思われるイベントについて説明します。

ワークブックのイベント

VBEの画面です。

「表示」→「コード」、または、F7

ワークブックのイベントは、ここに記述します。

「(General)」と表示されているコンボボックスで、「Workbook」を選択すると、

自動で、

Private Sub Workbook_Open()

End Sub

が作成されます。

現在までは、この「Workbook_Open」のみ使用しています。

今後も使用するとしても、「BeforeClose」「BeforSave」くらいだろうと思います。

結局、ワークブックのイベントは、ブック全体に関するイベントですので、

あまり頻繁には使用しません。

どのようなイベントがあるかは、この一覧を見ればおおよそは理解して頂けると思います。

英語で書いてあるので、概ね直訳すれば、その通りの内容です。

今後使用することがあれば、個別に説明します。

Workbook_Open

ブックが開いた直後に実行されるイベントです。

ワークブックのイベントでは、最も使用頻度の高いイベントです。

このイベントでよくやる処理を多少追加説明します。

１．変数に初期化する

２．指定のシート、フォームを開く

３．キーやアクションにマクロを割り当てる

４．ブックを閉じる時に自動処理させる

等々になります。

その他、ピボットやハイパーリンク等の処理もあります。

今のところ、３．に該当する、

Application.OnKey "キー", "マクロ"

だけが出てきました。

１．２．の使い方は、本ソフトにおいても、終盤で出てくる事になると思います。

現在は、各シート毎の機能を作成していますので、

それが終了した後、メニュー用のシートを作成したりしますので、

その時に使う事になると思います。

また、４．については、まだ未定ですが、大切な顧客データの喪失防止に、

最後に対策を施そうかと考え得ています。

ワークシートのイベント

「プロジェクト」で、「Sheet1(Sheet1)」等のシートを選択し、

「表示」→「コード」、または、F7

ワークシートのイベントは、ここに記述します。

「(General)」と表示されているコンボボックスで、「Worksheet」を選択すると、

自動で、

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
が作成されます。
これは、セルの選択位置が変更された時に発生するイベントです。

なぜ、これが標準で作成されるのか、私は疑問です。

そんなに使わないと思うのですが・・・

今までに出てきたのは、

Private Sub Worksheet_Activate()

Private Sub Worksheet_Change(ByVal Target As Range)

の２つです。

Private Sub Worksheet_Activate()

これは、シートがアクティブになったときに発生します。
つまり、他のシートを選択している状態から、そのシートへ移ったときです。

ですから、シートの内容の初期化や、初期表示に使用する事になります。

今回は使用していますが、

本来は、マクロでシートを切り替える際に、同時に処理してしまうので、そんなに頻繁には使用しません。

シート名の表示を消していない場合は、手動でシート変更できますので、そのような場合に必要になります。

今回は、今のところはその状態ですので、使用しています。

Private Sub Worksheet_Change(ByVal Target As Range)

これが問題ですね。

少し凝ったプログラムを作成すると、どうしても使うことになります。

どこかのセルに変更が加えられた時に実行されるイベントです。

ここでの問題は、どのセルが変更されたかになります。

それが、Targetに入っているのです。

このTargetに、何が、どのように入ってくるかを理解すれば良いのです。

Target

引数の型を見て頂ければおわかりになると思いますが、

これは、Rangeオブジェクトです。

従って、通常のRangeと同様に扱えばよいのです。

だだ、問題は、普通のRangeなら、自分でアドレスを設定しています。

Range("A1:B10")または、Range(Cells(1, 1), Cells(10, 2))のようにです。

しかし、このTargetには、どこのセルが入っているかが分かりません。

従って、そのセル範囲を判定してから処理するしかなく、これが結構難しいのです。

単独セルしか操作しなければ、大した問題はありません。

Target.Addressには、$B$10のようになっています。

しかし、複数セルを選択した状態で操作した場合は、

$B$2:$C$3

$B$2,$C$10

のように入ってきます。

これが問題です。

今回作成したプログラムでは、

Target.Cells(1.1)のように、Tagetの先頭セルのみ判定しています。

では、問題です。

「作成したプログラムのバグとも言える欠陥は何でしょうか？」

順番に飲んで待ってます（笑）

それは、例えば、住所１と住所２を同時に選択し、「Delete」した場合には、

後で選択されたセルは、計算式が設定されないことです。

当然ですね、Target.Cells(1.1)で、Tagetの先頭セルしか処理していませんから。

これは作成中に分かっていた事ですが、対応はしませんでした。

これに対応する意味があまりないからです。

個別に、Deleteすれば計算式が設定されますし、顧客番号が変更されれば全て再設定されますから。

元々は、Addressを比較して、対象セルかを判断していましたので、

複数セルの判定は、かなり面倒なので、対応を止めました。

無理にやろうとすれば、プログラムを複雑にしてしまうだけです。

このような場合は、無理に対応せずに、使用上の注意としておけば良いと考えています。

いずれ問題があっさり解決する事もあります。

その後、Intersectに変更したため、多少ちぐはぐなプログラムになってしまっているようです。

しかし、この記事を書きながら、再度プログラムを見てみると、

なんと簡単に対応可能ではありませんか。

以下にその修正版を掲載します。

そうなんです、基本は、Select Caseを使わず、IF文を繰り返せば良かったのです。

それで、複数セルに対応できるので、Target.Cells(1.1)もTargetだけにしました。

ただし、特別注意として、

イベントの連鎖に気を付ける必要があります。

プログラムでセルの内容を書き換えても、Worksheet_Changeが、再度呼ばれますので、

イベントの発生を抑止する必要があります、前回は入れ忘れていましたね。

それが、

Application.EnableEvents = False
です。
モジュールの最後で、Trueに戻します。

また、件数が増えてくると、VLOOKUPの計算時間がかかってきますので、

一旦計算を停止します。

Application.Calculation = xlCalculationManual

ですね。

これを指定しないと、１つのセルに計算式を設定するたびに再計算が実行され、

処理がおそくなってしまいます。

これらの処理は、「マクロ開始処理」「マクロ終了処理」で同じですが、

これらのモジュールには、他の処理も入っており、ここでは、この２つだけで良いでしょう。

また、先頭で対象セルでは無い場合には、直ぐにモジュールを抜けるようにも追加しました。

また、「顧客番号」で、全計算式を設定した後は、モジュールを抜けた方が良いのだが、

まあ、同時に全てDeleteなんて、そんな操作する人はいないだろうから、どうでも良いか。

標準モジュールとの使い分け

特段の決まりがある訳ではないが、覚えておく必要があることがあります。

他のモジュールからCallする場合は、

モジュール.Subモジュール

となります、このモジュールとは、

「プロジェクト」の「Sheet1(Sheet1)」の最初の「Sheet1」です。

()内は、シート名です。

このシートモジュールの名称は、「プロパティ」で変更ができます。

ただし、プロパティを変更しても、Callしている箇所は自動では直りませんのでご注意を。

また、当然のことではありますが、

このシートモジュールは、シートと対なので、

シートを他のブックに移動・複写した時も、一緒にくっついていきます。

そして、これが最も考慮すべきことです。

つまり、作成したシートだけを誰かに渡す可能性があるなら、

全て、シートモジュールに記述しないと、動作しなくなります。

もちろん、標準モジュールも一緒に渡せばよいのですが、

そこには、膨大なコードが入っている場合は、ちょっと困りますよね。

まあ、ある程度のソフトの場合は、このような事は無いと思います。

作成中のソフトは、間違いなく無理ですよ！

では、通常の使い分けはどうするべきか。

基本的には、イベントのみ記述するべきでしょう。

ただ、イベントのプロシージャーからCallする、SubやFunctionで、

他からCallする可能性が無いものは、入れても構わないと思います。

ただし、他のシートを操作するようなコードは、標準モジュールに入れた方が良いでしょう。

また、標準モジュールでは、シートの指定は必ずすべきです。

たとえ、そのシートがActiveになっていることが確実であったとしても、

シート指定は省略すべきではないと思います。

つまり、コードの「流用性」を考慮すべきでしょう。

もちろん、そのSubモジュールの先頭でActiveにしているのなら問題はないでしょうが、

ただ、なるべく、Activeにせずに、With等を使用するようにして下さい。

しかし、シートモジュールではどうでしょうか。

そのシートでしか使用しないのですから、指定する必要がありません。

他のシートモジュールにコピペしたとしても、結果は同じですから。

なかなか、話がまとまらなかったです。

イベント個々に注意点が違いますし、VBAと言っても、アクセスでは全く違ってきます。

当然、他のVB系の言語では、さらに全く違うものです。

ベテランのプログラマーでも結構目に見えないバグを残している事があります。

あっ、今回は私もだ

次回は、コントロールについて、追加説明する事にしましょうか。

イベントと、コントロールの扱いが分かれば、ぐっと作成できるプログラムの幅が広がります。

ではでは、今回はここまで。

また次回に。