エクセルのマクロで入力文字確定（Ｅｎｔｅｒ）したら印刷開始し入力文字を

質問

エクセルのマクロで入力文字確定（Ｅｎｔｅｒ）したら印刷開始し入力文字をDeleteする。

エクセルで自分が作成したファイルを開きます。
これにはマクロが入っていて、ファイルを開くと
セルのＤ４がアクティブになるようにして有ります。
（カーソルがＤ４の所に行って点滅で文字入力待ちの状態）
シート保護をしてあり、セルＤ４だけがロックをはずしてあるので
セルＤ４にしか入力は出来ません。
文字入力をすると当然Ｄ４のセルに入力がされるのですが
入力後その文字を確定する為にＥｎｔｅｒキーを押します。
そうしたらそのシートの印刷がされる（１部です）ようにで来ますか。
そして印刷終了後、セルＤ４の文字はDeleteされて
またアクティブ（カーソルがＤ４の所に行って点滅）にして
次の入力を待ちたいです。
（文字入力→Ｅｎｔｅｒの瞬間印刷と同時に文字入力が消えるので
　入力者は入力確定を見れなくなりますが　→　２秒後にＤeleteとか出来ますか？
　または、Ｅｎｔｅｒキーを押すと画面に「印刷中です」と表示したあと
　セルＤ４をＤeleteとか。）　

現在は、
表示－ツールバー－フォームから作成したボタンにマクロを登録してあります。
セルＤ４に文字を入力しＥｎｔｅｒキーで確定後、このボタンを押すと印刷が実行され
セルＤ４の文字がDeleteされてアクティブ（文字入力待ち状態）になります。
このボタンを押すのを省きたいです。

よろしくお願いします。

回答No.1

MackyNo1 · ベストアンサー

マクロコードの実行を2秒間待たせるなら以下のようなコードを印刷とD4セルの値の削除の間に挟んでください。

Application.Wait Now + TimeValue("0:00:02")

入力後、シートの値を変更したときに自動的にマクロを実行したいなら、シート名を右クリックして「コードの表示」で「WorkSheet」で「SelsectionChange」を選択し以下の部分にコードを記入してください。　

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

お礼

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