VBA　テキストボックスのChangeイベント中の再度Changeイベントについて

テキストボックスに入力された全角文字を、半角カナや半角英数字に変換する処理をテキストボックスのChangeイベントとして処理させています。
その全角を半角にした文字列を、テキストボックスのValue値に代入すると、当然、またChangeイベントが発生してしまい、再度全角を半角にする処理が起こってしまいます。

このままだけでは、全角を半角（既に半角なので処理はすぐに終了）するだけで、不都合はないのですが、テキストボックスのChangeイベントでは、半角にされた文字列をつかって、ワークシートにあるデータベースから、商品を検索する処理も合わせて走らせています。
検索後、その商品があれば通知ダイアログとしてPOPを起動させて、その詳細を詳細表示エリアに表示させるのですが、前述の通知ダイアログがどうしても、2回表示されてしまいます。

これを1回に抑えることが可能なのでしょうか

宜しくお願い致します

行動規範の内容に同意します

回答3件

ベストアンサー

モジュールグローバルのフラグを使って再入を防ぎましょう。

vba
1Option Explicit
2Dim flgChange As Boolean
3
4Private Sub TextBox1_Change()
5    If flgChange Then Exit Sub
6    flgChange = True
7    
8    TextBox1.Value = 変換処理(TextBox1.Value)
9    '検索処理
10
11    flgChange = False
12End Sub
13

追記

h.horikoshiさんの回答もみて、確かにこの方法もありかなと思いました。

グローバル変数が必要ないのはメリットですね。
変換処理が２回発生するのがちょっと無駄かな。

処理の流れを図示してみました。

h.horikoshiさんの方法

text
1Changイベント発生
2↓
3*変換処理*
4↓
5Valueに代入→　Changイベント再発生
6　　　　　　　　↓
7　　　　　　　*変換処理*
8　　　　　　　　↓
9　　　　　　　変換前 = 変換後なら検索処理
10　　　　　　　　↓
11イベント終了← 再入イベント終了

私の方法

text
1Changイベント発生
2↓
3フラグをTrue設定
4↓
5*変換処理*
6↓
7Valueに代入→　Changイベント再発生
8　　　　　　　　↓
9検索処理　←  フラグTureならExit Sub
10↓
11イベント終了

投稿2018/02/01 11:58

編集2018/02/02 01:16

hatena19

総合スコア33699

sin-zo

2018/02/02 06:46

回答が遅くなって申し訳ありません hatena19さんの方法で解決いたしました確かに、フラグを使用すれば入力制限をかけることが可能でしたね大変助かりました、ありがとうございます

h.horikoshi

2018/02/02 07:09

hatena19さん補足ありがとうございます。確かに変換が2回発生するのは欠点ですね。 #グローバルがごっそりあるマクロをメンテしていまして、ちょっとグローバルに拒否反応が(笑)。まあ、こんな方法もアリってことで...

行動規範の内容に同意します

入力文字の変換と検索を別に考えたらどうでしょうか?

入力文字を変換して
(1)変換前と同じだったら検索処理
(2)変換前と違っていたらTextBoxに設定

【例】
Private Sub TextBox1_Change()
Dim bfr As String: bfr = TextBox1.Value
Dim aft As String: aft = 変換処理(bfr)
If (bfr = aft) Then
検索処理
Else
TextBox1.Value = aft
End If
End Sub