[[20180228232120]]　『BeforeUpdateが勝手に動作します。解決方法をご教』（こじ）　ページの最後に飛ぶ

『BeforeUpdateが勝手に動作します。解決方法をご教示ください。』（こじ）

以下のようにコードで実行した場合です。
I_LISTのD列に無い値を入力し、データを登録しますか？の質問にNoと答えます。
ItmTxtは空欄に戻るのですが、再度Private～から実行されてしまいます。
D列には空欄も存在するため★が実行されてしまい困っています。
★を実行させないようにするためにはどうしたら良いのかご教示いただけますと幸いです。
よろしくお願いいたします。

Private Sub ItmTxt_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

    Dim FTRng As Object

    Dim FDRng As Object

    Dim l As Long

    ItmLst.Clear

        Set FDRng =  I_LIST.Columns("D").Find(What:=ItmTxt, LookAt:=xlPart)

        If FDRng Is Nothing Then

            l = MsgBox("データがありません。登録しますか？", vbYesNo + vbQuestion + vbDefaultButton2)
            If l = vbYes Then

　　　　　　　 MsgBox "OK"

            Else
                MsgBox "入力し直してください。", vbExclamation

                Cancel = True

                ItmTxt = Undo

            Exit Sub
            End If
        End If
    ★

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

[[20180228235342]]　こちらと重複？

（マナ） 2018/03/01(木) 22:57

コメント返信：

[ 一覧(最新更新順) ]

[[20180228232120]] 『BeforeUpdateが勝手に動作します。解決方法をご教』（こじ） ページの最後に飛ぶ

[[20180228232120]]　『BeforeUpdateが勝手に動作します。解決方法をご教』（こじ）　ページの最後に飛ぶ