ヘンリーは、ワークシートのコピーが印刷されるたびに増加する数値をセルに含めることを望んでいます。したがって、セルに番号9が含まれていて、ワークシートを13部印刷した場合、各コピーには、そのセルに番号9、10、11、および21までが含まれます。

ご想像のとおり、これはマクロを使用して行うのが最適です。実行する必要があるのは、ワークシートを何度でも印刷し、印刷するたびにセルの値をインクリメントすることだけです。この場合、インクリメントされるセルはB7であると想定します。次のマクロがプロセスを処理します：

Sub PrintNumberedCopies()

Dim iCopies As Integer     Dim J As Integer     Dim r As Range

' Specify the cell to modify     Set r = Range("B7")



' Get the number of copies.

iCopies = Val(InputBox("Number of copies to print:"))



If iCopies > 0 Then         ' Loop iCopies times, printing once per loop         For J = 1 to iCopies             ActiveSheet.PrintOut             r.Value = r.Value + 1         Next J     End If End Sub

マクロは、印刷する部数をユーザーに尋ねてから、各部を個別に印刷することに注意してください。各プリントアウトの後、セルB7に格納されている値をインクリメントします。ユーザーがコピー数に変換されないものを入力した場合、何も印刷されません。

B7の値番号を常に最新の状態にしたい場合は、最後の印刷の後でワークブックを保存する必要があることに注意してください。また、このマクロ以外の方法で印刷した場合、B7の値は実際に印刷された部数を反映しません。

注：

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

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

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

このヒント（12135）は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice365のExcelに適用されます。