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

少し内容を変えれば

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

Excel VBAの教科書 (Informatics & IDEA)

新品価格
¥2,570から
(2019/9/21 06:11時点)

Excel VBAの教科書 [ 古川 順平 ]

価格:2,570円
(2019/9/21 06:23時点)
感想(1件)

スポンサードリンク

コメントを残す

サブコンテンツ

このページの先頭へ