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
まぁ、単純に考えるのが多分一番早いですよ。
さっそく,ありがとうございます。
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
夏が終わったと感じる瞬間って、どんな時?
まだまだ暑い今日この頃。 しかしながら、もう夏は終わっている!……はず。 あなたが思う「夏が終わった!」エピソードを教えてください。
-
家・車以外で、人生で一番奮発した買い物
どんなものにお金をかけるかは人それぞれの価値観ですが、 誰もが一度は清水の舞台から飛び降りる覚悟で、ちょっと贅沢な買い物をしたことがあるはず。
-
メモのコツを教えてください!
メモを取るのが苦手です。 急いでメモすると内容がごちゃごちゃになってしまったり、ひどいときには全く読めない時もあります。
-
ちょっと先の未来クイズ第4問
11月ごろに発表される、2024年の「新語・流行語大賞」にノミネートされる言葉を書けるだけ書いてください。
-
架空の映画のネタバレレビュー
映画のCMを見ていると、やたら感動している人が興奮で感想を話していますよね。 思わずストーリーが気になってしまう架空の感動レビューを教えて下さい!
-
条件によって印刷するシートを変える方法 EXCEL-VBA
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セルの塗りつぶしに透明度を設...
-
excelで抽選券を作り、通し番号...
-
数字をカウントしながらエクセ...
-
WORDで行の高さを別々に設...
-
エクセルで2ページ目に何も書...
-
エクセルの表で金額の桁区切り...
-
セルの一部を白黒印刷
-
セルの数字によって、印刷する...
-
エクセルで全体に大きくしたい
-
Excel 数行分セル結合したあと...
-
斜め罫線の正しい引き方(ビジネス)
-
excel、画像に枠線が表示されて...
-
ワードかエクセルで表の大きさ...
-
エクセルでカードを作る時、紙...
-
Excelについて
-
Excel 折り返して全体を表示す...
-
セルの高さ・幅の自動調整をし...
-
Excel2003線の太さを統一するに...
-
エクセル(ワード)のセルに罫...
-
EXCELに文字を入力するとセルの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
セルの塗りつぶしに透明度を設...
-
excelで抽選券を作り、通し番号...
-
数字をカウントしながらエクセ...
-
エクセルの表で金額の桁区切り...
-
エクセルでカードを作る時、紙...
-
セルの一部を白黒印刷
-
エクセルで2ページ目に何も書...
-
WORDで行の高さを別々に設...
-
EXCELに文字を入力するとセルの...
-
excel、画像に枠線が表示されて...
-
Excelの白フォントを印刷しない...
-
例えば、キッチリ「縦10cm...
-
エクセルで全体に大きくしたい
-
Excel 数行分セル結合したあと...
-
エクセル(ワード)のセルに罫...
-
セルの高さ・幅の自動調整をし...
-
EXCELでセルの内容を完全に印刷...
-
ワード表でページをまたがるセ...
-
Excelの最後の1行が印刷できない
-
Excelについて
おすすめ情報