EXCELで差し込み印刷をしてみる

ExcelVBA

ExcelVBA

仕事である表を印刷する際に

特定の項目のみ

データを入力し直して使っていました。

しかし、仕事で上司がある表のデータを

EXCELで作っていたため

WORDのような差し込み印刷したいのですが

特定のデータのみ修正しては印刷を繰り返す・・

そこで、簡単にできる作業なので

VBAを使って実装してみました。

スポンサードリンク

差し込み印刷みたいなことをしてみる

ExcelでWordのような差し込み印刷をする場合

  1. リストを読み込む
  2. データを表示する
  3. 印刷する

上記1~3の繰り返しを行うだけで済みます。

上記を踏まえた上で

Sub SashikomiPrint()
Dim frmRow As Integer

Dim toRow As Integer

Dim idx As Integer

Dim c As Integer
frmRow = Application.InputBox("開始行番号を入力してください", Type:=1)

toRow = Application.InputBox("終了行番号を入力してください", Type:=1)

For idx = frmRow To toRow
 '表示させたいシートの行をセルに表示させる

 'ここではSheet2のA1セルから順番にSheet1のA列frmRow行の内容を順次表示さ

せて印刷する
 c = frmRow
 Worksheets("Sheet2").Cells(1, 1).Value = Worksheets("Sheet1").

Cells(idx, 1)
 ActiveSheet.PrintOut
 c = c + 1
Next idx
End Sub

少し内容を変えれば

差し込み印刷みたいに使えます。

VBAエキスパート公式テキスト Excel VBA ベーシック [模擬問題プログラム付き]

新品価格
¥3,024から
(2015/1/27 23:06時点)

スポンサードリンク

コメントを残す

サブコンテンツ

このページの先頭へ