みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセルのマクロで入力文字確定(Enter)したら印刷開始し入力文字を

エクセルのマクロで入力文字確定(Enter)したら印刷開始し入力文字をDeleteする。

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

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

よろしくお願いします。

投稿日時 - 2010-06-23 11:06:59

QNo.5988919

困ってます

質問者が選んだベストアンサー

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

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

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

投稿日時 - 2010-06-23 14:10:16

お礼

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

投稿日時 - 2010-07-23 11:11:20

このQ&Aは役に立ちましたか?

8人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問