セルで入力した値を部数印刷

マクロ / VBA

セルに入力した数字分だけを部数印刷してみます。
簡単なマクロですがやってみましょう。(初マクロカテゴリなので簡単なところから・・・)
10-1.jpg

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

  1. ひろ より:

    私のしようとしていることに非常に近く、大変参考になっております。ありがとうございます。
    「セルで入力した値を部数印刷」ですが、私はたくさんのシートを部数印刷したいと思っておりまして、sheet3の隣にsheet4,sheet5…とした時にマクロにはどの場所にどのように入力すれば部数印刷動作するのでしょうか?
    マクロ初心者でして大変申し訳ありませんがよろしくお願いいたします。

コメントをどうぞ

メールアドレスが公開されることはありません。

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください

  • ▼お小遣い稼ぎしませんか?▼ 日々の生活にhappyをプラスする|ハピタス

    クレジットカード・FX口座を作るだけで簡単に3万円GETです。一切支出はありません。

置換 COLUMN TODAY ユーザー定義関数 条件付き書式 テンプレート 目標 SUMIF 無料 セル選択 HLOOKUP STDEV 偏差値 印刷 DATE バーコード ワイルドカード 図形 XLSTART 検索 フロー図 COUNTIF グラフ コピペ SUM NA() 変換 作業効率UP VLOOKUP 日付
  • 関西在住の30代サラリーマン。事務職で毎日Excelと戯れています。
    システム導入なんて資金が無い!Excelでなんとかやりたい零細中小の社長さん・事務員さんの力になればと思います。
    詳しいプロフィール


PAGE TOP ↑