クリントンは、その月の間に彼の会社のさまざまな人々によって入力される200以上のワークシートを含むワークブックを持っています。月末に、彼はこれらのワークシートを印刷する必要があります。すべてのワークシートにデータが含まれているわけではなく、クリントンはデータを含むワークシートのみを印刷したいので、紙を無駄にしません。彼は、おそらく、セルG41に値を持つワークシートのみを印刷するために使用できるマクロがあるかどうか疑問に思います。

答えは、そのようなマクロはかなり簡単に書くことができるということです。ワークシートがいくつあるかを把握し、それぞれのセルG41を確認して、そのセルに何かがある場合にのみ印刷するだけで済みます。

次のマクロは、これらの操作のみを実行します。

Sub PrintMost()

Dim wks As Worksheet     For Each wks In ActiveWorkbook.Worksheets         If Not IsEmpty(wks.Range("G41")) Then             wks.PrintOut         End If     Next     Set wks = Nothing End Sub

マクロは、特定のワークシートを印刷するかどうかを尋ねたり、印刷する部数を尋ねたりするなど、他の操作を実行するように簡単に変更できます。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（3502）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

link非空白のワークシートのみを印刷する。