Excel VBAを使って、あるセルに入力したコードに対応する品名を表

質問

Excel VBAを使って、あるセルに入力したコードに対応する品名を表示しようとしています。
１．コードと品名のマスターテーブルがsheet1にあります。
２．sheet2のあるセルにコードを入力したら横のセルにsheet1から品名を引っ張って表示します。

以上をsheet2のモジュールとしてworksheetのchangeを使ってコードしました。すると、以下の問題点
があり、ご教示下さい。当方、8年前に一回だけVBとC++Builderを使って統計処理プログラムを
組んだことがありますが、元DOS系であり、ソフト自体久しぶりですっかりさび付いています。

１．コードを入力するとchangeがかかってモジュールに飛んで、処理はできます。しかし、
　プログラムで品名を書き込むと、また、changeが発生して、処理を中断して、モジュールを抜け、モジュールに再突入してくる。
２．とりあえず、staticのフラグでこの処理を切り分けましたが、正直、ダサいです。
３．名前を書き込む前に、changeイベントを禁止にすればと思うのですがその方法もわかりません。
４．普通、このような目的の場合、どのような方法をとるのでしょうか。

よろしくお願いします。

回答No.1

jcctaira · ベストアンサー

イベント連鎖しないように、イベント発生時に以下の設定をすれば
処理中は他のイベントを止めることができます。

　Application.EnableEvents = False

処理終了後はイベントを可能にしてください。

　Application.EnableEvents = True

お礼

早速、ありがとうございました。ばっちりでした。
エラー処理とかがあるので、これを使って、もう少し検討してみます。

回答No.3

hana-hana3

単に「２」の処理が目的なら、シートでVlookup関数を使うのがもっとも手軽です。

マクロ処理上の対策しては、他の方が提示したApplication.EnableEvents で処理するのが簡単です。

何でもマクロで～ではなくて、使える関数をチェックして関数だけで実現可能なのか、マクロで行うのが適切なのか、両者を組み合わせる方がベストなのかを検討する方が良いでしょう。
ＶＢＡでは多くのワークシート関数を呼び出して使う事が可能なので、必要な関数があればＶＢＡで自由に利用出来ます。

例えば、ＶＢＡにVlookup関数を書き込めば任意の表の値をピックアップする事も出来ます。

お礼

ありがとうございました。できました。

回答No.2

syowest

Application.EnableEvents =false でイベントを禁止にするのも手ですが、マスターからコード品番をキーにしてデータを引っ張ってくるだけなのであれば、VBA ではなく、単純に関数 VLOOKUP を使ったほうがいいのではないでしょうか？

=VLOOKUP((検索値, 範囲, 列番号, False)

範囲の指定は、絶対座標 $A1:$C100 等で指定
最終のパラメータは、False で指定します。

お礼

ありがとうございます。ばっちりでした。
ただ、範囲の取り方が説明を読んでもよくわからず苦労しました。
今回は、データとしてマスタのアドレスを書き込むので
VLOOKUPでは難しそうでした。