エクセルの学校：全文検索：Hyper Estraier：差し込み印刷

Results of 1 - 1 of about 296 for 差し込み印刷 (0.002 sec.)

[[20220523191651]]: #score: 8241; @digest: 1f4f58df4a66fe25b1c42df1408fa481; @id: 91334; @mdate: 2022-05-23T12:52:57Z; @size: 3606; @type: text/plain; #keywords: tansaku (42032), 費寮 (15497), 費親 (14647), 睦会 (14426), 寮費 (14010), 刷番 (13438), 親睦 (13266), 簿全 (13266), 他手 (13180), 号ク (10985), 費雑 (9701), 括印 (9278), 給食 (8479), 費合 (7675), 人目 (7379), 号転 (6425), 枚一 (6044), 号wo (5863), 覧. (5737), 食費 (4979), 刷") (4577), 人分 (4426), 覧= (4376), 簿シ (4285), 会費 (4162), 雑費 (4074), 目) (3830), 員分 (3643), 人一 (3521), 職員 (3193), 名簿 (2969), excel2016mac (2585); 『一括印刷について』（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 ------------------------------------------------------------------------ 1 2 3 番号 4 氏名様 ---------------------------------------------------------------------- 5項目給食費寮費親睦会費雑費合計その他手数計 6 --------------------------------------------------------------------- 7 8 上記のような表があり、縦に5人分横に二人分の単票があります。番号がJ3(縦1人目)横W3(1人目) J13(縦2人目) 横W13(2人目) 縦の1人目は、氏名がA14 縦の1人目は、氏名がN4 5×2名分で一ページで名簿シートから番号でVLOOKで飛ぶようになっているのですが、現状何ページにもわたりシートが作られている状態です。できれば1ページで名簿から一括印刷できるようなvbaを組みたいのですが一人一枚一括印刷であればわかるのですが、、上記のような場合はどのようなコードを書けばよいのでしょうか? 無知で申し訳ないのですがどうかよろしくお願いいたします。＜使用 Excel:Excel2016mac、使用 OS:Windows10 ＞ ---- ＞一人一枚一括印刷であればわかるまずは、それを提示されてみてはどうでしょうか? おそらく、番号入力と印刷を繰り返す命令にすればよいと思います。ちなみに↓はあってますか? ＜使用 Excel:Excel2016mac、使用 OS:Windows10 ＞（もこな2 ） 2022/05/23(月) 20:06 ---- こんな感じでは? 1）番号クリア 2）10人分の番号転記 3）印刷 4）1）〜3）を繰り返し（マナ） 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 2 3 4番号職員番号氏名顧客番号給食費寮費親睦会費雑費合計その他手数料計 --------------------------------------------------------------------------------------------- 5 6 7 8 ・・・・・・・・・・このような形です。親切に対応してくださりありがとうございます（TANSAKU） 2022/05/23(月) 20:34 ---- 名簿全員分を印刷するのでしょうか。指定の番号だけではないのですか。（マナ） 2022/05/23(月) 20:50 ---- 名簿全員分になります。。増えることもあります。。説明が下手ですみません。。（TANSAKU） 2022/05/23(月) 21:01 ---- ならば番号クリアも不要です。印刷範囲外の適当なセル（例えばZ1:Z10）に、 10人分の番号をコピペ→印刷を繰り返します。 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人ほどいるのですが。。 10人分ずつ10回印刷します。（マナ） 2022/05/23(月) 21:51 ---- じっくり研究したいと思います!! 本当にありがとうございました😊 （TANSAKU） 2022/05/23(月) 21:52 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202205/20220523191651.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ