Madhabiは、ワークシートを4部印刷したいと考えていますが、セルA7の値を各部で変更しています。 4つの値は「オリジナル」です

「複製」、「ファイル」、「ドライバ」。他のすべてのデータは同じであるため、Madhabiは、印刷中にセルA7のテキストをどのように変更できるのか疑問に思います。

考えられるアプローチの1つは、本質的に同じ情報を含む4つの異なるワークシートを作成することです。ワークシート2から4は、各ワークシートで異なる値（ “Original”

“Duplicate”など）に設定できるセルA7を除いて、ワークシート1のすべてのセルを参照できます。

ただし、より良いアプローチは、印刷に使用できるクイックマクロを作成することです。マクロは、ワークシートが毎回印刷される直前にセルA7の値の変更を処理できます。簡単な例を次に示します。

Sub PrintCopies()

Dim i As Integer     Dim VList As Variant

VList = Array("Original", "Duplicate", "File", "Driver")

For i = LBound(VList) To UBound(VList)

Range("A7") = VList(i)

ActiveSheet.PrintOut      Next End Sub

マクロは、セルA7宛ての4つの値を配列に配置します。次に、マクロは4つの配列要素のそれぞれをステップスルーし、値をセルA7に入力してから、ワークシートを印刷します。印刷は、システム上のデフォルトのプリンタに関係なく行われます。

マクロは、ショートカットキーまたはクイックアクセスツールバー（他の_ExcelTips_で説明されている）に簡単に割り当てることができるため、4つのコピーすべてをすばやく印刷できます。

注：

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

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

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

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