[[20220523191651]]　『一括印刷について』（TANSAKU）　ページの最後に飛ぶ

『一括印刷について』（TANSAKU）

  A   B  C  D  E  F  G  H  I  J  K  L  M N  O  P  Q  R  S  T  U  V  W  X

3　　　　　　　　　　　　　　番号

4 氏名　様

5項目　　給食費　　寮費　　親睦会費　　雑費　　合計　その他　手数　計　　　

上記のような表があり、縦に5人分横に二人分の単票があります。
番号がＪ3(縦1人目)横Ｗ3(1人目) J13(縦2人目)　横Ｗ13(2人目)

縦の1人目は、氏名がA14 縦の1人目は、氏名がN4

5×2名分で一ページで
名簿シートから番号でVLOOKで飛ぶようになっているのですが、現状何ページにもわたりシートが作られている状態です。
できれば1ページで名簿から一括印刷できるようなｖｂａを組みたいのですが

一人一枚一括印刷であればわかるのですが、、上記のような場合はどのようなコードを書けばよいのでしょうか？
無知で申し訳ないのですがどうかよろしくお願いいたします。

＜使用 Excel：Excel2016mac、使用 OS：Windows10 ＞

＞一人一枚一括印刷であればわかる
まずは、それを提示されてみてはどうでしょうか？
おそらく、番号入力と印刷を繰り返す命令にすればよいと思います。

ちなみに↓はあってますか？

 ＜ 使用 Excel：Excel2016mac、使用 OS：Windows10 ＞

（もこな２） 2022/05/23(月) 20:06

こんな感じでは？

１）番号クリア
２）１０人分の番号転記
３）印刷

４）１）～３）を繰り返し

（マナ） 2022/05/23(月) 20:10

まさにそのような感じです。。
ご教授願います。。

（TANSAKU） 2022/05/23(月) 20:17

名簿シートのレイアウトを提示してください

（マナ） 2022/05/23(月) 20:23

　A B C D E F G H I J ・・・・・・・・・・・・・
　----------------------------------------------------------------
1　

4番号　職員番号　氏名　顧客番号　給食費　寮費　親睦会費　雑費　合計　その他　手数料　計　

・
・
・
・
・
・

・
・
・
・

このような形です。

親切に対応してくださりありがとうございます

（TANSAKU） 2022/05/23(月) 20:34

名簿全員分を印刷するのでしょうか。
指定の番号だけではないのですか。

（マナ） 2022/05/23(月) 20:50

名簿全員分になります。。
増えることもあります。。
説明が下手ですみません。。
（TANSAKU） 2022/05/23(月) 21:01

ならば番号クリアも不要です。

印刷範囲外の適当なセル（例えばZ1:Z10）に、
１０人分の番号をコピペ→印刷を繰り返します。
VLOOKUPの式は、上記セルを参照するように修正してください。

 Option Explicit

 Sub test()
    Dim 一覧 As Range
    Dim 印刷番号 As Range

    Set 一覧 = Worksheets("名簿").Range("A4").CurrentRegion
    Set 印刷番号 = Worksheets("印刷").Range("Z1:Z10")

    For k = 5 To 一覧.Rows.Count Step 10
        一覧(k, 1).Resize(10).Copy 印刷番号
        Worksheets("印刷").PrintOut
    Next

 End Sub

（マナ） 2022/05/23(月) 21:22

ちなみに、こういうのはWordの差し込み印刷を利用すればマクロ不要です。

（マナ） 2022/05/23(月) 21:24

変数宣言を忘れていました。
追加してください。

 Dim k as Long

（マナ） 2022/05/23(月) 21:29

本当に親切にありがとうございます。
ちなみに職員は100人ほどいるのですが。。
（TANSAKU） 2022/05/23(月) 21:44

間違いを発見

For k = 2 To 一覧.Rows.Count Step 10

でした。

（マナ） 2022/05/23(月) 21:49

＞ちなみに職員は100人ほどいるのですが。。

１０人分ずつ１０回印刷します。

（マナ） 2022/05/23(月) 21:51

じっくり研究したいと思います！！

本当にありがとうございました😊
（TANSAKU） 2022/05/23(月) 21:52

コメント返信：

[ 一覧(最新更新順) ]

[[20220523191651]] 『一括印刷について』（TANSAKU） ページの最後に飛ぶ

[[20220523191651]]　『一括印刷について』（TANSAKU）　ページの最後に飛ぶ