おしえて

エクセルで連番印刷したいのですが、フォームは1枚4枠です。 100番まで連番を着けるとして、1枚目

解決済

質問者：y.hagy
質問日時：2022/12/30 12:55
回答数：4件

エクセルで連番印刷したいのですが、
フォームは1枚4枠です。
100番まで連番を着けるとして、1枚目の左上の枠に1番、2枚目の左上の枠に2番、25枚目の左上に25番。26番は1枚目の右上から50番まで右上に、51番から75番は左下、76　番から100番までは右下という感じに番号を着けたいのです。
最後に紙を4つに裁断して、重ねると1から100番の通し番号にして使いたいのです。
マクロでの連番のやれかたがよくわからないので、ご教授下さると助かります。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

No.4ベストアンサー

回答者： taglet
回答日時：2023/01/02 02:18

以前、似たようなもの（１枚２枠）を作ったので、参考にしてください。

（解説）
以下のシートに、名前をつけたセルを配置しています。

参考：セルの名前をつける
https://getnavi.jp/business/79018/

■シート（印刷雛形）
renban1：左の連番
renban2：右の連番

■シート（実行画面）
maisu：枚数指定
kaisi：開始番号

実行ボタンを押すと、「sub_連番印刷」を呼び出す。

以下の式で、印刷するページ数を求めて四捨五入しています。
Format(maisu / 2, "0")

以下のコマンドで、１枚目のシート（印刷雛形）を印刷しています。
Worksheets(1).PrintOut

（実行例）
開始番号：101、枚数：10の場合、以下のように連番を出力。

左　右
101 106
102 107
103 108
104 109
105 110

（ソースコード）

Option Explicit

'◆ 連番印刷
Sub sub_連番印刷()
Dim maisu As Integer
Dim kaisiL As Long, kaisiR As Long
Dim renbanL As Long, renbanR As Long
Dim page As Integer

maisu = Range("maisu")
kaisiL = Range("kaisi")
kaisiR = kaisiL + Format(maisu / 2, "0")
renbanL = kaisiL
renbanR = kaisiR

Worksheets(1).Activate

For page = 1 To Format(maisu / 2, "0")
Range("renban1").Value = renbanL
renbanL = renbanL + 1

Range("renban2").Value = renbanR
renbanR = renbanR + 1
Worksheets(1).PrintOut
Next page

Range("renban1").Value = ""
Range("renban2").Value = ""

End Sub

- 0
- 件

通報する

この回答へのお礼

おぉぉ～！
イメージに近い回答ありがとうございます。
セルに名前を付けるのもマクロがわかりやすくなっていいですね。
回答を参考に4分割連番プリント試してみます。

通報する

お礼日時：2023/01/02 07:25

No.3

回答者：銀鱗
回答日時：2022/12/30 14:17

ごめんよ。

なんかイメージできないんだ。

で、確認します。

1　　　　　26
┏━┓┏━┓
┗━┛┗━┛
┏━┓┏━┓
┗━┛┗━┛
51　　　　 76

2　　　　　27
┏━┓┏━┓
┗━┛┗━┛
┏━┓┏━┓
┗━┛┗━┛
52　　　　 77

3　　　　　28
┏━┓┏━┓
┗━┛┗━┛
┏━┓┏━┓
┗━┛┗━┛
53　　　　 78

こんな感じに印刷したいのでしょうか。
ならば、そのフォームにそれぞれ番号を表示させたものを印刷させましょう。
(´・ω・`) 連番の表示位置に統一性がないけど大丈夫？

ヘッダー、フッターに番号を入れるなら、

　ヘッダー左側
　&[ページ番号]

　ヘッダー右側
　&[ページ番号]+25

　フッター左側
　&[ページ番号]+50

　フッター右側
　&[ページ番号]+75

これでOK。