ExcelからExcelに対して差し込み印刷をしたい
Excelで差し込み印刷を行う際に、別のアプリケーションを使用するのではなく「ExcelからExcel」への差し込み印刷を行いたいと思ったことはありませんか？別のシートのデータを参照して差し込み印刷を行うことができますよ。
複数のシートを使用している場合は、マクロやVLOOKUP関数を使用して差し込み印刷を行ってみましょう。この記事では、ExcelからExcelに対して差し込み印刷を行う方法をご紹介していきます。
ExcelからExcelに対して差し込み印刷を行う方法
それでは、ExcelからExcelに対して差し込み印刷を行う方法を説明します。
マクロを使用して差し込み印刷を行う方法
まずはマクロを使用して差し込み印刷する方法を説明します。マクロを使用するには「開発」タブを有効にしましょう。Excelを起動して、ウィンドウ左上の「ファイル」タブをクリックしましょう。
「Excelのオプション」ウィンドウが表示されます。左側メニューの「リボンのユーザー設定」をクリックして「リボンをカスタマイズします。」の「リボンのユーザー設定」の一覧から、「開発」のチェックボックスをクリックして有効にしてから「OK」をクリックしましょう。これで、開発タブが有効になります。
Sub Serialnumber_Print()
Dim s As Variant
Dim Serialnumber As Long
With Sheet1
'差し込みたい列の選択
For Each s In .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
Serialnumber = Serialnumber + 1
With Sheet2
.Range("B2") = Serialnumber
.Range("H2") = s.Value
'印刷プレビュー
.PrintPreview
End With
Next s
End With
End Sub
VLOOKUP関数を使用して差し込み印刷を行う方法
