Articles

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

この記事をdel.icio.usに登録する この記事をはてなブックマークに登録する この記事をGoogleブックマークに登録する この記事をYahoo!ブックマークに登録する この記事をdiggに登録する この記事をlivedoor clipに登録する この記事をNewsGattor Onlineに登録する

セルに入力した数字分だけを部数印刷してみます。
簡単なマクロですがやってみましょう。(初マクロカテゴリなので簡単なところから・・・)
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を範囲選択し、そこのみを印刷します。
関連記事




この記事をdel.icio.usに登録する この記事をはてなブックマークに登録する この記事をGoogleブックマークに登録する この記事をYahoo!ブックマークに登録する この記事をdiggに登録する この記事をlivedoor clipに登録する この記事をNewsGattor Onlineに登録する

トラックバック一覧

コメント一覧

質問よろしいでしょうか?

私のしようとしていることに非常に近く、大変参考になっております。ありがとうございます。

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

  • 2014/05/25
  • ひろ ◆ v1XDVBd.
  • [ URL ]
  • [ 編集 ]
コメント投稿フォーム
Name
Subject
Mail
URL
Comment

Password
Secret
管理者にだけ表示を許可する

Navigations, etc.

Navigations

ブログ記事を検索

SPONSORS

人気記事ランキング

ブログパーツ

メールフォーム

名前:
メール:
件名:
本文:

Tweet

最新記事