エクセルのPrivate Sub Worksheet_Change

質問

エクセルのPrivate Sub Worksheet_Change

すいません。どうやっても動作しません。
シート１のＢ５のセルに英数字を入力しエンターを押して確定すると
シート２のＣ列から同レコードを検出し、その検出された行のＢ～Ｅ列の値を
シート１のＨ４、Ｈ５、Ｈ６、Ｊ７に値をかえします。
またＢ５の値はＨ８にも表示されます。
データがあった場合には、シート１のＨ４、Ｈ５、Ｈ６、Ｊ７に値が表示されています。
シート２にデータが無い場合はシート１のＨ４、Ｈ５、Ｈ６、Ｊ７には「＃Ｎ／Ａ」と表示されます。
ここまでは関数と計算式なのでマクロではありません。

ここでフォームで作成した「印刷ボタン」をクリックします。
すると「印刷ボタン」に登録したマクロが起動します。
シート１のセルＧ４～Ｊ１１までが印刷されます。

マクロの内容は

シート１のＨ４に「＃Ｎ／Ａ」が表示されている場合はメッセージボックスで
「データがありません」と出ます。印刷は実行されません。

Ｈ４が「＃Ｎ／Ａ」以外の場合は印刷が実行されますがその前に
シート３のセルＡ１の数値をプラス１してシート３のＢ２に、セルＡ１の値の先頭にＡを付けて
表示します。（セルＡ１が０００２ならＢ１はＡ０００２）
それがシート１のＨ１２に表示されます。（Ｈ１２への表示は計算式で対応）
印刷ボタンを押すごとにシート３のセルＡ１は１づつ繰り上がります。
シート１のＨ１２の値が変わってから印刷がされます。
と同時に
シート１のセルＢ５がDELETEされセルＢ５がアクティブになります。
結果シート１のＨ４、Ｈ５、Ｈ６、Ｊ７、Ｈ８は「＃Ｎ／Ａ」が表示されます。
Ｈ１２はクリアされません。
印刷終了後にもセルの値が変化する事になります。

もう一つフォームで作成した「初期化」というボタンがあります。
これをクリックするとマクロが起動して
シート１のセルＢ５がDELETEされセルＢ５がアクティブになります。
よってシート１のセルＨ４、Ｈ５、Ｈ６、Ｊ７、Ｈ８も「＃Ｎ／Ａ」に値が変わります。

ここまでは完璧に動作しています。
でこの「印刷ボタン」を押してマクロが起動ではなく
セルＢ５に入力しエンターを押したらマクロを起動させたいです。

Private Sub Worksheet_Change(ByVal Target As Range)
を利用しましたが動作しません。

シート１のＢ５のセルに入力しエンターを押すと
シート１の一部のセルの値が変化。
印刷ボタンを押すと、シート３の一部のセルの値が変化し
その後再びシート１のセルの一部が変化し印刷が開始され
その後シート１のセルＢ５がDELETEされアクティブに。
それに伴いシート１の一部のセルの値が変化する。
マクロが起動すると、シート１とシート３のセルの値が数回変化します。

このような場合はPrivate Sub Worksheet_Change(ByVal Target As Range)で
セルＢ５の入力後エンターで確定しての上記のマクロ起動は無理なのでしょうか？

回答No.1

snowsan062 · ベストアンサー

application.EnableEvents = False
処理
application.EnableEvents = True
ちゃんと上記の様にしていますか？

EnableEvents入れてなかったらシート１の値変えた時点で
再度Changeイベントが頭から始まりますよ。
処理中にエラーになるとEnableEventsがFalseのままになり
イベントが発生しなくなるのでOn error gotoとか書いた方がいいですよ。
あとデバッグは覚えた方が良いと思います。

お礼

＞application.EnableEvents = False
＞処理
＞application.EnableEvents = True

組み込みましたが、うまくいきませんでした。
デバックモードでもループを確認できました。

またセルＢ５への入力は自動入力でした。
エンターは押しません。
入力されるとエンターなしで確定です。
（バーコードスキャナ）
発想を変えてＢ５のセルの値が５ケタ以上になったら
このマクロを起動で解決しました。
Changeイベント
Call　マクロ。