ＥＸＣＥＬについての質問です。

質問

お世話になります。
現在エクセルに「入力」，「報告書」，「報告書２」の３枚のシートを置き，「入力」シート上のボタンに以下のマクロを登録しています。

Sub 報告書印刷()
Application.ScreenUpdating = False
Msg = MsgBox("報告書を印刷します。", vbOKCancel)
If Msg = vbCancel Then
Exit Sub
End If
Worksheets("報告書").Visible = True
Worksheets("報告書").Select
Worksheets("報告書").Range("J10").Value = 1
Application.Calculate
Worksheets("報告書").PrintOut
Worksheets("報告書").Visible = False
Worksheets("入力").Select
End Sub

ボタンをクリックすることにより，報告書は印刷できますが，それに加えて，
もし，「入力」シートのセルＡ１が空白ではない場合（※何らかの文字が入力されている場合）には，「報告書２」シートも印刷される・・
というような条件を付加した構文にしたいと考えております。

知識不足のためかなり背伸びをした質問をしていますが，どなたかご教示いただければ幸いです。
どうかよろしくお願いいたします。

回答No.1

KURUMITO · ベストアンサー

次のようにすることで良いでしょう。

Sub 報告書印刷()
Msg = MsgBox("報告書を印刷します。", vbOKCancel)
If Msg = vbCancel Then
Exit Sub
End If
Worksheets("報告書").Select
Range("J10").Value = 1
Application.Calculate
Worksheets("報告書").PrintOut
If Worksheets("入力").Range("A1") <> "" Then
Worksheets("報告書2").PrintOut
End If
End Sub

お礼

早速のご回答ありがとうございました。
見事に出来ました。
大変参考になりました。