テキストボックスに値を入力し終わったらイベントを発

質問

エクセル２００７を使用しています。

アクセスで言う「更新後処理」のAfterUpdateイベントは
エクセルのActiveXコントロールのテキストボックスイベントにはないのでしょうか？

例えば、テキストボックスに「aiu」と入力し終わったらイベントを発生させたいのですが、
Private Sub TextBox1_Change()
MsgBox ""
End Sub
にしすると
「a」を入力した時点で、MsgBox が表示されてしまいます。

テキストボックスに値を入力し終わったらイベントを発生させる方法はありますか？
VBE画面でシートイベントを見ても
AfterUpdateイベントは見当たりません。

ご回答よろしくお願いします。

回答No.3

piroin654 · ベストアンサー

>「TextBox1に値がなかったら、MsgBoxは表示させない」
>と言うことでしょうか。

いえ、そうではなく、

If TextBox1 <> txtData Then

としていますから、テキストボックスにフォーカスが
移ったときにテキストボックスの値を変数に格納しておいて、
テキストボックスからフォーカスが移動したときに
改めてテキストボックスのデータと前もって変数に
入れておいた値を比べて値が違っていたら
メッセージボックスを表示します。

最初にテキストボックスが空で、フォーカスが
移動したときに何らかの値が入力されていたら
メッセージボックスを出します。
また、最初に何らかの値が入っていて、
フォーカスが移動したときに違う値に
なっていたらメッセージボックスをだします。
つまり、

Private Sub TextBox1_Change()

の代わりのようなものです。

変数はVariant型にしているので、文字、数値にも対応します。

お礼

ありがとうございました。大変参考になりました。

回答No.4

piroin654

No3の

＞Private Sub TextBox1_Change()

＞の代わりのようなものです。

というのは、No2の回答全体が、という意味です。
改良型のChangeということです。

ただ単に、_LostFocusだけでなく、
No2のようにGotFocusと組み合わせることで、
テキストボックスの値の変更の感知と、
＞「a」を入力した時点で、MsgBox が表示されてしまいます。
というようなことを避けることが出来るということです。

お礼

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

回答No.2

piroin654

No1です。少し泥臭くするなら、

Option Explicit
Dim txtData As Variant

Private Sub TextBox1_GotFocus()
txtData = TextBox1.Value
End Sub

Private Sub TextBox1_LostFocus()
If TextBox1 <> txtData Then
MsgBox ""
End If
End Sub

のような感じはどうでしょう。

お礼

LostFocusよりGotFocusが先に実行されるのですね。

GotFocusイベントでまず、TextBox1の値を読み取り、txtDataの変数に入れ、
LostFocusイベントは、
「TextBox1に値がなかったら、MsgBoxは表示させない」と言うことでしょうか。

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

回答No.1

piroin654

Private Sub TextBox1_LostFocus()

では？

お礼

できました。LostFocusイベントを使うのですね。
ありがとうございました。