• 締切済み

エクセルマクロで条件のシートを印刷する方法

エクセルマクロで条件のシートを印刷する方法を教えてください 初め、目的のシートを作成する為の条件がセルに入力しているシート(以降:条件シート)があり マクロで条件シートから情報を吸い上げて情報に沿ったシート(以降:結果シート)を複数作成します。 ここでは条件シートが複数存在しています。 結果シートを作成する為の条件と作成するシート数はその都度違います。 結果シートを作成する際は前回に作った結果シートを全て削除してから作っています。 条件シートのシート名に「●」を入力しておいて、「●」が含まれていないシートを削除するようにしています。 ここで質問になりますが、作成した全ての結果シートだけを印刷する方法を教えていただけないでしょうか 方法としては「●」が含まれていないシートを全て印刷するという命令にしたいのですが。 ご教授お願いいたします エクセル2003を使用しています。

みんなの回答

  • DOUGLAS_
  • ベストアンサー率74% (397/534)
回答No.1

>条件シートのシート名に「●」を入力しておいて、 >「●」が含まれていないシートを削除するようにしています。  これは マクロ で行なっていないのですか? Dim mySh As Worksheet Application.DisplayAlerts = False For Each mySh In ThisWorkbook.Worksheets  If InStr(mySh.Name, "●") = 0 Then mySh.Delete Next Application.DisplayAlerts = True  同様に >方法としては「●」が含まれていないシートを >全て印刷するという命令にしたいのですが。 Dim mySh As Worksheet For Each mySh In ThisWorkbook.Worksheets  If InStr(mySh.Name, "●") = 0 Then mySh.PrintOut Next

関連するQ&A

専門家に質問してみよう