No.1ベストアンサー
- 回答日時:
どこでどのように「2~5」を指定するか?ですね。
いわゆる印刷部数での指定は難しいと思いますよ。
ごくごく簡単にやるとしたら、「○」~「●」を指定するセルを作ってしまうか、
インプットボックスを2回使って指定するか、
ユーザーフォームを作るか・・・
で、For ○ to ● で繰り返し印刷するのが一番簡単かと思います。
例えば、印刷範囲を2行目以降に・・つまり
> セルA1を2→3→4→5と変更しながら
これをA2セルとして、それ以降を印刷範囲に設定、
B1セルに「開始番号」を、E1セルに「終了番号」を入力するようにし、
以下のようなコードを。
Sub Test()
For i = Range("B1").Value To Range("E1").Value
Range("A2").Value = i
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next i
End Sub
まぁ、単純に考えるのが多分一番早いですよ。
この回答へのお礼
お礼日時:2013/01/12 23:11
さっそく,ありがとうございます。
Forで試していたのですが,なかなかうまくいかなったんですが
もう少し,いただいた内容を参考に考えてみたいと思います!
No.2
- 回答日時:
こんばんは!
一例です。
シートモジュールにしていますので、
画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面に
↓のコードをコピー&ペーストしてマクロを実行してみてください。
Sub 印刷()
Dim i As Long, k As Long, cnt As Long
k = Application.InputBox("印刷枚数を入力してください。")
If Range("A1") <> "" And IsNumeric(Range("A1")) Then
Do Until cnt = k
ActiveSheet.PrintOut
cnt = cnt + 1
Range("A1") = Range("A1") + 1
Loop
Else
MsgBox "A1セルが、未入力か不正なデータです。", vbOKOnly
Range("A1").Select
End If
End Sub
こんな感じではどうでしょうか?m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【Excel】複数シートがあるエクセルデータで片面印刷と両面印刷設定がシートごとに入 1 2023/03/10 15:25
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
- Excel(エクセル) Excel VBAプルダウンの値を変えながら2枚ずつ印刷する方法? 4 2022/05/27 13:04
- Excel(エクセル) エクセルVBAで複数のシート印刷設定 1 2022/09/07 12:03
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- その他(音楽・ダンス・舞台芸能) チケットに座席番号のみを印刷する方法 4 2023/02/10 11:21
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- Visual Basic(VBA) VBAで不特定枚数印刷をしたいです。 4 2022/08/02 07:30
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セルの塗りつぶしに透明度を設...
-
例えば、キッチリ「縦10cm...
-
excelで抽選券を作り、通し番号...
-
エクセルで2ページ目に何も書...
-
エクセルで罫線の一部が印刷さ...
-
エクセルでカードを作る時、紙...
-
エクセルの表で金額の桁区切り...
-
数字をカウントしながらエクセ...
-
WORDで行の高さを別々に設...
-
斜め罫線の正しい引き方(ビジネス)
-
セルの一部を白黒印刷
-
セルの高さ・幅の自動調整をし...
-
AccessからExcelの出力について
-
エクセルで表示画面どおりの印刷
-
Excelの白フォントを印刷しない...
-
ワード表でページをまたがるセ...
-
Excel印刷時の文字のはみ出し
-
エクセル罫線
-
エクセルで手紙などの文章を作...
-
エクセルで全体に大きくしたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
セルの塗りつぶしに透明度を設...
-
エクセルで2ページ目に何も書...
-
数字をカウントしながらエクセ...
-
セルの一部を白黒印刷
-
エクセルで全体に大きくしたい
-
エクセルで罫線の一部が印刷さ...
-
エクセルの表で金額の桁区切り...
-
例えば、キッチリ「縦10cm...
-
excelで抽選券を作り、通し番号...
-
WORDで行の高さを別々に設...
-
エクセルでカードを作る時、紙...
-
セルの高さ・幅の自動調整をし...
-
斜め罫線の正しい引き方(ビジネス)
-
ワード表でページをまたがるセ...
-
excel、画像に枠線が表示されて...
-
Excelの白フォントを印刷しない...
-
エクセルで表示画面どおりの印刷
-
EXCELに文字を入力するとセルの...
-
エクセルで文字がずれる
-
1ページだけのエクセルシート...
おすすめ情報