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

マクロ / VBA

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

もうそのまんまです。
セルB1【Cells(1,2)】の値を変数【maisuu】に代入させ、
セルB2【Cells(2,2)】の値を変数【sheet_name】に代入させています。
あとはFor文で部数分印刷を繰り返してやれば完了です。
おまけ
指定したセルだけを印刷したい場合は

A1からF35を範囲選択し、そこのみを印刷します。

Comment

  1. ひろ より:

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

コメントをどうぞ

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

COLUMN 検索 目標 XLSTART 無料 テンプレート NA() 偏差値 ワイルドカード コピペ 条件付き書式 履歴書 SUM TODAY 図形 封筒 ネットプリント クイズ STDEV VLOOKUP バーコード チルダ SUMIF フロー図 コンビニ COUNTIF 配列数式 印刷 標準報酬月額 作業効率UP
  • 関西在住の30代サラリーマン。事務職で毎日Excelと戯れています。
    システム導入なんて資金が無い!Excelでなんとかやりたい零細中小の社長さん・事務員さんの力になればと思います。
    詳しいプロフィール


PAGE TOP ↑