[[20250227145511]]　『アンケート用紙に、印刷枚数通し番号』（おもひろ）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) |

| 全文検索 | 過去ログ ]

『アンケート用紙に、印刷枚数通し番号』（おもひろ）

いつもお世話になっております。

アンケート用紙の右下（V53セル）に、通し番号付けたいです。
100枚印刷すると、V53セルに、1～100まで、通し番号印刷するには、
どうしたら良いですか？

色々、調べたいのですが、ページ番号付いたりと、思うように出来ません
でした。
出来れば、メッセージボックスで、何枚印刷しますか？と出たら、
嬉しいです。

宜しくお願い致します

＜使用 Excel：Excel2016、使用 OS：Windows11 ＞

手元に印刷環境ないから試してないけどこれでいけませんか？Excel4Macroらしいので怪しいですが。
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q119201371

印刷枚通のほうは、メッセージボックスというよりはユーザーフォームになると思います。
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1115172581
（通りすがり） 2025/02/27(木) 15:37:35

 アクティブシートのV53セルに通し番号をつけて
 指定枚数分印刷するマクロです。

 Sub Sample()
    Dim p   As Long
    Dim n   As Long
    Dim Rng As Range
    Set Rng = Range("V53")
    p = Application.InputBox("何枚印刷しますか？", "印刷枚数", 1, , , , , 1)
    For n = 1 To p
        Rng.Value = n
        ActiveSheet.PrintOut
    Next n
    Rng.ClearContents
 End Sub
（通りすがり助六） 2025/02/27(木) 15:46:17

通りすがり助六　様

お返事ありがとうございます。

コード貼り付けましたが、通し番号の書式って変えれるのですか？
フォントサイズが、少し大きく出来たら良いなと思いまして。

印刷設定の倍率が問題なのですかね？

（おもひろ） 2025/02/27(木) 15:58:31

通りすがり助六　様

何度もすいません。

A1セルに通し番号付けるにしたら、倍率大きくなり、丁度良いフォントになりました。
あと、例えば101～印刷したい時って、どうしたら良いのでしょうか？

（おもひろ） 2025/02/27(木) 16:05:15

For n = 101 To p

に変えるのですかね？
インプットボックスは、枚数ですよね？
（おもひろ） 2025/02/27(木) 16:08:45

何もかも聞くのではなく実践してから返事したらどうですか。
前にもそのようなこと言われていませんか。

（閲覧者） 2025/02/27(木) 16:16:45

閲覧者様

お返事ありがとうございます。
自分で考えてみます。
ありがとうございました。
（おもひろ） 2025/02/27(木) 16:23:53

 通し番号の書式はセルの書式設定に依存します。
 V53セルのフォントサイズを大きくすればいいです。

 スタートページの番号を設定できるように修正しましたので参考まで。

 Sub Sample2()
    Dim p   As Long
    Dim n   As Long
    Dim s   As Long
    Dim Rng As Range
    Set Rng = Range("V53")
    s = Application.InputBox("ページ番号は何番から始めますか？", "スタートページ番号", 1, , , , , 1)
    p = Application.InputBox("何枚印刷しますか？", "印刷枚数", 1, , , , , 1)
    For n = s To p + s - 1
        Rng.Value = n
        ActiveSheet.PrintOut
    Next n
    Rng.ClearContents
 End Sub
（通りすがり助六） 2025/02/27(木) 16:24:27

通りすがり助六　様

何度もありがとうございます。

＞V53セルのフォントサイズを大きくすればいいです。

そうなんですね。承知しました。

非常に助かりました。
ありがとうございました。
（おもひろ） 2025/02/27(木) 16:31:23

コメント返信：

[ 一覧(最新更新順) ]

[[20250227145511]] 『アンケート用紙に、印刷枚数通し番号』（おもひろ） ページの最後に飛ぶ

[[20250227145511]]　『アンケート用紙に、印刷枚数通し番号』（おもひろ）　ページの最後に飛ぶ