Excel VBA質問箱 IV

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

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


1259 / 13644 ツリー ←次へ | 前へ→

【75373】とある文字印刷時に表示させ印刷終了後消すマクロ AAA 14/3/13(木) 20:00 質問[未読]
【75374】Re:とある文字印刷時に表示させ印刷終了後... マナ 14/3/13(木) 23:10 発言[未読]
【75375】Re:とある文字印刷時に表示させ印刷終了後... AAA 14/3/14(金) 7:58 お礼[未読]

【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

とすると、空欄のもとの入ったものが出てきました・・・
全ての印刷が終わった時点で空欄にしたいのですが、ご教授の方よろしくお願いします。

【75374】Re:とある文字印刷時に表示させ印刷終了...
発言  マナ  - 14/3/13(木) 23:10 -

引用なし
パスワード
   最初にRange("AI32").Value = "原本承認済"を実行したらよいと思います

Sub 複数印刷()
  With Worksheets("Sheet1")
    .Range("AI32").Value = "原本承認済"
    .Range("AN19").Value = 1
    .PrintOut
    .Range("AN19").Value = 2
    .PrintOut
    .Range("AI32").Value = ""
  End With
End Sub

【75375】Re:とある文字印刷時に表示させ印刷終了...
お礼  AAA  - 14/3/14(金) 7:58 -

引用なし
パスワード
   マナさん

できました。
最初に持ってくるんですね…
プリントする前だと思い間に入れたりしていました。

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

1259 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free