エクセルで連番印刷したいのですが、
フォームは1枚4枠です。
100番まで連番を着けるとして、1枚目の左上の枠に1番、2枚目の左上の枠に2番、25枚目の左上に25番。26番は1枚目の右上から50番まで右上に、51番から75番は左下、76 番から100番までは右下という感じに番号を着けたいのです。
最後に紙を4つに裁断して、重ねると1から100番の通し番号にして使いたいのです。
マクロでの連番のやれかたがよくわからないので、ご教授下さると助かります。
No.4ベストアンサー
- 回答日時:
以前、似たようなもの(1枚2枠)を作ったので、参考にしてください。
(解説)
以下のシートに、名前をつけたセルを配置しています。
参考:セルの名前をつける
https://getnavi.jp/business/79018/
■シート(印刷雛形)
renban1:左の連番
renban2:右の連番
■シート(実行画面)
maisu:枚数指定
kaisi:開始番号
実行ボタンを押すと、「sub_連番印刷」を呼び出す。
以下の式で、印刷するページ数を求めて四捨五入しています。
Format(maisu / 2, "0")
以下のコマンドで、1枚目のシート(印刷雛形)を印刷しています。
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
おぉぉ~!
イメージに近い回答ありがとうございます。
セルに名前を付けるのもマクロがわかりやすくなっていいですね。
回答を参考に4分割連番プリント試してみます。
No.3
- 回答日時:
ごめんよ。
なんかイメージできないんだ。
で、確認します。
1 26
┏━┓┏━┓
┗━┛┗━┛
┏━┓┏━┓
┗━┛┗━┛
51 76
2 27
┏━┓┏━┓
┗━┛┗━┛
┏━┓┏━┓
┗━┛┗━┛
52 77
3 28
┏━┓┏━┓
┗━┛┗━┛
┏━┓┏━┓
┗━┛┗━┛
53 78
こんな感じに印刷したいのでしょうか。
ならば、そのフォームにそれぞれ番号を表示させたものを印刷させましょう。
(´・ω・`) 連番の表示位置に統一性がないけど大丈夫?
ヘッダー、フッターに番号を入れるなら、
ヘッダー左側
&[ページ番号]
ヘッダー右側
&[ページ番号]+25
フッター左側
&[ページ番号]+50
フッター右側
&[ページ番号]+75
これでOK。
ありがとうございます
イメージはそんな感じです
ただ、ヘッダーフッターでなく、
特定のセルにナンバーリングしたいのです。
例えばA1とE1とA5とE5のセルとしますね。
それでもって、最終番号を100としたら、1クリックで番号付けて印刷開始したいので、マクロでアドバイス頂けるとありがたいです。
No.2
- 回答日時:
元のデータはどうなっているんですか?
全てのデータが1枚のシートに入っているなら、フッターを使わずに手入力でページの下に数字を入れるのが一番手っ取り早いと思いますけど。
No.1
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) EXCELの1行を1枚の用紙にそれぞれ印刷したい。 3 2022/10/10 11:35
- 年賀状作成・はがき作成 Wordによる宛名印刷 2 2023/01/04 15:36
- Excel(エクセル) Excel VBAプルダウンの値を変えながら2枚ずつ印刷する方法? 4 2022/05/27 13:04
- 歯の病気 この写真の大臼歯7番は、レジンと銀歯どちらが適していますか? 2 2022/05/07 22:39
- ファミレス・ファーストフード この写真は某しゃぶしゃぶのチエーン店。頻繁にいきます。質問として、まず右奥に見える肉の皿はもちろんカ 2 2023/01/30 19:50
- 子供 似てますか? 3 2022/04/25 06:33
- カップル・彼氏・彼女 男性への贈り物について 彼氏にクリスマスプレゼントを考えていて下記の3枚で悩んでいるのですが(小さく 4 2022/12/21 15:13
- Word(ワード) Wordの書面にページ番号を付けたい 4 2023/07/23 13:20
- 競馬 JRA競馬、馬券購入方法 マークカードの記入 1 2022/05/27 23:01
- Excel(エクセル) エクセルで 同じシートにある2ページに、おなじページをつけたい 3 2022/07/11 16:15
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
エクセルの表を複数枚印刷したときに連番をつけたい
Excel(エクセル)
-
エクセル印刷時 一枚の書類に印刷枚数分の連続番号を振るには?
Excel(エクセル)
-
1シートを数十部印刷した際に印刷枚数も印字したい
Excel(エクセル)
-
-
4
エクセルで印刷するとき、連番にしたいm(__)m
Excel(エクセル)
-
5
エクセル連番自動印刷について
Excel(エクセル)
-
6
開始と終了番号を指定した連番(Excel)
Excel(エクセル)
-
7
Excelで連番(ナンバリング)印刷
Excel(エクセル)
-
8
エクセルのシートを複数枚印刷したときに連番をつけたい
Excel(エクセル)
-
9
Excelで1部印刷する毎に連番を2箇所つけたい
その他(Microsoft Office)
-
10
マクロで奇数と偶数の値を2か所のセルに入れて、連続印刷をしたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESSのテーブルで、昇順並び...
-
エクセルで連番印刷したいので...
-
ロトの八百長
-
2本の当たりくじを含む10本のく...
-
町内会の持ち回りで民生委員と...
-
ロト6購入すること13年です。13...
-
宝くじは何故イカサマがバレな...
-
六星占術で宝くじ購入に適して...
-
数学の確率の問題です〈その2〉
-
日本のジャンボ宝くじの抽選っ...
-
当たりくじ4本を含む20本のくじ...
-
映画「マルサの女」の宝くじ売...
-
宝くじって 国が操作してるのは...
-
totoBIGの投票口数と投票枚数の...
-
ミニロトのCM
-
自分の以外のプレゼントが当た...
-
田舎道で立ち小便をしていると...
-
この問題を教えてください泣
-
スクラッチ(宝くじ)の削り方...
-
統計学上の確率ゼロ?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSのテーブルで、昇順並び...
-
ACCESSでの文字と数字の結合に...
-
エクセルで連番印刷したいので...
-
wordのフィールドコードで[1]や...
-
Excelでfilterによる非表示行が...
-
新札で連番の価値
-
連番機能
-
宝くじって誰がバラを作ってい...
-
宝くじ、バラのメリットは?
-
宝くじのバラと連番
-
ロトの八百長
-
2本の当たりくじを含む10本のく...
-
ロト6購入すること13年です。13...
-
六星占術で宝くじ購入に適して...
-
もし宝くじで連番を買って1等が...
-
宝くじを、当てる秘訣を教えて...
-
スクラッチ宝くじ
-
黒宮れいちゃんと金子理江ちゃ...
-
宝くじって 国が操作してるのは...
-
海外赴任者が一時帰国時に宝く...
おすすめ情報