通知表連続印刷の方法について教えてください。
インターネットにて添付画像と下記の記述の通り印刷マクロを組んでみたのですが、「For n = 1 To 15」までの連続印刷はうまくいったのですが、任意の番号『~“1” と “15”のところを“a” と “b”にしておいて、a = Range("A1")、b = Range("B1")のようにしておけば、セルA1、B1に必要な数値を入力し、5番から8番まで実行したり、3番から3番(3番だけ)実行したりできます。』の組み方がわからないので教えてください。よろしくお願いします。
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
Dim n As Integer … 文字nを数値として定義します。
For n = 1 To 15 … For ~ Nextの間のプログラムを実行します。
~ n = 1 を代入しプログラム実行、n = 2 を代入しプログラム実行、…、n = 15 まで実行します。
Next n 1が終わったら2、2が終わったら3と繰り返す。
Range("D5") = n … セルD5に1~15までを代入。
ActiveSheet.PrintOut … 現在表示されているシートを1部印刷します。
これで、1番から15番までの連続印刷が可能ですが、いつも1~15番を連続印刷してしまいます。
これを例えば5番から8番だけ印刷したいとか、3番だけ印刷したいような時に使えるようにするには、“1” と “15”のところを“a” と “b”にしておいて、a = Range("A1")、b = Range("B1")のようにしておけば、セルA1、B1に必要な数値を入力し、5番から8番まで実行したり、3番から3番(3番だけ)実行したりできます。
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
No.2ベストアンサー
- 回答日時:
>3番だけ印刷したいような時に使えるようにするには、“1” と “15”のところを“a” と “b”にし
>ておいて、a = Range("A1")、b = Range("B1")のようにしておけば、セルA1、B1に必要な数値を
>入力し、5番から8番まで実行したり、3番から3番(3番だけ)実行したりできます。
その通りですね。
Dim n As Integer
Dim a As Integer
Dim b As Integer
a=Range("A1").Value
b=Range("B1").Value
For n = a To b
・・・
Next n
と云った感じになります。
この回答への補足
ご回答ありがとうございます。下記の通り記述してみたのですが、まだうまく作動しません。再度教えていただけませんか?
Sub 通知表印刷()
Dim n As Integer
Dim a As Integer
Dim b As Integer
a = Range("f2").Value
b = Range("H2").Value
For n = a To b
ActiveSheet.PrintOut
Next n
End Sub
ご回答ありがとうございます。初心者なものでどちらからの欄を使って再質問をしれば良いのかわからなかったので、お礼入力の欄から失礼します。下記の通り記述してみたのですが、まだうまく作動しません。再度教えていただけませんか?
Sub 通知表印刷()
Dim n As Integer
Dim a As Integer
Dim b As Integer
a = Range("f2").Value
b = Range("H2").Value
For n = a To b
ActiveSheet.PrintOut
Next n
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel VBAプルダウンの値を変えながら2枚ずつ印刷する方法? 4 2022/05/27 13:04
- Excel(エクセル) エクセルの印刷マクロについて質問があります。 現在、下記のマクロで印刷しています。Sheet1のD6 5 2023/06/12 10:59
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- UNIX・Linux テキストファイルをページ番号付きでコマンドラインから印刷したい 1 2023/02/22 12:47
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) Excle VBA Findメソッドについて 3 2022/07/15 13:56
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PC版のMinecraftが応答なしにな...
-
エクセルVBA、ステップモードと...
-
latexでのエラー
-
たまにマクロを実行できないと...
-
パソコンに何かが勝手にダウン...
-
パソコンのスクリーンセーバー...
-
Windows10 で青鬼を遊びたいの...
-
テフラグのやり方
-
Flashゲームをホームページで楽...
-
プログラム実行中に強制停止さ...
-
EXCEL-VBAでコマンド...
-
UWSCに詳しい方1クリックで複数...
-
通知表連続印刷の方法について...
-
xcodeでテキストに対してマーキ...
-
ATOMは何の略ですか
-
インターネットエクスプローラ...
-
ターミナルからemacsへのコピペ...
-
アクセス権が拒否されました は...
-
ラベル屋さんと言うソフトのフ...
-
A-oneのラベル屋さんについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パソコンに何かが勝手にダウン...
-
Excel実行時エラー-2146959355?
-
Pythonって何のソフトで動くん...
-
latexでのエラー
-
エクセルVBA、ステップモードと...
-
PC版のMinecraftが応答なしにな...
-
eclipseで、「ポート番号が使用...
-
管理者として実行を毎回すると...
-
パソコンのスクリーンセーバー...
-
VB.NETでボタンのクリックイベ...
-
chatGPTで次々と質問をしていく...
-
EXCEL-VBAでコマンド...
-
VB.NETでDataTableにデータ追加...
-
Windows10 で青鬼を遊びたいの...
-
プログラム実行中に強制停止さ...
-
COBOLで集団項目から符号...
-
VBA コントロールパネルの機能...
-
【急いでます!】pythonでキー...
-
ターミナルからemacsへのコピペ...
-
ランタイム関数とは何ですか?
おすすめ情報