Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6955 / 76732

←次へ　｜　前へ→


	【75373】とある文字印刷時に表示させ印刷終了後消すマクロ

AAA - 14/3/13(木) 20:00 -


	引用なし

	パスワード

こんばんは。少し行き詰っているのでご教授お願いします。 1枚の同じﾌｫｰﾏｯﾄに違う設備ごとで印刷を出しています。　　AN　AO 21　1　 ○ 22　2　 △ 23　3　 □ C3にVLOOKUP関数でAN19列に1が入れば○、2が入れば△という式をいれてます。それを、下記ﾏｸﾛで自動で変わり印刷をするようにしています。 Range("AN19").Select ActiveCell.FormulaR1C1 = "1" Range("AN19").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Range("AN19").Select ActiveCell.FormulaR1C1 = "2" Range("AN19").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ここからなんですが、これを印刷してる時に、 AI32のｾﾙに「原本承認済」という文字を入れたく、全ての印刷終了後には空欄に戻す作業をしたいのですが、ここまでは出来たのですが、 Range("AI32").Value = "原本承認済" Worksheets("Sheet1").PrintOut Range("AI32").Value = "" をどう織り込んだらいいのかが分かりません。 Sub 複数印刷() 　　Range("AN19").Select 　　ActiveCell.FormulaR1C1 = "1" 　　Range("AN19").Select 　　ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 　　Range("AN19").Select 　　ActiveCell.FormulaR1C1 = "2" 　　Range("AN19").Select 　　ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 　　　　Range("AI32").Value = "原本承認済" 　　Worksheets("Sheet1").PrintOut 　　Range("AI32").Value = "" End Sub とすると、空欄のもとの入ったものが出てきました・・・全ての印刷が終わった時点で空欄にしたいのですが、ご教授の方よろしくお願いします。