セルで入力した値を部数印刷
｜
｜
マクロ / VBA ｜
セルに入力した数字分だけを部数印刷してみます。
簡単なマクロですがやってみましょう。（初マクロカテゴリなので簡単なところから・・・）
Sub 印刷マクロ() Dim maisuu As Integer Dim sheet_name As String Dim x As Integer maisuu = Cells(1, 2) sheet_name = Cells(2, 2) For x = 1 To maisuu Sheets(sheet_name).Select ActiveWindow.SelectedSheets.PrintOut Next End Sub |
もうそのまんまです。
セルB1【Cells(1,2)】の値を変数【maisuu】に代入させ、
セルB2【Cells(2,2)】の値を変数【sheet_name】に代入させています。
あとはFor文で部数分印刷を繰り返してやれば完了です。
おまけ
指定したセルだけを印刷したい場合は
Range("A1:F35").Select
Selection.PrintOut
|
A1からF35を範囲選択し、そこのみを印刷します。
関連記事
- 前の記事
- クイックアクセスツールバーをいじる
- 次の記事
- グラフに目標値を入れてみる
Comment
私のしようとしていることに非常に近く、大変参考になっております。ありがとうございます。
「セルで入力した値を部数印刷」ですが、私はたくさんのシートを部数印刷したいと思っておりまして、sheet3の隣にsheet4,sheet5…とした時にマクロにはどの場所にどのように入力すれば部数印刷動作するのでしょうか？
マクロ初心者でして大変申し訳ありませんがよろしくお願いいたします。